Cannot copy file &! at ./archive_precipogram.pl line 41.
Cannot copy file &! at ./archive_precipogram.pl line 41.

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(./archive_precipogram.pl:9):
9:	my $err;
  DB<1> main::(./archive_precipogram.pl:10):
10:	my $now = `date +%Y%m%d%H%M%S`;
  DB<1> main::(./archive_precipogram.pl:12):
12:	my %MonthNameHash = ( 
13:		"01" => "jan",
14:		"02" => "feb",
15:		"03" => "mar",
16:		"04" => "apr",
17:		"05" => "may",
18:		"06" => "jun",
19:		"07" => "jul",
20:		"08" => "aug",
21:		"09" => "sep",
22:		"10" => "oct",
23:		"11" => "nov",
24:		"12" => "dec"
25:		);
  DB<1> main::(./archive_precipogram.pl:27):
27:	my $yesterday = substr(DateCalc($now,"- 1 day",\$err),0,6);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1520):
1520:	  print "DEBUG: DateCalc\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1521):
1521:	  my($D1,$D2,@arg)=@_;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1522):
1522:	  my($ref,$err,$errref,$mode)=();
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1524):
1524:	  ($errref,$mode) = (@arg);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1525):
1525:	  $ref=0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1527):
1527:	  if (defined $errref) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1528):
1528:	    if (ref $errref) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1529):
1529:	      $ref=1;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1536):
1536:	  my(@date,@delta,$ret,$tmp,$oldincalc,$oldmode)=();
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1538):
1538:	  if (exists $Curr{"Mode"}) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1541):
1541:	    $oldmode = 0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1544):
1544:	  if (defined $mode  and  $mode>=0  and  $mode<=3) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1547):
1547:	    $Curr{"Mode"}=0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1550):
1550:	  if (exists $Curr{"InCalc"}) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1553):
1553:	    $oldincalc = 0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1555):
1555:	  $Curr{"InCalc"}=1;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1557):
1557:	  if ($tmp=ParseDateString($D1)) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:808):
808:	  print "DEBUG: ParseDateString\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:809):
809:	  local($_)=@_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:810):
810:	  return ""  if (! $_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:812):
812:	  my($y,$m,$d,$h,$mn,$s,$i,$wofm,$dofw,$wk,$tmp,$z,$num,$err,$iso,$ampm)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:813):
813:	  my($date,$z2,$delta,$from,$falsefrom,$to,$which,$midnight)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:816):
816:	  Date_Init()  if (! $Curr{"InitDone"}  or  $Cnf{"UpdateCurrTZ"});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:257):
257:	  print "DEBUG: Date_Init\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:258):
258:	  $Curr{"Debug"}="";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:260):
260:	  my(@args)=@_;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:261):
261:	  $Curr{"InitDone"}=1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:262):
262:	  local($_)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:263):
263:	  my($internal,$firstday)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:264):
264:	  my($var,$val,$file,@tmp)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:270):
270:	  $Cnf{"EraseHolidays"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:271):
271:	  foreach (@args) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:299):
299:	  @args=@tmp;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:302):
302:	  if ($Curr{"InitFilesRead"}<1  &&  ! $Cnf{"IgnoreGlobalCnf"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:303):
303:	    $Curr{"InitFilesRead"}=1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:305):
305:	    if ($Cnf{"GlobalCnf"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:312):
312:	  if ($Curr{"InitFilesRead"}<2) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:313):
313:	    $Curr{"InitFilesRead"}=2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:315):
315:	    if ($Cnf{"PersonalCnf"}  and  $Cnf{"PersonalCnfPath"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:316):
316:	      $file=_SearchPath($Cnf{"PersonalCnf"},$Cnf{"PersonalCnfPath"},"r");
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7522):
7522:	  my($file,$path,$mode,@suff)=@_;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7523):
7523:	  my($f,$s,$d,@dir,$fs)=();
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7524):
7524:	  $path=_FixPath($path,1,"r");
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7473):
7473:	  my($path,$full,$mode,$err)=@_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7474):
7474:	  local($_)="";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7475):
7475:	  my(@dir)=split(/$Cnf{"PathSep"}/,$path);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7476):
7476:	  $full=0  if (! defined $full);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7477):
7477:	  $mode="" if (! defined $mode);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7478):
7478:	  $err=0   if (! defined $err);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7479):
7479:	  $path="";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7480):
7480:	  if ($mode eq "e") {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7483):
7483:	    $mode="derx";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7488):
7488:	  foreach (@dir) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7491):
7491:	    if ($full) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7492):
7492:	      $_=_FullFilePath($_);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7496):
7496:	    if (! $_) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7502):
7502:	    if (! $mode  or  _CheckFilePath($_,$mode)) {
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7450):
7450:	  return 1;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7503):
7503:	      $path .= $Cnf{"PathSep"} . $_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7491):
7491:	    if ($full) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7492):
7492:	      $_=_FullFilePath($_);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7369):
7369:	    $user=$1;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7373):
7373:	    return ""  if ($OS eq "Windows"  or
7374:	                   $OS eq "Mac"  or
7375:	                   $OS eq "Netware"  or
7376:	                   $OS eq "MPE");
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7377):
7377:	    $user=""  if (! defined $user);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7379):
7379:	    if ($user) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7382):
7382:	      $home= (getpwuid($<))[7];
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7384):
7384:	    $home = VMS::Filespec::unixpath($home)  if ($OS eq "VMS");
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7385):
7385:	    return ""  if (! $home);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7386):
7386:	    $file="$home/$file";
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7496):
7496:	    if (! $_) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7502):
7502:	    if (! $mode  or  _CheckFilePath($_,$mode)) {
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7450):
7450:	  return 1;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7503):
7503:	      $path .= $Cnf{"PathSep"} . $_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7508):
7508:	  $path =~ s/^$Cnf{"PathSep"}//;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7509):
7509:	  return $path;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7525):
7525:	  @dir=split(/$Cnf{"PathSep"}/,$path);
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7526):
7526:	  foreach $d (@dir) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7527):
7527:	    $f="$d/$file";
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7528):
7528:	    $f=~ s|//|/|g;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7529):
7529:	    return $f if (_CheckFilePath($f,$mode));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7530):
7530:	    foreach $s (@suff) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7527):
7527:	    $f="$d/$file";
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7528):
7528:	    $f=~ s|//|/|g;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7529):
7529:	    return $f if (_CheckFilePath($f,$mode));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7530):
7530:	    foreach $s (@suff) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7535):
7535:	  return "";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:317):
317:	      _Date_InitFile($file)  if ($file);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:321):
321:	  foreach (@args) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:330):
330:	  confess "ERROR: Unknown FirstDay in Date::Manip.\n"
331:	    if (! _IsInt($Cnf{"FirstDay"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:332):
332:	  confess "ERROR: Unknown WorkWeekBeg in Date::Manip.\n"
333:	    if (! _IsInt($Cnf{"WorkWeekBeg"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:334):
334:	  confess "ERROR: Unknown WorkWeekEnd in Date::Manip.\n"
335:	    if (! _IsInt($Cnf{"WorkWeekEnd"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:336):
336:	  confess "ERROR: Invalid WorkWeek in Date::Manip.\n"
337:	    if ($Cnf{"WorkWeekEnd"} <= $Cnf{"WorkWeekBeg"});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:339):
339:	  my(%lang,
340:	     $tmp,%tmp,$tmp2,@tmp2,
341:	     $i,$j,@tmp3,
342:	     $zonesrfc,@zones)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:344):
344:	  my($L)=$Cnf{"Language"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:346):
346:	  if ($Curr{"InitLang"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:347):
347:	    $Curr{"InitLang"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:349):
349:	    if ($L eq "English") {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:350):
350:	      _Date_Init_English(\%lang);
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5934):
5934:	  print "DEBUG: _Date_Init_English\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5935):
5935:	  my($d)=@_;
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5937):
5937:	  $$d{"month_name"}=
5938:	    [["January","February","March","April","May","June",
5939:	      "July","August","September","October","November","December"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5941):
5941:	  $$d{"month_abb"}=
5942:	    [["Jan","Feb","Mar","Apr","May","Jun",
5943:	      "Jul","Aug","Sep","Oct","Nov","Dec"],
5944:	     [],
5945:	     ["","","","","","","","","Sept"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5947):
5947:	  $$d{"day_name"}=
5948:	    [["Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5949):
5949:	  $$d{"day_abb"}=
5950:	    [["Mon","Tue","Wed","Thu","Fri","Sat","Sun"],
5951:	     ["",   "Tues","",  "Thur","",  "",   ""]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5952):
5952:	  $$d{"day_char"}=
5953:	    [["M","T","W","Th","F","Sa","S"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5955):
5955:	  $$d{"num_suff"}=
5956:	    [["1st","2nd","3rd","4th","5th","6th","7th","8th","9th","10th",
5957:	      "11th","12th","13th","14th","15th","16th","17th","18th","19th","20th",
5958:	      "21st","22nd","23rd","24th","25th","26th","27th","28th","29th","30th",
5959:	      "31st"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5960):
5960:	  $$d{"num_word"}=
5961:	    [["first","second","third","fourth","fifth","sixth","seventh","eighth",
5962:	      "ninth","tenth","eleventh","twelfth","thirteenth","fourteenth",
5963:	      "fifteenth","sixteenth","seventeenth","eighteenth","nineteenth",
5964:	      "twentieth","twenty-first","twenty-second","twenty-third",
5965:	      "twenty-fourth","twenty-fifth","twenty-sixth","twenty-seventh",
5966:	      "twenty-eighth","twenty-ninth","thirtieth","thirty-first"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5968):
5968:	  $$d{"now"}     =["now"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5969):
5969:	  $$d{"today"}   =["today"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5970):
5970:	  $$d{"last"}    =["last","final"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5971):
5971:	  $$d{"each"}    =["each","every"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5972):
5972:	  $$d{"of"}      =["in","of"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5973):
5973:	  $$d{"at"}      =["at"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5974):
5974:	  $$d{"on"}      =["on"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5975):
5975:	  $$d{"future"}  =["in"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5976):
5976:	  $$d{"past"}    =["ago"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5977):
5977:	  $$d{"next"}    =["next"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5978):
5978:	  $$d{"prev"}    =["previous","last"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5979):
5979:	  $$d{"later"}   =["later"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5981):
5981:	  $$d{"exact"}   =["exactly"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5982):
5982:	  $$d{"approx"}  =["approximately"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5983):
5983:	  $$d{"business"}=["business"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5985):
5985:	  $$d{"offset"}  =["yesterday","-0:0:0:1:0:0:0","tomorrow","+0:0:0:1:0:0:0","overmorrow","+0:0:0:2:0:0:0","ereyesterday","-0:0:0:2:0:0:0"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5986):
5986:	  $$d{"times"}   =["noon","12:00:00","midnight","00:00:00"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5988):
5988:	  $$d{"years"}   =["y","yr","year","yrs","years"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5989):
5989:	  $$d{"months"}  =["mon","month","months"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5990):
5990:	  $$d{"weeks"}   =["w","wk","wks","week","weeks"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5991):
5991:	  $$d{"days"}    =["d","day","days"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5992):
5992:	  $$d{"hours"}   =["h","hr","hrs","hour","hours"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5993):
5993:	  $$d{"minutes"} =["mn","min","minute","minutes"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5994):
5994:	  $$d{"seconds"} =["s","sec","second","seconds"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5995):
5995:	  $$d{"replace"} =["m","month"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5997):
5997:	  $$d{"sephm"}   =':';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5998):
5998:	  $$d{"sepms"}   =':';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5999):
5999:	  $$d{"sepss"}   ='[.:]';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:6001):
6001:	  $$d{"am"}      = ["AM","A.M."];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:6002):
6002:	  $$d{"pm"}      = ["PM","P.M."];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:402):
402:	    $Lang{$L}{"MonthH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:403):
403:	    $Lang{$L}{"MonthL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:404):
404:	    $Lang{$L}{"MonL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:405):
405:	    _Date_InitLists([$lang{"month_name"},
406:	                     $lang{"month_abb"}],
407:	                    \$Lang{$L}{"Month"},"lc,sort,back",
408:	                    [$Lang{$L}{"MonthL"},
409:	                     $Lang{$L}{"MonL"}],
410:	                    [$Lang{$L}{"MonthH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:419):
419:	    $Lang{$L}{"WeekH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:420):
420:	    $Lang{$L}{"WeekL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:421):
421:	    $Lang{$L}{"WkL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:422):
422:	    $Lang{$L}{"WL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:423):
423:	    _Date_InitLists([$lang{"day_name"},
424:	                     $lang{"day_abb"}],
425:	                    \$Lang{$L}{"Week"},"lc,sort,back",
426:	                    [$Lang{$L}{"WeekL"},
427:	                     $Lang{$L}{"WkL"}],
428:	                    [$Lang{$L}{"WeekH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:429):
429:	    _Date_InitLists([$lang{"day_char"}],
430:	                    "","lc",
431:	                    [$Lang{$L}{"WL"}],
432:	                    [\%tmp,1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:434):
434:	      (%{ $Lang{$L}{"WeekH"} },%tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:433):
433:	    %{ $Lang{$L}{"WeekH"} } =
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:433):
433:	    %{ $Lang{$L}{"WeekH"} } =
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:449):
449:	    $Lang{$L}{"LastL"}=$lang{"last"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:450):
450:	    _Date_InitStrings($lang{"last"},
451:	                      \$Lang{$L}{"Last"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:453):
453:	    $Lang{$L}{"EachL"}=$lang{"each"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:454):
454:	    _Date_InitStrings($lang{"each"},
455:	                      \$Lang{$L}{"Each"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:457):
457:	    $Lang{$L}{"DoMH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:458):
458:	    $Lang{$L}{"DoML"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:459):
459:	    _Date_InitLists([$lang{"num_suff"},
460:	                     $lang{"num_word"}],
461:	                    \$Lang{$L}{"DoM"},"lc,sort,back,escape",
462:	                    [$Lang{$L}{"DoML"},
463:	                     \@tmp],
464:	                    [$Lang{$L}{"DoMH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3995):
3995:	      foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:466):
466:	    @tmp=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:467):
467:	    foreach $tmp (keys %{ $Lang{$L}{"DoMH"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:467):
467:	    foreach $tmp (keys %{ $Lang{$L}{"DoMH"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:474):
474:	    foreach $tmp (@{ $Lang{$L}{"LastL"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:474):
474:	    foreach $tmp (@{ $Lang{$L}{"LastL"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:475):
475:	      $Lang{$L}{"WoMH"}{$tmp} = -1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:476):
476:	      push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:475):
475:	      $Lang{$L}{"WoMH"}{$tmp} = -1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:476):
476:	      push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:478):
478:	    _Date_InitStrings(\@tmp,\$Lang{$L}{"WoM"},
479:	                      "lc,sort,back,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4042):
4042:	    $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:488):
488:	    _Date_InitStrings($lang{"am"},\$Lang{$L}{"AM"},"lc,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:489):
489:	    _Date_InitStrings($lang{"pm"},\$Lang{$L}{"PM"},"lc,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4042):
4042:	    $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:492):
492:	    $Lang{$L}{"AMstr"}=$lang{"am"}[0];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:493):
493:	    $Lang{$L}{"PMstr"}=$lang{"pm"}[0];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:510):
510:	    _Date_InitStrings($lang{"years"}  ,\$Lang{$L}{"Yabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:511):
511:	    _Date_InitStrings($lang{"months"} ,\$Lang{$L}{"Mabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:512):
512:	    _Date_InitStrings($lang{"weeks"}  ,\$Lang{$L}{"Wabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:513):
513:	    _Date_InitStrings($lang{"days"}   ,\$Lang{$L}{"Dabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:514):
514:	    _Date_InitStrings($lang{"hours"}  ,\$Lang{$L}{"Habb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:515):
515:	    _Date_InitStrings($lang{"minutes"},\$Lang{$L}{"MNabb"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:516):
516:	    _Date_InitStrings($lang{"seconds"},\$Lang{$L}{"Sabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:517):
517:	    $Lang{$L}{"Repl"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:518):
518:	    _Date_InitHash($lang{"replace"},undef,"lc",$Lang{$L}{"Repl"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:531):
531:	    $Lang{$L}{"TimesH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:532):
532:	    _Date_InitHash($lang{"times"},
533:	                   \$Lang{$L}{"Times"},"lc,sort,back",
534:	                   $Lang{$L}{"TimesH"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3899):
3899:	    @list=keys(%$hash);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3900):
3900:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3901):
3901:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3906):
3906:	    if ($back) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3907):
3907:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:535):
535:	    _Date_InitStrings($lang{"now"},\$Lang{$L}{"Now"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:536):
536:	    _Date_InitStrings($lang{"today"},\$Lang{$L}{"Today"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:537):
537:	    $Lang{$L}{"OffsetH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:538):
538:	    _Date_InitHash($lang{"offset"},
539:	                   \$Lang{$L}{"Offset"},"lc,sort,back",
540:	                   $Lang{$L}{"OffsetH"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3899):
3899:	    @list=keys(%$hash);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3900):
3900:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3901):
3901:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3906):
3906:	    if ($back) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3907):
3907:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:541):
541:	    $Lang{$L}{"SepHM"}=$lang{"sephm"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:542):
542:	    $Lang{$L}{"SepMS"}=$lang{"sepms"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:543):
543:	    $Lang{$L}{"SepSS"}=$lang{"sepss"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:551):
551:	    $zonesrfc=
552:	      "idlw   -1200 ".  # International Date Line West
553:	      "nt     -1100 ".  # Nome
554:	      "hst    -1000 ".  # Hawaii Standard
555:	      "cat    -1000 ".  # Central Alaska
556:	      "ahst   -1000 ".  # Alaska-Hawaii Standard
557:	      "akst   -0900 ".  # Alaska Standard
558:	      "yst    -0900 ".  # Yukon Standard
559:	      "hdt    -0900 ".  # Hawaii Daylight
560:	      "akdt   -0800 ".  # Alaska Daylight
561:	      "ydt    -0800 ".  # Yukon Daylight
562:	      "pst    -0800 ".  # Pacific Standard
563:	      "pdt    -0700 ".  # Pacific Daylight
564:	      "mst    -0700 ".  # Mountain Standard
565:	      "mdt    -0600 ".  # Mountain Daylight
566:	      "cst    -0600 ".  # Central Standard
567:	      "cdt    -0500 ".  # Central Daylight
568:	      "est    -0500 ".  # Eastern Standard
569:	      "act    -0500 ".  # Brazil, Acre
570:	      "pet    -0500 ".  # Peruvian time
571:	      "vet    -0430 ".  # Venezuela
572:	      "sat    -0400 ".  # Chile
573:	      "clt    -0400 ".  # Chile Standard
574:	      "clst   -0400 ".  # Chile Standard
575:	      "bot    -0400 ".  # Bolivia
576:	      "amt    -0400 ".  # Brazil, Amazon
577:	      "acst   -0400 ".  # Brazil, Acre Daylight
578:	      "edt    -0400 ".  # Eastern Daylight
579:	      "ast    -0400 ".  # Atlantic Standard
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:675):
675:	    $Zone{"n2o"} = {};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:676):
676:	    ($Zone{"zones"},%{ $Zone{"n2o"} })=
677:	      _Date_Regexp($zonesrfc,"sort,lc,under,back",
678:	                   "keys");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4123):
4123:	  print "DEBUG: _Date_Regexp\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4124):
4124:	  my($list,$options,$array)=@_;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4125):
4125:	  my(@list,$ret,%hash,$i)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4126):
4126:	  local($_)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4127):
4127:	  $options=""  if (! defined $options);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4128):
4128:	  $array=""    if (! defined $array);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4130):
4130:	  my($sort,$lc,$under)=(0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4131):
4131:	  $sort =1  if ($options =~ /sort/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4132):
4132:	  $lc   =1  if ($options =~ /lc/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4133):
4133:	  $under=1  if ($options =~ /under/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4134):
4134:	  my($back,$opt,$pre,$post,$ws)=("?:","","","","");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4135):
4135:	  $back =""          if ($options =~ /back/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4136):
4136:	  $opt  ="?"         if ($options =~ /opt/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4137):
4137:	  $pre  ='\s*'       if ($options =~ /pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4138):
4138:	  $pre  ='\s+'       if ($options =~ /Pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4139):
4139:	  $pre  ='(?:\s+|^)' if ($options =~ /PRE/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4140):
4140:	  $post ='\s*'       if ($options =~ /post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4141):
4141:	  $post ='\s+'       if ($options =~ /Post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4142):
4142:	  $post ='(?:$|\s+)' if ($options =~ /POST/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4143):
4143:	  $ws   ='\s*'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4144):
4144:	  $ws   ='\s+'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4146):
4146:	  my($hash,$keys,$key0,$key1,$val0,$val1)=(0,0,0,0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4147):
4147:	  $keys =1     if ($array =~ /keys/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4148):
4148:	  $key0 =1     if ($array =~ /key0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4149):
4149:	  $key1 =1     if ($array =~ /key1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4150):
4150:	  $val0 =1     if ($array =~ /val0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4151):
4151:	  $val1 =1     if ($array =~ /val1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4152):
4152:	  $hash =1     if ($keys or $key0 or $key1 or $val0 or $val1);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4154):
4154:	  my($ref)=ref $list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4155):
4155:	  if (! $ref) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4156):
4156:	    $list =~ s/\s*$//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4157):
4157:	    $list =~ s/^\s*//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4158):
4158:	    $list =~ s/\s+/&&&/g;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4165):
4165:	  if (! $list) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4173):
4173:	  $list=lc($list)  if ($lc);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4174):
4174:	  $list=~ s/_/ /g  if ($under);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4175):
4175:	  @list=split(/&&&/,$list);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4176):
4176:	  if ($keys) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4177):
4177:	    %hash=@list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4178):
4178:	    @list=keys %hash;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4188):
4188:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4190):
4190:	  $ret="($back" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4191):
4191:	  $ret="(?:$pre$ret$post)"  if ($pre or $post);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4192):
4192:	  $ret.=$opt;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4193):
4193:	  $ret="(?:$ret|$ws)"  if ($ws);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4195):
4195:	  if ($array and $hash) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4196):
4196:	    return ($ret,%hash);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:676):
676:	    ($Zone{"zones"},%{ $Zone{"n2o"} })=
677:	      _Date_Regexp($zonesrfc,"sort,lc,under,back",
678:	                   "keys");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:680):
680:	    $tmp=
681:	      "US/Pacific  PST8PDT ".
682:	      "US/Mountain MST7MDT ".
683:	      "US/Central  CST6CDT ".
684:	      "US/Eastern  EST5EDT ".
685:	      "Canada/Pacific  PST8PDT ".
686:	      "Canada/Mountain MST7MDT ".
687:	      "Canada/Central  CST6CDT ".
688:	      "Canada/Eastern  EST5EDT";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:690):
690:	    $Zone{"tz2z"} = {};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:691):
691:	    ($Zone{"tzones"},%{ $Zone{"tz2z"} })=
692:	      _Date_Regexp($tmp,"lc,under,back","keys");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4123):
4123:	  print "DEBUG: _Date_Regexp\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4124):
4124:	  my($list,$options,$array)=@_;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4125):
4125:	  my(@list,$ret,%hash,$i)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4126):
4126:	  local($_)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4127):
4127:	  $options=""  if (! defined $options);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4128):
4128:	  $array=""    if (! defined $array);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4130):
4130:	  my($sort,$lc,$under)=(0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4131):
4131:	  $sort =1  if ($options =~ /sort/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4132):
4132:	  $lc   =1  if ($options =~ /lc/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4133):
4133:	  $under=1  if ($options =~ /under/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4134):
4134:	  my($back,$opt,$pre,$post,$ws)=("?:","","","","");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4135):
4135:	  $back =""          if ($options =~ /back/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4136):
4136:	  $opt  ="?"         if ($options =~ /opt/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4137):
4137:	  $pre  ='\s*'       if ($options =~ /pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4138):
4138:	  $pre  ='\s+'       if ($options =~ /Pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4139):
4139:	  $pre  ='(?:\s+|^)' if ($options =~ /PRE/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4140):
4140:	  $post ='\s*'       if ($options =~ /post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4141):
4141:	  $post ='\s+'       if ($options =~ /Post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4142):
4142:	  $post ='(?:$|\s+)' if ($options =~ /POST/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4143):
4143:	  $ws   ='\s*'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4144):
4144:	  $ws   ='\s+'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4146):
4146:	  my($hash,$keys,$key0,$key1,$val0,$val1)=(0,0,0,0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4147):
4147:	  $keys =1     if ($array =~ /keys/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4148):
4148:	  $key0 =1     if ($array =~ /key0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4149):
4149:	  $key1 =1     if ($array =~ /key1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4150):
4150:	  $val0 =1     if ($array =~ /val0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4151):
4151:	  $val1 =1     if ($array =~ /val1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4152):
4152:	  $hash =1     if ($keys or $key0 or $key1 or $val0 or $val1);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4154):
4154:	  my($ref)=ref $list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4155):
4155:	  if (! $ref) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4156):
4156:	    $list =~ s/\s*$//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4157):
4157:	    $list =~ s/^\s*//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4158):
4158:	    $list =~ s/\s+/&&&/g;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4165):
4165:	  if (! $list) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4173):
4173:	  $list=lc($list)  if ($lc);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4174):
4174:	  $list=~ s/_/ /g  if ($under);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4175):
4175:	  @list=split(/&&&/,$list);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4176):
4176:	  if ($keys) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4177):
4177:	    %hash=@list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4178):
4178:	    @list=keys %hash;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4188):
4188:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4190):
4190:	  $ret="($back" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4191):
4191:	  $ret="(?:$pre$ret$post)"  if ($pre or $post);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4192):
4192:	  $ret.=$opt;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4193):
4193:	  $ret="(?:$ret|$ws)"  if ($ws);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4195):
4195:	  if ($array and $hash) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4196):
4196:	    return ($ret,%hash);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:691):
691:	    ($Zone{"tzones"},%{ $Zone{"tz2z"} })=
692:	      _Date_Regexp($tmp,"lc,under,back","keys");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:693):
693:	    $Cnf{"TZ"}=Date_TimeZone();
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3532):
3532:	  print "DEBUG: Date_TimeZone\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3533):
3533:	  my($null,$tz,@tz,$std,$dst,$time,$isdst,$tmp,$in)=();
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3534):
3534:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3538):
3538:	  push(@tz,$Cnf{"TZ"})  if (defined $Cnf{"TZ"});  # TZ config var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3539):
3539:	  push(@tz,$ENV{"TZ"})  if (defined $ENV{"TZ"});  # TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3540):
3540:	  push(@tz,$ENV{'SYS$TIMEZONE_RULE'})
3541:	    if defined $ENV{'SYS$TIMEZONE_RULE'};         # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3542):
3542:	  push(@tz,$ENV{'SYS$TIMEZONE_NAME'})
3543:	    if defined $ENV{'SYS$TIMEZONE_NAME'};         # VMS TZ name environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3544):
3544:	  push(@tz,$ENV{'UCX$TZ'})
3545:	    if defined $ENV{'UCX$TZ'};                    # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3546):
3546:	  push(@tz,$ENV{'TCPIP$TZ'})
3547:	    if defined $ENV{'TCPIP$TZ'};                  # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3559):
3559:	  unless (($^O ne 'cygwin' && $^X =~ /perl\.exe$/i) or
3560:	          ($OS eq "Windows") or
3561:	          ($OS eq "Netware") or
3562:	          ($OS eq "VMS")) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3563):
3563:	    if ($Date::Manip::NoTaint) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3564):
3564:	      if ($OS eq "VMS") {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3573):
3573:	        $tz=`date +%Z 2> /dev/null`;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3574):
3574:	        chomp($tz);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3575):
3575:	        if (! $tz) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3581):
3581:	      push(@tz,$tz)  if (defined $tz);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3599):
3599:	  push(@tz,$main::TZ)         if (defined $main::TZ);         # $main::TZ
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3601):
3601:	  if (-s "/etc/TIMEZONE") {                                   # /etc/TIMEZONE
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3614):
3614:	  if (-s "/etc/timezone") {                                   # /etc/timezone
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3630):
3630:	  foreach $tz (@tz) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3631):
3631:	    $tz =~ s/\s*$//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3632):
3632:	    $tz =~ s/^\s*//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3633):
3633:	    $tz =~ s/^://;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3634):
3634:	    next  if ($tz eq "");
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3631):
3631:	    $tz =~ s/\s*$//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3632):
3632:	    $tz =~ s/^\s*//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3633):
3633:	    $tz =~ s/^://;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3634):
3634:	    next  if ($tz eq "");
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3636):
3636:	    return uc($tz)
3637:	      if (defined $Zone{"n2o"}{lc($tz)});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:705):
705:	    _Date_InitStrings($lang{"at"},    \$Lang{$L}{"At"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:706):
706:	    _Date_InitStrings($lang{"on"},    \$Lang{$L}{"On"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:707):
707:	    _Date_InitStrings($lang{"future"},\$Lang{$L}{"Future"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:708):
708:	    _Date_InitStrings($lang{"later"}, \$Lang{$L}{"Later"},  "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:709):
709:	    _Date_InitStrings($lang{"past"},  \$Lang{$L}{"Past"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:710):
710:	    _Date_InitStrings($lang{"next"},  \$Lang{$L}{"Next"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:711):
711:	    _Date_InitStrings($lang{"prev"},  \$Lang{$L}{"Prev"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:712):
712:	    _Date_InitStrings($lang{"of"},    \$Lang{$L}{"Of"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:719):
719:	    _Date_InitStrings($lang{"exact"},   \$Lang{$L}{"Exact"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:720):
720:	    _Date_InitStrings($lang{"approx"},  \$Lang{$L}{"Approx"},  "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:721):
721:	    _Date_InitStrings($lang{"business"},\$Lang{$L}{"Business"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:726):
726:	  if ($Curr{"ResetWorkDay"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:727):
727:	    my($h1,$m1,$h2,$m2)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:728):
728:	    if ($Cnf{"WorkDay24Hr"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:736):
736:	      confess "ERROR: Invalid WorkDayBeg in Date::Manip.\n"
737:	        if (! (($h1,$m1)=_CheckTime($Cnf{"WorkDayBeg"})));
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4376):
4376:	  print "DEBUG: _CheckTime\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4377):
4377:	  my($time)=@_;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4378):
4378:	  my($h)='(?:0?[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4379):
4379:	  my($h2)='(?:0[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4380):
4380:	  my($m)='[0-5][0-9]';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4381):
4381:	  my($s)=$m;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4382):
4382:	  my($hm)="(?:". $Lang{$Cnf{"Language"}}{"SepHM"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4383):
4383:	  my($ms)="(?:". $Lang{$Cnf{"Language"}}{"SepMS"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4384):
4384:	  my($ss)=$Lang{$Cnf{"Language"}}{"SepSS"};
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4385):
4385:	  my($t)="^($h)$hm($m)(?:$ms($s)(?:$ss\\d+)?)?\$";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4386):
4386:	  if ($time eq "one") {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4393):
4393:	  if ($time =~ /$t/i) {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4394):
4394:	    ($h,$m,$s)=($1,$2,$3);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4395):
4395:	    $h="0$h" if (length($h)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4396):
4396:	    $m="0$m" if (length($m)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4397):
4397:	    $s="00"  if (! defined $s);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4398):
4398:	    return ($h,$m,$s);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:738):
738:	      $Cnf{"WorkDayBeg"}="$h1:$m1";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:739):
739:	      confess "ERROR: Invalid WorkDayEnd in Date::Manip.\n"
740:	        if (! (($h2,$m2)=_CheckTime($Cnf{"WorkDayEnd"})));
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4376):
4376:	  print "DEBUG: _CheckTime\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4377):
4377:	  my($time)=@_;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4378):
4378:	  my($h)='(?:0?[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4379):
4379:	  my($h2)='(?:0[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4380):
4380:	  my($m)='[0-5][0-9]';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4381):
4381:	  my($s)=$m;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4382):
4382:	  my($hm)="(?:". $Lang{$Cnf{"Language"}}{"SepHM"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4383):
4383:	  my($ms)="(?:". $Lang{$Cnf{"Language"}}{"SepMS"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4384):
4384:	  my($ss)=$Lang{$Cnf{"Language"}}{"SepSS"};
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4385):
4385:	  my($t)="^($h)$hm($m)(?:$ms($s)(?:$ss\\d+)?)?\$";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4386):
4386:	  if ($time eq "one") {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4393):
4393:	  if ($time =~ /$t/i) {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4394):
4394:	    ($h,$m,$s)=($1,$2,$3);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4395):
4395:	    $h="0$h" if (length($h)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4396):
4396:	    $m="0$m" if (length($m)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4397):
4397:	    $s="00"  if (! defined $s);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4398):
4398:	    return ($h,$m,$s);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:741):
741:	      $Cnf{"WorkDayEnd"}="$h2:$m2";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:743):
743:	      ($Curr{"WDBh"},$Curr{"WDBm"})=($h1,$m1);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:744):
744:	      ($Curr{"WDEh"},$Curr{"WDEm"})=($h2,$m2);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:747):
747:	      $h1=$h2-$h1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:748):
748:	      $m1=$m2-$m1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:749):
749:	      if ($m1<0) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:753):
753:	      $Curr{"WDlen"}=$h1*60+$m1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:755):
755:	    $Curr{"ResetWorkDay"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:759):
759:	  my($s,$mn,$h,$d,$m,$y,$wday,$yday,$isdst,$ampm,$wk)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:760):
760:	  if ($Cnf{"ForceDate"}=~
761:	      /^(\d{4})-(\d{2})-(\d{2})-(\d{2}):(\d{2}):(\d{2})$/) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:764):
764:	    ($s,$mn,$h,$d,$m,$y,$wday,$yday,$isdst)=localtime(time);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:765):
765:	    $y+=1900;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:766):
766:	    $m++;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:768):
768:	  _Date_DateCheck(\$y,\$m,\$d,\$h,\$mn,\$s,\$ampm,\$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5489):
5489:	  print "DEBUG: _Date_DateCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5490):
5490:	  my($y,$m,$d,$h,$mn,$s,$ampm,$wk)=@_;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5491):
5491:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5493):
5493:	  my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5494):
5494:	  my($curr_y)=$Curr{"Y"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5495):
5495:	  my($curr_m)=$Curr{"M"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5496):
5496:	  my($curr_d)=$Curr{"D"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5497):
5497:	  $$m=1, $$d=1  if (defined $$y and ! defined $$m and ! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5498):
5498:	  $$y=""     if (! defined $$y);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5499):
5499:	  $$m=""     if (! defined $$m);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5500):
5500:	  $$d=""     if (! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5501):
5501:	  $$wk=""    if (! defined $$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5502):
5502:	  $$d=$curr_d  if ($$y eq "" and $$m eq "" and $$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5505):
5505:	  $$y=$curr_y             if ($$y eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5506):
5506:	  $$y=_Date_FixYear($$y)  if (length($$y)<4);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5507):
5507:	  return 1                if (! _IsInt($$y,0,9999));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5508):
5508:	  $d_in_m[2]=29           if (Date_LeapYear($$y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5511):
5511:	  $$m=$curr_m             if ($$m eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5512):
5512:	  $$m=$Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)}
5513:	    if (exists $Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)});
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5514):
5514:	  $$m="0$$m"              if (length($$m)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5515):
5515:	  return 1                if (! _IsInt($$m,1,12));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5518):
5518:	  $$d="01"                if ($$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5519):
5519:	  $$d="0$$d"              if (length($$d)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5520):
5520:	  return 1                if (! _IsInt($$d,1,$d_in_m[$$m]));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5521):
5521:	  if ($$wk) {
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5528):
5528:	  return _Date_TimeCheck($h,$mn,$s,$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5431):
5431:	  print "DEBUG: _Date_TimeCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5432):
5432:	  my($h,$mn,$s,$ampm)=@_;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5433):
5433:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5435):
5435:	  $$h=""     if (! defined $$h);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5436):
5436:	  $$mn=""    if (! defined $$mn);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5437):
5437:	  $$s=""     if (! defined $$s);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5438):
5438:	  $$ampm=""  if (! defined $$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5439):
5439:	  $$ampm=uc($$ampm)  if ($$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5442):
5442:	  $tmp1=$Lang{$Cnf{"Language"}}{"AmPm"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5443):
5443:	  $tmp2="";
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5444):
5444:	  if ($$ampm =~ /^$tmp1$/i) {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5452):
5452:	  if ($tmp2 eq "AM" || $tmp2 eq "PM") {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5458):
5458:	    $$h="00"      if ($$h eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5459):
5459:	    $$h="0$$h"    if (length($$h)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5460):
5460:	    return 1      if (! _IsInt($$h,0,23));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5461):
5461:	    $tmp2="AM"    if ($$h<12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5462):
5462:	    $tmp2="PM"    if ($$h>=12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5464):
5464:	  $$ampm=$Lang{$Cnf{"Language"}}{"AMstr"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5465):
5465:	  $$ampm=$Lang{$Cnf{"Language"}}{"PMstr"}  if ($tmp2 eq "PM");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5468):
5468:	  $$mn="00"       if ($$mn eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5469):
5469:	  $$mn="0$$mn"    if (length($$mn)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5470):
5470:	  return 1        if (! _IsInt($$mn,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5473):
5473:	  $$s="00"        if ($$s eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5474):
5474:	  $$s="0$$s"      if (length($$s)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5475):
5475:	  return 1        if (! _IsInt($$s,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5477):
5477:	  return 0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:769):
769:	  $Curr{"Y"}=$y;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:770):
770:	  $Curr{"M"}=$m;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:771):
771:	  $Curr{"D"}=$d;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:772):
772:	  $Curr{"H"}=$h;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:773):
773:	  $Curr{"Mn"}=$mn;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:774):
774:	  $Curr{"S"}=$s;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:775):
775:	  $Curr{"AmPm"}=$ampm;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:776):
776:	  $Curr{"Now"}=_Date_Join($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4342):
4342:	  print "DEBUG: _Date_Join\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4343):
4343:	  foreach (0 .. $#_) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4346):
4346:	  my($y,$m,$d,$h,$mn,$s)=@_;
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4347):
4347:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4349):
4349:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4350):
4350:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4351):
4351:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4364):
4364:	  $m="0$m"    if (length($m)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4365):
4365:	  $d="0$d"    if (length($d)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4366):
4366:	  $h="0$h"    if (length($h)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4367):
4367:	  $mn="0$mn"  if (length($mn)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4368):
4368:	  $s="0$s"    if (length($s)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4369):
4369:	  "$y$ym$m$md$d$dh$h$hmn$mn$mns$s";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:777):
777:	  if ($Cnf{"TodayIsMidnight"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:780):
780:	    $Curr{"Today"}=$Curr{"Now"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:783):
783:	  $Curr{"Debug"}=$Curr{"DebugVal"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:788):
788:	  if (wantarray) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:804):
804:	  return ();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:818):
818:	  my($L)=$Cnf{"Language"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:819):
819:	  my($type)=$Cnf{"DateFormat"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:823):
823:	  if      ($Lang{$L}{"Exact"}  &&
824:	           s/$Lang{$L}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:857):
857:	  $delta="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:858):
858:	  $delta=ParseDateDelta($_)  if (/[^:0-9]/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1605):
1605:	  print "DEBUG: ParseDateDelta\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1606):
1606:	  my($args,@args,@a,$ref)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1607):
1607:	  local($_)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1608):
1608:	  @a=@_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1614):
1614:	  if ($#a!=0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1618):
1618:	  $args=$a[0];
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1619):
1619:	  $ref=ref $args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1620):
1620:	  if (! $ref) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1621):
1621:	    @args=($args);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1630):
1630:	  @a=@args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1638):
1638:	  my(@colon,@delta,$delta,$dir,$colon,$sign,$val)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1639):
1639:	  my($len,$tmp,$tmp2,$tmpl)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1640):
1640:	  my($from,$to)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1641):
1641:	  my($workweek)=$Cnf{"WorkWeekEnd"}-$Cnf{"WorkWeekBeg"}+1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1643):
1643:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1646):
1646:	  my($signexp)='((?:[+-]\s*)*)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1647):
1647:	  my($numexp)='(\d+)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1648):
1648:	  my($exp1)="(?: \\s* $signexp \\s* $numexp \\s*)";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1649):
1649:	  my($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp,$i)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1650):
1650:	  $yexp=$mexp=$wexp=$dexp=$hexp=$mnexp=$sexp="()()";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1651):
1651:	  $yexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Yabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1652):
1652:	  $mexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Mabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1653):
1653:	  $wexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Wabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1654):
1654:	  $dexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Dabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1655):
1655:	  $hexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Habb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1656):
1656:	  $mnexp="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"MNabb"}.")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1657):
1657:	  $sexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Sabb"} ."?)?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1658):
1658:	  my($future)=$Lang{$Cnf{"Language"}}{"Future"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1659):
1659:	  my($later)=$Lang{$Cnf{"Language"}}{"Later"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1660):
1660:	  my($past)=$Lang{$Cnf{"Language"}}{"Past"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1662):
1662:	  $delta="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1663):
1663:	 PARSE: while (@a) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1665):
1665:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1666):
1666:	    last  if ($_ eq "");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1670):
1670:	    if      ($Lang{$Cnf{"Language"}}{"Exact"} &&
1671:	             s/$Lang{$Cnf{"Language"}}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1682):
1682:	    $workweek=7  if ($Curr{"Mode"} != 2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1685):
1685:	      $to=$Lang{$Cnf{"Language"}}{"Repl"}{$from};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1686):
1686:	      s/(^|[^a-z])$from($|[^a-z])/$1$to$2/i;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1701):
1701:	    $len=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1702):
1702:	    $tmp=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1703):
1703:	    $dir=1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1705):
1705:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1706):
1706:	    if ($tmp2 =~ s/(^|[^a-z])($future)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1715):
1715:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1716):
1716:	    if ($tmp2 =~ s/(^|[^a-z])($later)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1725):
1725:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1726):
1726:	    if ($tmp2 =~ s/(^|[^a-z])($past)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1735):
1735:	    $_ = $tmp;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1736):
1736:	    s/\s*$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1739):
1739:	    $colon="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1740):
1740:	    if (s/($signexp?$numexp?(:($signexp?$numexp)?){1,6})$//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1744):
1744:	    @colon=split(/:/,$colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1747):
1747:	    $sign="+";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1748):
1748:	    @delta=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1749):
1749:	    $i=6;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1750):
1750:	    foreach $exp1 ($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1769):
1769:	    if (! /^\s*$/) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1782):
1782:	    }
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1775):
1775:	    for ($i=0; $i<=$#colon; $i++) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1785):
1785:	    push(@delta,@colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1786):
1786:	    if ($dir<0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1793):
1793:	    $delta=join(":",@delta);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1794):
1794:	    splice(@args,0,$#a+1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1795):
1795:	    @$args=@args  if (defined $ref  and  $ref eq "ARRAY");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1796):
1796:	    last PARSE;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1799):
1799:	  $delta=_Delta_Normalize($delta,$Curr{"Mode"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4209):
4209:	  print "DEBUG: _Delta_Normalize\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4210):
4210:	  my($delta,$mode)=@_;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4211):
4211:	  return "" if (! $delta);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4212):
4212:	  return "+0:+0:+0:+0:+0:+0:+0"
4213:	    if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/ and $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4214):
4214:	  return "+0:0:0:0:0:0:0" if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4216):
4216:	  my($tmp,$sign1,$sign2,$len)=();
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4219):
4219:	  $len=24*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4220):
4220:	  $len=$Curr{"WDlen"}  if ($mode==2 || $mode==3);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4226):
4226:	  my($y,$mon,$w,$d,$h,$m,$s)=_Delta_Split($delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4305):
4305:	  print "DEBUG: _Delta_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4306):
4306:	  my($delta,$sign,$exact)=@_;
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4307):
4307:	  my(@delta)=split(/:/,$delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4308):
4308:	  return ()  if ($exact  and $#delta != 6);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4309):
4309:	  my($i)=();
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4310):
4310:	  $sign="+"  if (! defined $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4316):
4316:	  }
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4311):
4311:	  for ($i=0; $i<=$#delta; $i++) {
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4317):
4317:	  @delta;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4235):
4235:	  $mon += $y*12;                         # convert y to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4236):
4236:	  $sign1="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4237):
4237:	  if ($mon<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4242):
4242:	  $y    = $mon/12;                       # convert m to y
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4243):
4243:	  $mon -= $y*12;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4245):
4245:	  $y=0    if ($y eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4246):
4246:	  $mon=0  if ($mon eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4253):
4253:	    no integer;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4255):
4255:	    if ($mode==3 || $mode==2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4258):
4258:	      $s += ($d+7*$w)*$len*60 + $h*3600 + $m*60; # convert w/d/h/m to s
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4260):
4260:	    $sign2="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4261):
4261:	    if ($s<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4266):
4266:	    $m  = int($s/60);                    # convert s to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4267):
4267:	    $s -= $m*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4268):
4268:	    $d  = int($m/$len);                  # convert m to d
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4269):
4269:	    $m -= $d*$len;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4273):
4273:	  $h  = $m/60;                           # convert m to h
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4274):
4274:	  $m -= $h*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4275):
4275:	  if ($mode == 3 || $mode == 2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4278):
4278:	    $w  = $d/7;                          # convert d to w
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4279):
4279:	    $d -= $w*7;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4282):
4282:	  $w=0    if ($w eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4283):
4283:	  $d=0    if ($d eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4284):
4284:	  $h=0    if ($h eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4285):
4285:	  $m=0    if ($m eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4286):
4286:	  $s=0    if ($s eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4289):
4289:	  $sign1=$sign2  if ($y==0 and $mon==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4290):
4290:	  $sign2=$sign1  if ($w==0 and $d==0 and $h==0 and $m==0 and $s==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4291):
4291:	  $sign2=""  if ($sign1 eq $sign2  and  ! $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4293):
4293:	  if ($Cnf{"DeltaSigns"}) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4296):
4296:	    return "$sign1$y:$mon:$sign2$w:$d:$h:$m:$s";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1800):
1800:	  return $delta;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:862):
862:	    my(@tmp)=_Date_Split($_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:861):
861:	 PARSE: {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4490):
4490:	  if ($definitely_valid) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4493):
4493:	  return ();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:863):
863:	    if (@tmp) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:870):
870:	    my($month)=$Lang{$L}{"Month"};          # (jan|january|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:872):
872:	    my($week)=$Lang{$L}{"Week"};            # (mon|monday|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:874):
874:	    my($wom)=$Lang{$L}{"WoM"};              # (1st|...|fifth|last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:876):
876:	    my($dom)=$Lang{$L}{"DoM"};              # (1st|first|...31st)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:878):
878:	    my($ampmexp)=$Lang{$L}{"AmPm"};         # (am|pm)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:879):
879:	    my($timeexp)=$Lang{$L}{"Times"};        # (noon|midnight)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:880):
880:	    my($now)=$Lang{$L}{"Now"};              # now
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:881):
881:	    my($today)=$Lang{$L}{"Today"};          # today
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:882):
882:	    my($offset)=$Lang{$L}{"Offset"};        # (yesterday|tomorrow)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:883):
883:	    my($zone)=$Zone{"zones"};               # (edt|est|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:884):
884:	    my($day)='\s*'.$Lang{$L}{"Dabb"};       # \s*(?:d|day|days)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:885):
885:	    my($mabb)='\s*'.$Lang{$L}{"Mabb"};      # \s*(?:mon|month|months)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:886):
886:	    my($wkabb)='\s*'.$Lang{$L}{"Wabb"};     # \s*(?:w|wk|week|weeks)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:887):
887:	    my($next)='\s*'.$Lang{$L}{"Next"};      # \s*(?:next)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:888):
888:	    my($prev)='\s*'.$Lang{$L}{"Prev"};      # \s*(?:last|previous)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:889):
889:	    my($past)='\s*'.$Lang{$L}{"Past"};      # \s*(?:ago)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:890):
890:	    my($future)='\s*'.$Lang{$L}{"Future"};  # \s*(?:in)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:891):
891:	    my($later)='\s*'.$Lang{$L}{"Later"};    # \s*(?:later)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:892):
892:	    my($at)=$Lang{$L}{"At"};                # (?:at)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:893):
893:	    my($of)='\s*'.$Lang{$L}{"Of"};          # \s*(?:in|of)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:894):
894:	    my($on)='(?:\s*'.$Lang{$L}{"On"}.'\s*|\s+)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:896):
896:	    my($last)='\s*'.$Lang{$L}{"Last"};      # \s*(?:last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:897):
897:	    my($hm)=$Lang{$L}{"SepHM"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:898):
898:	    my($ms)=$Lang{$L}{"SepMS"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:899):
899:	    my($ss)=$Lang{$L}{"SepSS"};             # .
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:903):
903:	    my($D4)='(\d{4})';            	    # 4 digits      (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:904):
904:	    my($YY)='(\d{4}|\d{2})';      	    # 2 or 4 digits (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:905):
905:	    my($DD)='(\d{2})';            	    # 2 digits      (mon/day/hr/min/sec)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:906):
906:	    my($D) ='(\d{1,2})';          	    # 1 or 2 digit  (mon/day/hr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:907):
907:	    my($FS)="(?:$ss\\d+)?";       	    # fractional secs
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:908):
908:	    my($sep)='[\/.-]';            	    # non-ISO8601 m/d/yy separators
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:910):
910:	    my($hzone)='(?:[0-1][0-9]|2[0-3])';     # 00 - 23
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:911):
911:	    my($mzone)='(?:[0-5][0-9])';            # 00 - 59
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:912):
912:	    my($zone2)='(?:\s*([+-](?:'."$hzone$mzone|$hzone:$mzone|$hzone))".
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:917):
917:	    my($mnsec)="$hm$DD(?:$ms$DD$FS)?(?:\\s*$ampmexp)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:920):
920:	    my($apachetime)='(/\d{4}):' . "$DD$hm$DD$ms$DD";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:922):
922:	    my($time)="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:923):
923:	    $ampm="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:924):
924:	    $date="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:927):
927:	    if (/(^|[^a-z])$timeexp($|[^a-z])/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:934):
934:	    s/[,]/ /g;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:940):
940:	    $tmp = "";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:941):
941:	    while ( s/^(.*?\d)$zone(\s|$|[0-9])/$3/i ) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:949):
949:	    $_ = "$tmp$_";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:950):
950:	    $zone = '\s+' . $zone . '(?:\s+|$)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:953):
953:	    $iso=1;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:954):
954:	    $midnight=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:955):
955:	    $from="24${hm}00(?:${ms}00)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:956):
956:	    $falsefrom="${hm}24${ms}00";   # Don't trap XX:24:00
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:957):
957:	    $to="00${hm}00${ms}00";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:958):
958:	    $midnight=1  if (!/$falsefrom/  &&  s/$from/$to/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:960):
960:	    $h=$mn=$s=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:961):
961:	    if (/$D$mnsec/i || /$ampmexp/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1001):
1001:	    $time=0  if ($time ne "1");
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1002):
1002:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1003):
1003:	    s/^\s+//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1006):
1006:	    if ($z) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1012):
1012:	    my($orig)=$_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1015):
1015:	    if ( ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone?$/i)   ||
1016:	         ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone2?$/i)  ||
1017:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone?$/i)   ||
1018:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone2?$/i)  ||
1019:	         ($iso && /^([0-9-]+)T$zone?$/i)   ||
1020:	         ($iso && /^([0-9-]+)T$zone2?$/i)  ||
1021:	         0) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1024):
1024:	      my(@z);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1025):
1025:	      if ($z) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1029):
1029:	      ($_,$z,$z2) = ($1,$2,$3);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1030):
1030:	      ($z,$z2)=@z  if (@z);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1032):
1032:	      s,([0-9])\s*-,$1 ,g; # Change all ISO8601 seps to spaces
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1033):
1033:	      s/^\s+//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1034):
1034:	      s/\s+$//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1036):
1036:	      if (/^$D4\s*$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i ||
1037:	          /^$DD\s+$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i ||
1038:	          0
1039:	         ) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1050):
1050:	        ($y,$m,$d,$h,$mn,$s,$tmp)=($1,$2,$3,$4,$5,$6,$7);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1051):
1051:	        if ($h==24 && (! defined $mn || $mn==0) && (! defined $s || $s==0)) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1055):
1055:	        $z = ""    if (! defined $h);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1056):
1056:	        return ""  if ($time  &&  defined $h);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1057):
1057:	        last PARSE;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1450):
1450:	  if (! $date) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1451):
1451:	    return ""  if (_Date_DateCheck(\$y,\$m,\$d,\$h,\$mn,\$s,\$ampm,\$wk));
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5489):
5489:	  print "DEBUG: _Date_DateCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5490):
5490:	  my($y,$m,$d,$h,$mn,$s,$ampm,$wk)=@_;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5491):
5491:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5493):
5493:	  my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5494):
5494:	  my($curr_y)=$Curr{"Y"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5495):
5495:	  my($curr_m)=$Curr{"M"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5496):
5496:	  my($curr_d)=$Curr{"D"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5497):
5497:	  $$m=1, $$d=1  if (defined $$y and ! defined $$m and ! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5498):
5498:	  $$y=""     if (! defined $$y);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5499):
5499:	  $$m=""     if (! defined $$m);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5500):
5500:	  $$d=""     if (! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5501):
5501:	  $$wk=""    if (! defined $$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5502):
5502:	  $$d=$curr_d  if ($$y eq "" and $$m eq "" and $$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5505):
5505:	  $$y=$curr_y             if ($$y eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5506):
5506:	  $$y=_Date_FixYear($$y)  if (length($$y)<4);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5507):
5507:	  return 1                if (! _IsInt($$y,0,9999));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5508):
5508:	  $d_in_m[2]=29           if (Date_LeapYear($$y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5511):
5511:	  $$m=$curr_m             if ($$m eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5512):
5512:	  $$m=$Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)}
5513:	    if (exists $Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)});
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5514):
5514:	  $$m="0$$m"              if (length($$m)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5515):
5515:	  return 1                if (! _IsInt($$m,1,12));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5518):
5518:	  $$d="01"                if ($$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5519):
5519:	  $$d="0$$d"              if (length($$d)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5520):
5520:	  return 1                if (! _IsInt($$d,1,$d_in_m[$$m]));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5521):
5521:	  if ($$wk) {
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5528):
5528:	  return _Date_TimeCheck($h,$mn,$s,$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5431):
5431:	  print "DEBUG: _Date_TimeCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5432):
5432:	  my($h,$mn,$s,$ampm)=@_;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5433):
5433:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5435):
5435:	  $$h=""     if (! defined $$h);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5436):
5436:	  $$mn=""    if (! defined $$mn);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5437):
5437:	  $$s=""     if (! defined $$s);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5438):
5438:	  $$ampm=""  if (! defined $$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5439):
5439:	  $$ampm=uc($$ampm)  if ($$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5442):
5442:	  $tmp1=$Lang{$Cnf{"Language"}}{"AmPm"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5443):
5443:	  $tmp2="";
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5444):
5444:	  if ($$ampm =~ /^$tmp1$/i) {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5452):
5452:	  if ($tmp2 eq "AM" || $tmp2 eq "PM") {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5458):
5458:	    $$h="00"      if ($$h eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5459):
5459:	    $$h="0$$h"    if (length($$h)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5460):
5460:	    return 1      if (! _IsInt($$h,0,23));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5461):
5461:	    $tmp2="AM"    if ($$h<12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5462):
5462:	    $tmp2="PM"    if ($$h>=12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5464):
5464:	  $$ampm=$Lang{$Cnf{"Language"}}{"AMstr"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5465):
5465:	  $$ampm=$Lang{$Cnf{"Language"}}{"PMstr"}  if ($tmp2 eq "PM");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5468):
5468:	  $$mn="00"       if ($$mn eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5469):
5469:	  $$mn="0$$mn"    if (length($$mn)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5470):
5470:	  return 1        if (! _IsInt($$mn,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5473):
5473:	  $$s="00"        if ($$s eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5474):
5474:	  $$s="0$$s"      if (length($$s)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5475):
5475:	  return 1        if (! _IsInt($$s,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5477):
5477:	  return 0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1452):
1452:	    $date=_Date_Join($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4342):
4342:	  print "DEBUG: _Date_Join\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4343):
4343:	  foreach (0 .. $#_) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4346):
4346:	  my($y,$m,$d,$h,$mn,$s)=@_;
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4347):
4347:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4349):
4349:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4350):
4350:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4351):
4351:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4364):
4364:	  $m="0$m"    if (length($m)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4365):
4365:	  $d="0$d"    if (length($d)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4366):
4366:	  $h="0$h"    if (length($h)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4367):
4367:	  $mn="0$mn"  if (length($mn)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4368):
4368:	  $s="0$s"    if (length($s)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4369):
4369:	  "$y$ym$m$md$d$dh$h$hmn$mn$mns$s";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1454):
1454:	  $date=Date_ConvTZ($date,$z);
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3428):
3428:	  print "DEBUG: Date_ConvTZ\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3429):
3429:	  my($date,$from,$to,$level)=@_;
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3430):
3430:	  if (not _Date_Split($date)) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4474):
4474:	    ($y,$m,$d,$h,$mn,$s)=($1,$2,$3,$4,$5,$6);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4475):
4475:	    my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4476):
4476:	    $d_in_m[2]=29  if (Date_LeapYear($y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4477):
4477:	    if ($d>$d_in_m[$m]) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4487):
4487:	    return ($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3440):
3440:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3441):
3441:	  my($gmt)=();
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3443):
3443:	  if (! $from) {
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3445):
3445:	    if (! $to) {
  DB<1> Date::Manip::Date_ConvTZ(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3447):
3447:	      return $date  if ($Cnf{"ConvTZ"} eq "IGNORE" or ! $Cnf{"ConvTZ"});
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1455):
1455:	  if ($midnight) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1458):
1458:	  return $date;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1560):
1560:	    if (_Date_Split($D1)) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4490):
4490:	  if ($definitely_valid) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4493):
4493:	  return ();
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1563):
1563:	      push(@date,$tmp);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1574):
1574:	  if ($tmp=ParseDateString($D2)) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:808):
808:	  print "DEBUG: ParseDateString\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:809):
809:	  local($_)=@_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:810):
810:	  return ""  if (! $_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:812):
812:	  my($y,$m,$d,$h,$mn,$s,$i,$wofm,$dofw,$wk,$tmp,$z,$num,$err,$iso,$ampm)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:813):
813:	  my($date,$z2,$delta,$from,$falsefrom,$to,$which,$midnight)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:816):
816:	  Date_Init()  if (! $Curr{"InitDone"}  or  $Cnf{"UpdateCurrTZ"});
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:818):
818:	  my($L)=$Cnf{"Language"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:819):
819:	  my($type)=$Cnf{"DateFormat"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:823):
823:	  if      ($Lang{$L}{"Exact"}  &&
824:	           s/$Lang{$L}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:857):
857:	  $delta="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:858):
858:	  $delta=ParseDateDelta($_)  if (/[^:0-9]/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1605):
1605:	  print "DEBUG: ParseDateDelta\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1606):
1606:	  my($args,@args,@a,$ref)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1607):
1607:	  local($_)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1608):
1608:	  @a=@_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1614):
1614:	  if ($#a!=0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1618):
1618:	  $args=$a[0];
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1619):
1619:	  $ref=ref $args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1620):
1620:	  if (! $ref) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1621):
1621:	    @args=($args);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1630):
1630:	  @a=@args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1638):
1638:	  my(@colon,@delta,$delta,$dir,$colon,$sign,$val)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1639):
1639:	  my($len,$tmp,$tmp2,$tmpl)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1640):
1640:	  my($from,$to)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1641):
1641:	  my($workweek)=$Cnf{"WorkWeekEnd"}-$Cnf{"WorkWeekBeg"}+1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1643):
1643:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1646):
1646:	  my($signexp)='((?:[+-]\s*)*)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1647):
1647:	  my($numexp)='(\d+)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1648):
1648:	  my($exp1)="(?: \\s* $signexp \\s* $numexp \\s*)";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1649):
1649:	  my($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp,$i)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1650):
1650:	  $yexp=$mexp=$wexp=$dexp=$hexp=$mnexp=$sexp="()()";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1651):
1651:	  $yexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Yabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1652):
1652:	  $mexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Mabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1653):
1653:	  $wexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Wabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1654):
1654:	  $dexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Dabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1655):
1655:	  $hexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Habb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1656):
1656:	  $mnexp="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"MNabb"}.")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1657):
1657:	  $sexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Sabb"} ."?)?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1658):
1658:	  my($future)=$Lang{$Cnf{"Language"}}{"Future"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1659):
1659:	  my($later)=$Lang{$Cnf{"Language"}}{"Later"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1660):
1660:	  my($past)=$Lang{$Cnf{"Language"}}{"Past"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1662):
1662:	  $delta="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1663):
1663:	 PARSE: while (@a) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1665):
1665:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1666):
1666:	    last  if ($_ eq "");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1670):
1670:	    if      ($Lang{$Cnf{"Language"}}{"Exact"} &&
1671:	             s/$Lang{$Cnf{"Language"}}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1682):
1682:	    $workweek=7  if ($Curr{"Mode"} != 2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1685):
1685:	      $to=$Lang{$Cnf{"Language"}}{"Repl"}{$from};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1686):
1686:	      s/(^|[^a-z])$from($|[^a-z])/$1$to$2/i;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1701):
1701:	    $len=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1702):
1702:	    $tmp=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1703):
1703:	    $dir=1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1705):
1705:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1706):
1706:	    if ($tmp2 =~ s/(^|[^a-z])($future)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1715):
1715:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1716):
1716:	    if ($tmp2 =~ s/(^|[^a-z])($later)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1725):
1725:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1726):
1726:	    if ($tmp2 =~ s/(^|[^a-z])($past)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1735):
1735:	    $_ = $tmp;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1736):
1736:	    s/\s*$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1739):
1739:	    $colon="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1740):
1740:	    if (s/($signexp?$numexp?(:($signexp?$numexp)?){1,6})$//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1744):
1744:	    @colon=split(/:/,$colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1747):
1747:	    $sign="+";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1748):
1748:	    @delta=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1749):
1749:	    $i=6;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1750):
1750:	    foreach $exp1 ($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1769):
1769:	    if (! /^\s*$/) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1782):
1782:	    }
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1775):
1775:	    for ($i=0; $i<=$#colon; $i++) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1785):
1785:	    push(@delta,@colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1786):
1786:	    if ($dir<0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1793):
1793:	    $delta=join(":",@delta);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1794):
1794:	    splice(@args,0,$#a+1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1795):
1795:	    @$args=@args  if (defined $ref  and  $ref eq "ARRAY");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1796):
1796:	    last PARSE;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1799):
1799:	  $delta=_Delta_Normalize($delta,$Curr{"Mode"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4209):
4209:	  print "DEBUG: _Delta_Normalize\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4210):
4210:	  my($delta,$mode)=@_;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4211):
4211:	  return "" if (! $delta);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4212):
4212:	  return "+0:+0:+0:+0:+0:+0:+0"
4213:	    if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/ and $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4214):
4214:	  return "+0:0:0:0:0:0:0" if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4216):
4216:	  my($tmp,$sign1,$sign2,$len)=();
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4219):
4219:	  $len=24*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4220):
4220:	  $len=$Curr{"WDlen"}  if ($mode==2 || $mode==3);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4226):
4226:	  my($y,$mon,$w,$d,$h,$m,$s)=_Delta_Split($delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4305):
4305:	  print "DEBUG: _Delta_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4306):
4306:	  my($delta,$sign,$exact)=@_;
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4307):
4307:	  my(@delta)=split(/:/,$delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4308):
4308:	  return ()  if ($exact  and $#delta != 6);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4309):
4309:	  my($i)=();
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4310):
4310:	  $sign="+"  if (! defined $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4316):
4316:	  }
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4311):
4311:	  for ($i=0; $i<=$#delta; $i++) {
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4317):
4317:	  @delta;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4235):
4235:	  $mon += $y*12;                         # convert y to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4236):
4236:	  $sign1="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4237):
4237:	  if ($mon<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4242):
4242:	  $y    = $mon/12;                       # convert m to y
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4243):
4243:	  $mon -= $y*12;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4245):
4245:	  $y=0    if ($y eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4246):
4246:	  $mon=0  if ($mon eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4253):
4253:	    no integer;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4255):
4255:	    if ($mode==3 || $mode==2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4258):
4258:	      $s += ($d+7*$w)*$len*60 + $h*3600 + $m*60; # convert w/d/h/m to s
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4260):
4260:	    $sign2="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4261):
4261:	    if ($s<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4262):
4262:	      $s*=-1;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4263):
4263:	      $sign2="-";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4266):
4266:	    $m  = int($s/60);                    # convert s to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4267):
4267:	    $s -= $m*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4268):
4268:	    $d  = int($m/$len);                  # convert m to d
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4269):
4269:	    $m -= $d*$len;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4273):
4273:	  $h  = $m/60;                           # convert m to h
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4274):
4274:	  $m -= $h*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4275):
4275:	  if ($mode == 3 || $mode == 2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4278):
4278:	    $w  = $d/7;                          # convert d to w
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4279):
4279:	    $d -= $w*7;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4282):
4282:	  $w=0    if ($w eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4283):
4283:	  $d=0    if ($d eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4284):
4284:	  $h=0    if ($h eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4285):
4285:	  $m=0    if ($m eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4286):
4286:	  $s=0    if ($s eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4289):
4289:	  $sign1=$sign2  if ($y==0 and $mon==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4290):
4290:	  $sign2=$sign1  if ($w==0 and $d==0 and $h==0 and $m==0 and $s==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4291):
4291:	  $sign2=""  if ($sign1 eq $sign2  and  ! $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4293):
4293:	  if ($Cnf{"DeltaSigns"}) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4296):
4296:	    return "$sign1$y:$mon:$sign2$w:$d:$h:$m:$s";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1800):
1800:	  return $delta;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:862):
862:	    my(@tmp)=_Date_Split($_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:861):
861:	 PARSE: {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4490):
4490:	  if ($definitely_valid) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4493):
4493:	  return ();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:863):
863:	    if (@tmp) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:870):
870:	    my($month)=$Lang{$L}{"Month"};          # (jan|january|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:872):
872:	    my($week)=$Lang{$L}{"Week"};            # (mon|monday|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:874):
874:	    my($wom)=$Lang{$L}{"WoM"};              # (1st|...|fifth|last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:876):
876:	    my($dom)=$Lang{$L}{"DoM"};              # (1st|first|...31st)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:878):
878:	    my($ampmexp)=$Lang{$L}{"AmPm"};         # (am|pm)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:879):
879:	    my($timeexp)=$Lang{$L}{"Times"};        # (noon|midnight)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:880):
880:	    my($now)=$Lang{$L}{"Now"};              # now
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:881):
881:	    my($today)=$Lang{$L}{"Today"};          # today
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:882):
882:	    my($offset)=$Lang{$L}{"Offset"};        # (yesterday|tomorrow)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:883):
883:	    my($zone)=$Zone{"zones"};               # (edt|est|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:884):
884:	    my($day)='\s*'.$Lang{$L}{"Dabb"};       # \s*(?:d|day|days)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:885):
885:	    my($mabb)='\s*'.$Lang{$L}{"Mabb"};      # \s*(?:mon|month|months)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:886):
886:	    my($wkabb)='\s*'.$Lang{$L}{"Wabb"};     # \s*(?:w|wk|week|weeks)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:887):
887:	    my($next)='\s*'.$Lang{$L}{"Next"};      # \s*(?:next)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:888):
888:	    my($prev)='\s*'.$Lang{$L}{"Prev"};      # \s*(?:last|previous)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:889):
889:	    my($past)='\s*'.$Lang{$L}{"Past"};      # \s*(?:ago)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:890):
890:	    my($future)='\s*'.$Lang{$L}{"Future"};  # \s*(?:in)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:891):
891:	    my($later)='\s*'.$Lang{$L}{"Later"};    # \s*(?:later)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:892):
892:	    my($at)=$Lang{$L}{"At"};                # (?:at)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:893):
893:	    my($of)='\s*'.$Lang{$L}{"Of"};          # \s*(?:in|of)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:894):
894:	    my($on)='(?:\s*'.$Lang{$L}{"On"}.'\s*|\s+)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:896):
896:	    my($last)='\s*'.$Lang{$L}{"Last"};      # \s*(?:last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:897):
897:	    my($hm)=$Lang{$L}{"SepHM"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:898):
898:	    my($ms)=$Lang{$L}{"SepMS"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:899):
899:	    my($ss)=$Lang{$L}{"SepSS"};             # .
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:903):
903:	    my($D4)='(\d{4})';            	    # 4 digits      (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:904):
904:	    my($YY)='(\d{4}|\d{2})';      	    # 2 or 4 digits (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:905):
905:	    my($DD)='(\d{2})';            	    # 2 digits      (mon/day/hr/min/sec)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:906):
906:	    my($D) ='(\d{1,2})';          	    # 1 or 2 digit  (mon/day/hr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:907):
907:	    my($FS)="(?:$ss\\d+)?";       	    # fractional secs
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:908):
908:	    my($sep)='[\/.-]';            	    # non-ISO8601 m/d/yy separators
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:910):
910:	    my($hzone)='(?:[0-1][0-9]|2[0-3])';     # 00 - 23
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:911):
911:	    my($mzone)='(?:[0-5][0-9])';            # 00 - 59
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:912):
912:	    my($zone2)='(?:\s*([+-](?:'."$hzone$mzone|$hzone:$mzone|$hzone))".
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:917):
917:	    my($mnsec)="$hm$DD(?:$ms$DD$FS)?(?:\\s*$ampmexp)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:920):
920:	    my($apachetime)='(/\d{4}):' . "$DD$hm$DD$ms$DD";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:922):
922:	    my($time)="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:923):
923:	    $ampm="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:924):
924:	    $date="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:927):
927:	    if (/(^|[^a-z])$timeexp($|[^a-z])/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:934):
934:	    s/[,]/ /g;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:940):
940:	    $tmp = "";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:941):
941:	    while ( s/^(.*?\d)$zone(\s|$|[0-9])/$3/i ) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:949):
949:	    $_ = "$tmp$_";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:950):
950:	    $zone = '\s+' . $zone . '(?:\s+|$)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:953):
953:	    $iso=1;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:954):
954:	    $midnight=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:955):
955:	    $from="24${hm}00(?:${ms}00)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:956):
956:	    $falsefrom="${hm}24${ms}00";   # Don't trap XX:24:00
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:957):
957:	    $to="00${hm}00${ms}00";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:958):
958:	    $midnight=1  if (!/$falsefrom/  &&  s/$from/$to/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:960):
960:	    $h=$mn=$s=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:961):
961:	    if (/$D$mnsec/i || /$ampmexp/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1001):
1001:	    $time=0  if ($time ne "1");
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1002):
1002:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1003):
1003:	    s/^\s+//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1006):
1006:	    if ($z) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1012):
1012:	    my($orig)=$_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1015):
1015:	    if ( ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone?$/i)   ||
1016:	         ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone2?$/i)  ||
1017:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone?$/i)   ||
1018:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone2?$/i)  ||
1019:	         ($iso && /^([0-9-]+)T$zone?$/i)   ||
1020:	         ($iso && /^([0-9-]+)T$zone2?$/i)  ||
1021:	         0) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1100):
1100:	    return ""  if ($Curr{"InCalc"}  &&  $delta);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1605):
1605:	  print "DEBUG: ParseDateDelta\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1606):
1606:	  my($args,@args,@a,$ref)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1607):
1607:	  local($_)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1608):
1608:	  @a=@_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1614):
1614:	  if ($#a!=0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1618):
1618:	  $args=$a[0];
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1619):
1619:	  $ref=ref $args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1620):
1620:	  if (! $ref) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1621):
1621:	    @args=($args);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1630):
1630:	  @a=@args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1638):
1638:	  my(@colon,@delta,$delta,$dir,$colon,$sign,$val)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1639):
1639:	  my($len,$tmp,$tmp2,$tmpl)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1640):
1640:	  my($from,$to)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1641):
1641:	  my($workweek)=$Cnf{"WorkWeekEnd"}-$Cnf{"WorkWeekBeg"}+1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1643):
1643:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1646):
1646:	  my($signexp)='((?:[+-]\s*)*)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1647):
1647:	  my($numexp)='(\d+)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1648):
1648:	  my($exp1)="(?: \\s* $signexp \\s* $numexp \\s*)";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1649):
1649:	  my($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp,$i)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1650):
1650:	  $yexp=$mexp=$wexp=$dexp=$hexp=$mnexp=$sexp="()()";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1651):
1651:	  $yexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Yabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1652):
1652:	  $mexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Mabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1653):
1653:	  $wexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Wabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1654):
1654:	  $dexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Dabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1655):
1655:	  $hexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Habb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1656):
1656:	  $mnexp="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"MNabb"}.")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1657):
1657:	  $sexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Sabb"} ."?)?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1658):
1658:	  my($future)=$Lang{$Cnf{"Language"}}{"Future"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1659):
1659:	  my($later)=$Lang{$Cnf{"Language"}}{"Later"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1660):
1660:	  my($past)=$Lang{$Cnf{"Language"}}{"Past"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1662):
1662:	  $delta="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1663):
1663:	 PARSE: while (@a) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1665):
1665:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1666):
1666:	    last  if ($_ eq "");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1670):
1670:	    if      ($Lang{$Cnf{"Language"}}{"Exact"} &&
1671:	             s/$Lang{$Cnf{"Language"}}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1682):
1682:	    $workweek=7  if ($Curr{"Mode"} != 2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1685):
1685:	      $to=$Lang{$Cnf{"Language"}}{"Repl"}{$from};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1686):
1686:	      s/(^|[^a-z])$from($|[^a-z])/$1$to$2/i;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1701):
1701:	    $len=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1702):
1702:	    $tmp=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1703):
1703:	    $dir=1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1705):
1705:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1706):
1706:	    if ($tmp2 =~ s/(^|[^a-z])($future)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1715):
1715:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1716):
1716:	    if ($tmp2 =~ s/(^|[^a-z])($later)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1725):
1725:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1726):
1726:	    if ($tmp2 =~ s/(^|[^a-z])($past)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1735):
1735:	    $_ = $tmp;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1736):
1736:	    s/\s*$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1739):
1739:	    $colon="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1740):
1740:	    if (s/($signexp?$numexp?(:($signexp?$numexp)?){1,6})$//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1744):
1744:	    @colon=split(/:/,$colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1747):
1747:	    $sign="+";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1748):
1748:	    @delta=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1749):
1749:	    $i=6;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1750):
1750:	    foreach $exp1 ($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1769):
1769:	    if (! /^\s*$/) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1782):
1782:	    }
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1775):
1775:	    for ($i=0; $i<=$#colon; $i++) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1785):
1785:	    push(@delta,@colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1786):
1786:	    if ($dir<0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1793):
1793:	    $delta=join(":",@delta);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1794):
1794:	    splice(@args,0,$#a+1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1795):
1795:	    @$args=@args  if (defined $ref  and  $ref eq "ARRAY");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1796):
1796:	    last PARSE;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1799):
1799:	  $delta=_Delta_Normalize($delta,$Curr{"Mode"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4209):
4209:	  print "DEBUG: _Delta_Normalize\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4210):
4210:	  my($delta,$mode)=@_;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4211):
4211:	  return "" if (! $delta);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4212):
4212:	  return "+0:+0:+0:+0:+0:+0:+0"
4213:	    if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/ and $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4214):
4214:	  return "+0:0:0:0:0:0:0" if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4216):
4216:	  my($tmp,$sign1,$sign2,$len)=();
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4219):
4219:	  $len=24*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4220):
4220:	  $len=$Curr{"WDlen"}  if ($mode==2 || $mode==3);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4226):
4226:	  my($y,$mon,$w,$d,$h,$m,$s)=_Delta_Split($delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4305):
4305:	  print "DEBUG: _Delta_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4306):
4306:	  my($delta,$sign,$exact)=@_;
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4307):
4307:	  my(@delta)=split(/:/,$delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4308):
4308:	  return ()  if ($exact  and $#delta != 6);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4309):
4309:	  my($i)=();
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4310):
4310:	  $sign="+"  if (! defined $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4316):
4316:	  }
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4311):
4311:	  for ($i=0; $i<=$#delta; $i++) {
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4317):
4317:	  @delta;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4235):
4235:	  $mon += $y*12;                         # convert y to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4236):
4236:	  $sign1="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4237):
4237:	  if ($mon<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4242):
4242:	  $y    = $mon/12;                       # convert m to y
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4243):
4243:	  $mon -= $y*12;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4245):
4245:	  $y=0    if ($y eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4246):
4246:	  $mon=0  if ($mon eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4253):
4253:	    no integer;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4255):
4255:	    if ($mode==3 || $mode==2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4258):
4258:	      $s += ($d+7*$w)*$len*60 + $h*3600 + $m*60; # convert w/d/h/m to s
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4260):
4260:	    $sign2="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4261):
4261:	    if ($s<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4262):
4262:	      $s*=-1;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4263):
4263:	      $sign2="-";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4266):
4266:	    $m  = int($s/60);                    # convert s to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4267):
4267:	    $s -= $m*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4268):
4268:	    $d  = int($m/$len);                  # convert m to d
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4269):
4269:	    $m -= $d*$len;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4273):
4273:	  $h  = $m/60;                           # convert m to h
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4274):
4274:	  $m -= $h*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4275):
4275:	  if ($mode == 3 || $mode == 2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4278):
4278:	    $w  = $d/7;                          # convert d to w
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4279):
4279:	    $d -= $w*7;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4282):
4282:	  $w=0    if ($w eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4283):
4283:	  $d=0    if ($d eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4284):
4284:	  $h=0    if ($h eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4285):
4285:	  $m=0    if ($m eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4286):
4286:	  $s=0    if ($s eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4289):
4289:	  $sign1=$sign2  if ($y==0 and $mon==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4290):
4290:	  $sign2=$sign1  if ($w==0 and $d==0 and $h==0 and $m==0 and $s==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4291):
4291:	  $sign2=""  if ($sign1 eq $sign2  and  ! $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4293):
4293:	  if ($Cnf{"DeltaSigns"}) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4296):
4296:	    return "$sign1$y:$mon:$sign2$w:$d:$h:$m:$s";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1800):
1800:	  return $delta;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1581):
1581:	    push(@delta,$tmp);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1582):
1582:	    $mode = $Curr{"Mode"};
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1590):
1590:	  $Curr{"InCalc"} = $oldincalc;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1591):
1591:	  $Curr{"Mode"}   = $oldmode;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1593):
1593:	  if ($#date==1) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1596):
1596:	    $ret=_DateCalc_DateDelta(@date,@delta,\$err,$mode);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4907):
4907:	  print "DEBUG: _DateCalc_DateDelta\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4908):
4908:	  my($D1,$D2,$errref,$mode)=@_;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4909):
4909:	  my($date)=();
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4910):
4910:	  my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4911):
4911:	  my($h1,$m1,$h2,$m2,$len,$hh,$mm)=();
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4912):
4912:	  $mode=0  if (! defined $mode);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4914):
4914:	  if ($mode==2 || $mode==3) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4928):
4928:	  my($y,$m,$d,$h,$mn,$s)=_Date_Split($D1, 1);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4474):
4474:	    ($y,$m,$d,$h,$mn,$s)=($1,$2,$3,$4,$5,$6);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4475):
4475:	    my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4476):
4476:	    $d_in_m[2]=29  if (Date_LeapYear($y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4477):
4477:	    if ($d>$d_in_m[$m]) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4487):
4487:	    return ($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4929):
4929:	  my($dy,$dm,$dw,$dd,$dh,$dmn,$ds)=_Delta_Split($D2);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4305):
4305:	  print "DEBUG: _Delta_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4306):
4306:	  my($delta,$sign,$exact)=@_;
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4307):
4307:	  my(@delta)=split(/:/,$delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4308):
4308:	  return ()  if ($exact  and $#delta != 6);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4309):
4309:	  my($i)=();
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4310):
4310:	  $sign="+"  if (! defined $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4316):
4316:	  }
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4311):
4311:	  for ($i=0; $i<=$#delta; $i++) {
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4317):
4317:	  @delta;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4932):
4932:	  $y+=$dy;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4933):
4933:	  while (length($y)<4) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4936):
4936:	  _ModuloAddition(-12,$dm,\$m,\$y);   # -12 means 1-12 instead of 0-11
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7298):
7298:	  my($N,$add,$val,$rem)=@_;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7299):
7299:	  return  if ($N==0);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7300):
7300:	  $$val+=$add;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7301):
7301:	  if ($N<0) {
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7303):
7303:	    $N = -$N;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7304):
7304:	    if ($$val>$N) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4937):
4937:	  $d_in_m[2]=29  if (Date_LeapYear($y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4941):
4941:	  if ($d>$d_in_m[$m]) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4946):
4946:	  if ($mode==0  ||  $mode==1) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4947):
4947:	    $dd += $dw*7;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4956):
4956:	  if ($mode==2 || $mode==3) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4963):
4963:	  _ModuloAddition(60,$ds,\$s,\$mn);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7298):
7298:	  my($N,$add,$val,$rem)=@_;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7299):
7299:	  return  if ($N==0);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7300):
7300:	  $$val+=$add;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7301):
7301:	  if ($N<0) {
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7314):
7314:	    if ($$val>($N-1)) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4964):
4964:	  if ($mode==2 || $mode==3) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4994):
4994:	    _ModuloAddition(60,$dmn,\$mn,\$h);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7298):
7298:	  my($N,$add,$val,$rem)=@_;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7299):
7299:	  return  if ($N==0);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7300):
7300:	  $$val+=$add;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7301):
7301:	  if ($N<0) {
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7314):
7314:	    if ($$val>($N-1)) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4995):
4995:	    _ModuloAddition(24,$dh,\$h,\$d);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7298):
7298:	  my($N,$add,$val,$rem)=@_;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7299):
7299:	  return  if ($N==0);
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7300):
7300:	  $$val+=$add;
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7301):
7301:	  if ($N<0) {
  DB<1> Date::Manip::_ModuloAddition(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7314):
7314:	    if ($$val>($N-1)) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5000):
5000:	  if ($d>$d_in_m[$m]) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5006):
5006:	  if ($mode==2 || $mode==3) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5015):
5015:	    $d_in_m[2]=29  if (Date_LeapYear($y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5016):
5016:	    $d=$d_in_m[$m]  if ($d>$d_in_m[$m]);
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5017):
5017:	    $d += $dd;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5018):
5018:	    while ($d<1) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5019):
5019:	      $m--;
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5020):
5020:	      if ($m==0) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5029):
5029:	      $d += $d_in_m[$m];
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5031):
5031:	    while ($d>$d_in_m[$m]) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5046):
5046:	  if ($y<0 or $y>9999) {
  DB<1> Date::Manip::_DateCalc_DateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5050):
5050:	  _Date_Join($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4342):
4342:	  print "DEBUG: _Date_Join\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4343):
4343:	  foreach (0 .. $#_) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4346):
4346:	  my($y,$m,$d,$h,$mn,$s)=@_;
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4347):
4347:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4349):
4349:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4350):
4350:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4351):
4351:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4364):
4364:	  $m="0$m"    if (length($m)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4365):
4365:	  $d="0$d"    if (length($d)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4366):
4366:	  $h="0$h"    if (length($h)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4367):
4367:	  $mn="0$mn"  if (length($mn)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4368):
4368:	  $s="0$s"    if (length($s)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4369):
4369:	  "$y$ym$m$md$d$dh$h$hmn$mn$mns$s";
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1597):
1597:	    $$errref=$err  if ($ref);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1601):
1601:	  $ret;
  DB<1> main::(./archive_precipogram.pl:28):
28:	my $lastyear = substr($yesterday,0,4);
  DB<1> main::(./archive_precipogram.pl:29):
29:	my $lastmonth = substr($yesterday,4,2);
  DB<1> main::(./archive_precipogram.pl:32):
32:	my $path = "/export/home/cws/public_html/climo/precipograph_archive/" . "$lastyear/"; 
  DB<1> main::(./archive_precipogram.pl:34):
34:	unless (-d $path) {
  DB<1> main::(./archive_precipogram.pl:38):
38:	my $file = "$path" . "$MonthNameHash{$lastmonth}" . "$lastyear" . "\.png";
  DB<1> main::(./archive_precipogram.pl:41):
41:	copy("/export/home/cws/public_html/climo/precip_graphs/precipogram.png","$file") or die "Cannot copy file $!";
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:59):
59:	    croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
60:	      unless(@_ == 2 || @_ == 3);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:62):
62:	    my $from = shift;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:63):
63:	    my $to = shift;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:65):
65:	    my $from_a_handle = (ref($from)
66:				 ? (ref($from) eq 'GLOB'
67:				    || UNIVERSAL::isa($from, 'GLOB')
68:	                            || UNIVERSAL::isa($from, 'IO::Handle'))
69:				 : (ref(\$from) eq 'GLOB'));
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:70):
70:	    my $to_a_handle =   (ref($to)
71:				 ? (ref($to) eq 'GLOB'
72:				    || UNIVERSAL::isa($to, 'GLOB')
73:	                            || UNIVERSAL::isa($to, 'IO::Handle'))
74:				 : (ref(\$to) eq 'GLOB'));
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:76):
76:	    if ($from eq $to) { # works for references, too
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:83):
83:	    if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
84:		!($^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'vms')) {
  DB<1> Config::FETCH(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm:52):
52:	    my($self, $key) = @_;
  DB<1> Config::FETCH(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm:55):
55:	    return $self->{$key} if exists $self->{$key};
  DB<1> Config::FETCH(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm:52):
52:	    my($self, $key) = @_;
  DB<1> Config::FETCH(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm:55):
55:	    return $self->{$key} if exists $self->{$key};
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:85):
85:		my @fs = stat($from);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:86):
86:		if (@fs) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:87):
87:		    my @ts = stat($to);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:88):
88:		    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1]) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:95):
95:	    if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:99):
99:	    if (defined &syscopy && !$Syscopy_is_copy
100:		&& !$to_a_handle
101:		&& !($from_a_handle && $^O eq 'os2' )	# OS/2 cannot handle handles
102:		&& !($from_a_handle && $^O eq 'mpeix')	# and neither can MPE/iX.
103:		&& !($from_a_handle && $^O eq 'MSWin32')
104:		&& !($from_a_handle && $^O eq 'MacOS')
105:		&& !($from_a_handle && $^O eq 'NetWare')
106:	       )
107:	    {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:111):
111:	    my $closefrom = 0;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:112):
112:	    my $closeto = 0;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:113):
113:	    my ($size, $status, $r, $buf);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:114):
114:	    local($\) = '';
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:116):
116:	    my $from_h;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:117):
117:	    if ($from_a_handle) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:120):
120:		$from = _protect($from) if $from =~ /^\s/s;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:121):
121:	       $from_h = \do { local *FH };
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:121):
121:	       $from_h = \do { local *FH };
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:122):
122:	       open($from_h, "< $from\0") or goto fail_open1;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:123):
123:	       binmode $from_h or die "($!,$^E)";
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:124):
124:		$closefrom = 1;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:127):
127:	    my $to_h;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:128):
128:	    if ($to_a_handle) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:131):
131:		$to = _protect($to) if $to =~ /^\s/s;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:132):
132:	       $to_h = \do { local *FH };
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:132):
132:	       $to_h = \do { local *FH };
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:133):
133:	       open($to_h,"> $to\0") or goto fail_open2;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:134):
134:	       binmode $to_h or die "($!,$^E)";
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:135):
135:		$closeto = 1;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:138):
138:	    if (@_) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:142):
142:		$size = tied(*$from_h) ? 0 : -s $from_h || 0;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:143):
143:		$size = 1024 if ($size < 512);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:144):
144:		$size = $Too_Big if ($size > $Too_Big);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:147):
147:	    $! = 0;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:148):
148:	    for (;;) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:149):
149:		my ($r, $w, $t);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:150):
150:	       defined($r = sysread($from_h, $buf, $size))
151:		    or goto fail_inner;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:152):
152:		last unless $r;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:156):
156:		}
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:153):
153:		for ($w = 0; $w < $r; $w += $t) {
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:154):
154:	           $t = syswrite($to_h, $buf, $r - $w, $w)
155:			or goto fail_inner;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:149):
149:		my ($r, $w, $t);
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:150):
150:	       defined($r = sysread($from_h, $buf, $size))
151:		    or goto fail_inner;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:152):
152:		last unless $r;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:159):
159:	    close($to_h) || goto fail_open2 if $closeto;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:160):
160:	    close($from_h) || goto fail_open1 if $closefrom;
  DB<1> File::Copy::copy(/usr/lib/perl5/5.8.8/File/Copy.pm:163):
163:	    return 1;
  DB<1> IO::Handle::DESTROY(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/IO/Handle.pm:328):
328:	sub DESTROY {}
  DB<1> IO::Handle::DESTROY(/usr/lib/perl5/5.8.8/i386-linux-thread-multi/IO/Handle.pm:328):
328:	sub DESTROY {}
  DB<1> 
Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(./archive_precipogram.pl:9):
9:	my $err;
  DB<1> main::(./archive_precipogram.pl:10):
10:	my $now = `date +%Y%m%d%H%M%S`;
  DB<1> main::(./archive_precipogram.pl:12):
12:	my %MonthNameHash = ( 
13:		"01" => "jan",
14:		"02" => "feb",
15:		"03" => "mar",
16:		"04" => "apr",
17:		"05" => "may",
18:		"06" => "jun",
19:		"07" => "jul",
20:		"08" => "aug",
21:		"09" => "sep",
22:		"10" => "oct",
23:		"11" => "nov",
24:		"12" => "dec"
25:		);
  DB<1> main::(./archive_precipogram.pl:27):
27:	my $yesterday = substr(DateCalc($now,"- 1 day",\$err),0,6);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1520):
1520:	  print "DEBUG: DateCalc\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1521):
1521:	  my($D1,$D2,@arg)=@_;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1522):
1522:	  my($ref,$err,$errref,$mode)=();
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1524):
1524:	  ($errref,$mode) = (@arg);
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1525):
1525:	  $ref=0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1527):
1527:	  if (defined $errref) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1528):
1528:	    if (ref $errref) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1529):
1529:	      $ref=1;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1536):
1536:	  my(@date,@delta,$ret,$tmp,$oldincalc,$oldmode)=();
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1538):
1538:	  if (exists $Curr{"Mode"}) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1541):
1541:	    $oldmode = 0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1544):
1544:	  if (defined $mode  and  $mode>=0  and  $mode<=3) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1547):
1547:	    $Curr{"Mode"}=0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1550):
1550:	  if (exists $Curr{"InCalc"}) {
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1553):
1553:	    $oldincalc = 0;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1555):
1555:	  $Curr{"InCalc"}=1;
  DB<1> Date::Manip::DateCalc(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1557):
1557:	  if ($tmp=ParseDateString($D1)) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:808):
808:	  print "DEBUG: ParseDateString\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:809):
809:	  local($_)=@_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:810):
810:	  return ""  if (! $_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:812):
812:	  my($y,$m,$d,$h,$mn,$s,$i,$wofm,$dofw,$wk,$tmp,$z,$num,$err,$iso,$ampm)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:813):
813:	  my($date,$z2,$delta,$from,$falsefrom,$to,$which,$midnight)=();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:816):
816:	  Date_Init()  if (! $Curr{"InitDone"}  or  $Cnf{"UpdateCurrTZ"});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:257):
257:	  print "DEBUG: Date_Init\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:258):
258:	  $Curr{"Debug"}="";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:260):
260:	  my(@args)=@_;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:261):
261:	  $Curr{"InitDone"}=1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:262):
262:	  local($_)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:263):
263:	  my($internal,$firstday)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:264):
264:	  my($var,$val,$file,@tmp)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:270):
270:	  $Cnf{"EraseHolidays"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:271):
271:	  foreach (@args) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:299):
299:	  @args=@tmp;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:302):
302:	  if ($Curr{"InitFilesRead"}<1  &&  ! $Cnf{"IgnoreGlobalCnf"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:303):
303:	    $Curr{"InitFilesRead"}=1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:305):
305:	    if ($Cnf{"GlobalCnf"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:312):
312:	  if ($Curr{"InitFilesRead"}<2) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:313):
313:	    $Curr{"InitFilesRead"}=2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:315):
315:	    if ($Cnf{"PersonalCnf"}  and  $Cnf{"PersonalCnfPath"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:316):
316:	      $file=_SearchPath($Cnf{"PersonalCnf"},$Cnf{"PersonalCnfPath"},"r");
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7522):
7522:	  my($file,$path,$mode,@suff)=@_;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7523):
7523:	  my($f,$s,$d,@dir,$fs)=();
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7524):
7524:	  $path=_FixPath($path,1,"r");
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7473):
7473:	  my($path,$full,$mode,$err)=@_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7474):
7474:	  local($_)="";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7475):
7475:	  my(@dir)=split(/$Cnf{"PathSep"}/,$path);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7476):
7476:	  $full=0  if (! defined $full);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7477):
7477:	  $mode="" if (! defined $mode);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7478):
7478:	  $err=0   if (! defined $err);
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7479):
7479:	  $path="";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7480):
7480:	  if ($mode eq "e") {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7483):
7483:	    $mode="derx";
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7488):
7488:	  foreach (@dir) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7491):
7491:	    if ($full) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7492):
7492:	      $_=_FullFilePath($_);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7496):
7496:	    if (! $_) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7502):
7502:	    if (! $mode  or  _CheckFilePath($_,$mode)) {
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7450):
7450:	  return 1;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7503):
7503:	      $path .= $Cnf{"PathSep"} . $_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7491):
7491:	    if ($full) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7492):
7492:	      $_=_FullFilePath($_);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7369):
7369:	    $user=$1;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7373):
7373:	    return ""  if ($OS eq "Windows"  or
7374:	                   $OS eq "Mac"  or
7375:	                   $OS eq "Netware"  or
7376:	                   $OS eq "MPE");
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7377):
7377:	    $user=""  if (! defined $user);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7379):
7379:	    if ($user) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7382):
7382:	      $home= (getpwuid($<))[7];
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7384):
7384:	    $home = VMS::Filespec::unixpath($home)  if ($OS eq "VMS");
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7385):
7385:	    return ""  if (! $home);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7386):
7386:	    $file="$home/$file";
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7496):
7496:	    if (! $_) {
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7502):
7502:	    if (! $mode  or  _CheckFilePath($_,$mode)) {
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7450):
7450:	  return 1;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7503):
7503:	      $path .= $Cnf{"PathSep"} . $_;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7508):
7508:	  $path =~ s/^$Cnf{"PathSep"}//;
  DB<1> Date::Manip::_FixPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7509):
7509:	  return $path;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7525):
7525:	  @dir=split(/$Cnf{"PathSep"}/,$path);
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7526):
7526:	  foreach $d (@dir) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7527):
7527:	    $f="$d/$file";
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7528):
7528:	    $f=~ s|//|/|g;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7529):
7529:	    return $f if (_CheckFilePath($f,$mode));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7530):
7530:	    foreach $s (@suff) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7527):
7527:	    $f="$d/$file";
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7528):
7528:	    $f=~ s|//|/|g;
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7529):
7529:	    return $f if (_CheckFilePath($f,$mode));
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7420):
7420:	  my($file,$mode)=@_;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7421):
7421:	  my($test)=();
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7422):
7422:	  $file=_FullFilePath($file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7396):
7396:	  my($file)=shift;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7397):
7397:	  my($rootpat) = '^/'; #default pattern to match absolute path
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7398):
7398:	  $rootpat = '^(\\|/|([A-Za-z]:[\\/]))' if ($OS eq 'Windows');
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7399):
7399:	  $file=_ExpandTilde($file);
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7365):
7365:	  my($file)=shift;
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7366):
7366:	  my($user,$home)=();
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7368):
7368:	  if ($file =~ s|^~([^/]*)||) {
  DB<1> Date::Manip::_ExpandTilde(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7388):
7388:	  $file;
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7400):
7400:	  return ""  if (! $file);
  DB<1> Date::Manip::_FullFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7401):
7401:	  return _CleanFile($file);
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7344):
7344:	  my($file)=@_;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7345):
7345:	  $file =~ s/\s*$//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7346):
7346:	  $file =~ s/^\s*//;
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7347):
7347:	  $file =~ s|//+|/|g;  # multiple slash
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7348):
7348:	  $file =~ s|/\.$|/|;  # trailing /. (leaves trailing slash)
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7349):
7349:	  $file =~ s|^\./||    # leading ./
7350:	    if ($file ne "./");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7351):
7351:	  $file =~ s|/$||      # trailing slash
7352:	    if ($file ne "/");
  DB<1> Date::Manip::_CleanFile(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7353):
7353:	  return $file;
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7423):
7423:	  $mode = ""  if (! defined $mode);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7426):
7426:	  return 0  if (! defined $file or ! $file);
  DB<1> Date::Manip::_CheckFilePath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7427):
7427:	  return 0  if ((                  ! -e $file) or
7428:	                ($mode =~ /r/  &&  ! -r $file) or
7429:	                ($mode =~ /w/  &&  ! -w $file) or
7430:	                ($mode =~ /x/  &&  ! -x $file) or
7431:	                ($mode =~ /R/  &&  ! -R $file) or
7432:	                ($mode =~ /W/  &&  ! -W $file) or
7433:	                ($mode =~ /X/  &&  ! -X $file) or
7434:	                ($mode =~ /o/  &&  ! -o $file) or
7435:	                ($mode =~ /O/  &&  ! -O $file) or
7436:	                ($mode =~ /z/  &&  ! -z $file) or
7437:	                ($mode =~ /s/  &&  ! -s $file) or
7438:	                ($mode =~ /f/  &&  ! -f $file) or
7439:	                ($mode =~ /d/  &&  ! -d $file) or
7440:	                ($mode =~ /l/  &&  ! -l $file) or
7441:	                ($mode =~ /s/  &&  ! -s $file) or
7442:	                ($mode =~ /p/  &&  ! -p $file) or
7443:	                ($mode =~ /b/  &&  ! -b $file) or
7444:	                ($mode =~ /c/  &&  ! -c $file) or
7445:	                ($mode =~ /u/  &&  ! -u $file) or
7446:	                ($mode =~ /g/  &&  ! -g $file) or
7447:	                ($mode =~ /k/  &&  ! -k $file) or
7448:	                ($mode =~ /T/  &&  ! -T $file) or
7449:	                ($mode =~ /B/  &&  ! -B $file));
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7530):
7530:	    foreach $s (@suff) {
  DB<1> Date::Manip::_SearchPath(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7535):
7535:	  return "";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:317):
317:	      _Date_InitFile($file)  if ($file);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:321):
321:	  foreach (@args) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:330):
330:	  confess "ERROR: Unknown FirstDay in Date::Manip.\n"
331:	    if (! _IsInt($Cnf{"FirstDay"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:332):
332:	  confess "ERROR: Unknown WorkWeekBeg in Date::Manip.\n"
333:	    if (! _IsInt($Cnf{"WorkWeekBeg"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:334):
334:	  confess "ERROR: Unknown WorkWeekEnd in Date::Manip.\n"
335:	    if (! _IsInt($Cnf{"WorkWeekEnd"},1,7));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:336):
336:	  confess "ERROR: Invalid WorkWeek in Date::Manip.\n"
337:	    if ($Cnf{"WorkWeekEnd"} <= $Cnf{"WorkWeekBeg"});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:339):
339:	  my(%lang,
340:	     $tmp,%tmp,$tmp2,@tmp2,
341:	     $i,$j,@tmp3,
342:	     $zonesrfc,@zones)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:344):
344:	  my($L)=$Cnf{"Language"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:346):
346:	  if ($Curr{"InitLang"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:347):
347:	    $Curr{"InitLang"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:349):
349:	    if ($L eq "English") {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:350):
350:	      _Date_Init_English(\%lang);
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5934):
5934:	  print "DEBUG: _Date_Init_English\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5935):
5935:	  my($d)=@_;
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5937):
5937:	  $$d{"month_name"}=
5938:	    [["January","February","March","April","May","June",
5939:	      "July","August","September","October","November","December"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5941):
5941:	  $$d{"month_abb"}=
5942:	    [["Jan","Feb","Mar","Apr","May","Jun",
5943:	      "Jul","Aug","Sep","Oct","Nov","Dec"],
5944:	     [],
5945:	     ["","","","","","","","","Sept"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5947):
5947:	  $$d{"day_name"}=
5948:	    [["Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5949):
5949:	  $$d{"day_abb"}=
5950:	    [["Mon","Tue","Wed","Thu","Fri","Sat","Sun"],
5951:	     ["",   "Tues","",  "Thur","",  "",   ""]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5952):
5952:	  $$d{"day_char"}=
5953:	    [["M","T","W","Th","F","Sa","S"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5955):
5955:	  $$d{"num_suff"}=
5956:	    [["1st","2nd","3rd","4th","5th","6th","7th","8th","9th","10th",
5957:	      "11th","12th","13th","14th","15th","16th","17th","18th","19th","20th",
5958:	      "21st","22nd","23rd","24th","25th","26th","27th","28th","29th","30th",
5959:	      "31st"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5960):
5960:	  $$d{"num_word"}=
5961:	    [["first","second","third","fourth","fifth","sixth","seventh","eighth",
5962:	      "ninth","tenth","eleventh","twelfth","thirteenth","fourteenth",
5963:	      "fifteenth","sixteenth","seventeenth","eighteenth","nineteenth",
5964:	      "twentieth","twenty-first","twenty-second","twenty-third",
5965:	      "twenty-fourth","twenty-fifth","twenty-sixth","twenty-seventh",
5966:	      "twenty-eighth","twenty-ninth","thirtieth","thirty-first"]];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5968):
5968:	  $$d{"now"}     =["now"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5969):
5969:	  $$d{"today"}   =["today"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5970):
5970:	  $$d{"last"}    =["last","final"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5971):
5971:	  $$d{"each"}    =["each","every"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5972):
5972:	  $$d{"of"}      =["in","of"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5973):
5973:	  $$d{"at"}      =["at"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5974):
5974:	  $$d{"on"}      =["on"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5975):
5975:	  $$d{"future"}  =["in"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5976):
5976:	  $$d{"past"}    =["ago"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5977):
5977:	  $$d{"next"}    =["next"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5978):
5978:	  $$d{"prev"}    =["previous","last"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5979):
5979:	  $$d{"later"}   =["later"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5981):
5981:	  $$d{"exact"}   =["exactly"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5982):
5982:	  $$d{"approx"}  =["approximately"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5983):
5983:	  $$d{"business"}=["business"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5985):
5985:	  $$d{"offset"}  =["yesterday","-0:0:0:1:0:0:0","tomorrow","+0:0:0:1:0:0:0","overmorrow","+0:0:0:2:0:0:0","ereyesterday","-0:0:0:2:0:0:0"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5986):
5986:	  $$d{"times"}   =["noon","12:00:00","midnight","00:00:00"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5988):
5988:	  $$d{"years"}   =["y","yr","year","yrs","years"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5989):
5989:	  $$d{"months"}  =["mon","month","months"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5990):
5990:	  $$d{"weeks"}   =["w","wk","wks","week","weeks"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5991):
5991:	  $$d{"days"}    =["d","day","days"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5992):
5992:	  $$d{"hours"}   =["h","hr","hrs","hour","hours"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5993):
5993:	  $$d{"minutes"} =["mn","min","minute","minutes"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5994):
5994:	  $$d{"seconds"} =["s","sec","second","seconds"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5995):
5995:	  $$d{"replace"} =["m","month"];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5997):
5997:	  $$d{"sephm"}   =':';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5998):
5998:	  $$d{"sepms"}   =':';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5999):
5999:	  $$d{"sepss"}   ='[.:]';
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:6001):
6001:	  $$d{"am"}      = ["AM","A.M."];
  DB<1> Date::Manip::_Date_Init_English(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:6002):
6002:	  $$d{"pm"}      = ["PM","P.M."];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:402):
402:	    $Lang{$L}{"MonthH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:403):
403:	    $Lang{$L}{"MonthL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:404):
404:	    $Lang{$L}{"MonL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:405):
405:	    _Date_InitLists([$lang{"month_name"},
406:	                     $lang{"month_abb"}],
407:	                    \$Lang{$L}{"Month"},"lc,sort,back",
408:	                    [$Lang{$L}{"MonthL"},
409:	                     $Lang{$L}{"MonL"}],
410:	                    [$Lang{$L}{"MonthH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:419):
419:	    $Lang{$L}{"WeekH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:420):
420:	    $Lang{$L}{"WeekL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:421):
421:	    $Lang{$L}{"WkL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:422):
422:	    $Lang{$L}{"WL"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:423):
423:	    _Date_InitLists([$lang{"day_name"},
424:	                     $lang{"day_abb"}],
425:	                    \$Lang{$L}{"Week"},"lc,sort,back",
426:	                    [$Lang{$L}{"WeekL"},
427:	                     $Lang{$L}{"WkL"}],
428:	                    [$Lang{$L}{"WeekH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:429):
429:	    _Date_InitLists([$lang{"day_char"}],
430:	                    "","lc",
431:	                    [$Lang{$L}{"WL"}],
432:	                    [\%tmp,1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:434):
434:	      (%{ $Lang{$L}{"WeekH"} },%tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:433):
433:	    %{ $Lang{$L}{"WeekH"} } =
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:433):
433:	    %{ $Lang{$L}{"WeekH"} } =
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:449):
449:	    $Lang{$L}{"LastL"}=$lang{"last"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:450):
450:	    _Date_InitStrings($lang{"last"},
451:	                      \$Lang{$L}{"Last"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:453):
453:	    $Lang{$L}{"EachL"}=$lang{"each"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:454):
454:	    _Date_InitStrings($lang{"each"},
455:	                      \$Lang{$L}{"Each"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:457):
457:	    $Lang{$L}{"DoMH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:458):
458:	    $Lang{$L}{"DoML"}=[];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:459):
459:	    _Date_InitLists([$lang{"num_suff"},
460:	                     $lang{"num_word"}],
461:	                    \$Lang{$L}{"DoM"},"lc,sort,back,escape",
462:	                    [$Lang{$L}{"DoML"},
463:	                     \@tmp],
464:	                    [$Lang{$L}{"DoMH"},1]);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3940):
3940:	  print "DEBUG: _Date_InitLists\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3941):
3941:	  my($data,$regexp,$opts,$lists,$hash)=@_;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3942):
3942:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3943):
3943:	  my(@lists)=@$lists;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3944):
3944:	  my($i,@ele,$ele,@list,$j,$tmp)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3947):
3947:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3948):
3948:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3949):
3949:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3950):
3950:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3951):
3951:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3954):
3954:	  if (@lists) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3955):
3955:	    confess "ERROR: _Date_InitLists: lists must be 1 per data\n"
3956:	      if ($#lists != $#data);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3964):
3964:	    }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3957):
3957:	    for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3958):
3958:	      @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3959):
3959:	      if ($Cnf{"IntCharSet"} && $#ele>0) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3962):
3962:	        @{ $lists[$i] } = @{ $ele[0] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3968):
3968:	  my($hashtype,$hashsave,%hash)=();
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3969):
3969:	  if (@$hash) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3970):
3970:	    ($hash,$hashtype)=@$hash;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3971):
3971:	    $hashsave=1;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3987):
3987:	  }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3976):
3976:	  for ($i=0; $i<=$#data; $i++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3977):
3977:	    @ele=@{ $data[$i] };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3978):
3978:	    foreach $ele (@ele) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3979):
3979:	      @list = @{ $ele };
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3985):
3985:	      }
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3980):
3980:	      for ($j=0; $j<=$#list; $j++) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3981):
3981:	        $tmp=$list[$j];
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3982):
3982:	        next  if (! $tmp);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3983):
3983:	        $tmp=lc($tmp)  if ($lc);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3984):
3984:	        $hash{$tmp}= $j+$hashtype;
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3988):
3988:	  %$hash = %hash  if ($hashsave);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3991):
3991:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3992):
3992:	    @list=keys(%hash);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3993):
3993:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3994):
3994:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3995):
3995:	      foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3996):
3996:	        $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3999):
3999:	    if ($back) {
  DB<1> Date::Manip::_Date_InitLists(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4000):
4000:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:466):
466:	    @tmp=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:467):
467:	    foreach $tmp (keys %{ $Lang{$L}{"DoMH"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:467):
467:	    foreach $tmp (keys %{ $Lang{$L}{"DoMH"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:470):
470:	        $Lang{$L}{"WoMH"}{$tmp} = $tmp2;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:471):
471:	        push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:468):
468:	      $tmp2=$Lang{$L}{"DoMH"}{$tmp};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:469):
469:	      if ($tmp2<6) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:474):
474:	    foreach $tmp (@{ $Lang{$L}{"LastL"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:474):
474:	    foreach $tmp (@{ $Lang{$L}{"LastL"} }) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:475):
475:	      $Lang{$L}{"WoMH"}{$tmp} = -1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:476):
476:	      push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:475):
475:	      $Lang{$L}{"WoMH"}{$tmp} = -1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:476):
476:	      push(@tmp,$tmp);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:478):
478:	    _Date_InitStrings(\@tmp,\$Lang{$L}{"WoM"},
479:	                      "lc,sort,back,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4042):
4042:	    $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:488):
488:	    _Date_InitStrings($lang{"am"},\$Lang{$L}{"AM"},"lc,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:489):
489:	    _Date_InitStrings($lang{"pm"},\$Lang{$L}{"PM"},"lc,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:490):
490:	    _Date_InitStrings([ @{$lang{"am"}},@{$lang{"pm"}} ],\$Lang{$L}{"AmPm"},
491:	                      "lc,back,sort,escape");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4037):
4037:	    foreach $ele (@list) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4038):
4038:	      $ele="\Q$ele\E";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4042):
4042:	    $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:492):
492:	    $Lang{$L}{"AMstr"}=$lang{"am"}[0];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:493):
493:	    $Lang{$L}{"PMstr"}=$lang{"pm"}[0];
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:510):
510:	    _Date_InitStrings($lang{"years"}  ,\$Lang{$L}{"Yabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:511):
511:	    _Date_InitStrings($lang{"months"} ,\$Lang{$L}{"Mabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:512):
512:	    _Date_InitStrings($lang{"weeks"}  ,\$Lang{$L}{"Wabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:513):
513:	    _Date_InitStrings($lang{"days"}   ,\$Lang{$L}{"Dabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:514):
514:	    _Date_InitStrings($lang{"hours"}  ,\$Lang{$L}{"Habb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:515):
515:	    _Date_InitStrings($lang{"minutes"},\$Lang{$L}{"MNabb"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:516):
516:	    _Date_InitStrings($lang{"seconds"},\$Lang{$L}{"Sabb"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:517):
517:	    $Lang{$L}{"Repl"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:518):
518:	    _Date_InitHash($lang{"replace"},undef,"lc",$Lang{$L}{"Repl"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:531):
531:	    $Lang{$L}{"TimesH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:532):
532:	    _Date_InitHash($lang{"times"},
533:	                   \$Lang{$L}{"Times"},"lc,sort,back",
534:	                   $Lang{$L}{"TimesH"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3899):
3899:	    @list=keys(%$hash);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3900):
3900:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3901):
3901:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3906):
3906:	    if ($back) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3907):
3907:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:535):
535:	    _Date_InitStrings($lang{"now"},\$Lang{$L}{"Now"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:536):
536:	    _Date_InitStrings($lang{"today"},\$Lang{$L}{"Today"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:537):
537:	    $Lang{$L}{"OffsetH"}={};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:538):
538:	    _Date_InitHash($lang{"offset"},
539:	                   \$Lang{$L}{"Offset"},"lc,sort,back",
540:	                   $Lang{$L}{"OffsetH"});
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3878):
3878:	  print "DEBUG: _Date_InitHash\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3879):
3879:	  my($data,$regexp,$opts,$hash)=@_;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3880):
3880:	  my(@data)=@$data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3881):
3881:	  my($key,$val,@list)=();
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3884):
3884:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3885):
3885:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3886):
3886:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3887):
3887:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3888):
3888:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3891):
3891:	  while (@data) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3892):
3892:	    ($key,$val,@data)=@data;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3893):
3893:	    $key=lc($key)  if ($lc);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3894):
3894:	    $$hash{$key}=$val;
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3898):
3898:	  if ($regexp) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3899):
3899:	    @list=keys(%$hash);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3900):
3900:	    @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3901):
3901:	    if ($escape) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3906):
3906:	    if ($back) {
  DB<1> Date::Manip::_Date_InitHash(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3907):
3907:	      $$regexp="(" . join("|",@list) . ")";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:541):
541:	    $Lang{$L}{"SepHM"}=$lang{"sephm"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:542):
542:	    $Lang{$L}{"SepMS"}=$lang{"sepms"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:543):
543:	    $Lang{$L}{"SepSS"}=$lang{"sepss"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:551):
551:	    $zonesrfc=
552:	      "idlw   -1200 ".  # International Date Line West
553:	      "nt     -1100 ".  # Nome
554:	      "hst    -1000 ".  # Hawaii Standard
555:	      "cat    -1000 ".  # Central Alaska
556:	      "ahst   -1000 ".  # Alaska-Hawaii Standard
557:	      "akst   -0900 ".  # Alaska Standard
558:	      "yst    -0900 ".  # Yukon Standard
559:	      "hdt    -0900 ".  # Hawaii Daylight
560:	      "akdt   -0800 ".  # Alaska Daylight
561:	      "ydt    -0800 ".  # Yukon Daylight
562:	      "pst    -0800 ".  # Pacific Standard
563:	      "pdt    -0700 ".  # Pacific Daylight
564:	      "mst    -0700 ".  # Mountain Standard
565:	      "mdt    -0600 ".  # Mountain Daylight
566:	      "cst    -0600 ".  # Central Standard
567:	      "cdt    -0500 ".  # Central Daylight
568:	      "est    -0500 ".  # Eastern Standard
569:	      "act    -0500 ".  # Brazil, Acre
570:	      "pet    -0500 ".  # Peruvian time
571:	      "vet    -0430 ".  # Venezuela
572:	      "sat    -0400 ".  # Chile
573:	      "clt    -0400 ".  # Chile Standard
574:	      "clst   -0400 ".  # Chile Standard
575:	      "bot    -0400 ".  # Bolivia
576:	      "amt    -0400 ".  # Brazil, Amazon
577:	      "acst   -0400 ".  # Brazil, Acre Daylight
578:	      "edt    -0400 ".  # Eastern Daylight
579:	      "ast    -0400 ".  # Atlantic Standard
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:675):
675:	    $Zone{"n2o"} = {};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:676):
676:	    ($Zone{"zones"},%{ $Zone{"n2o"} })=
677:	      _Date_Regexp($zonesrfc,"sort,lc,under,back",
678:	                   "keys");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4123):
4123:	  print "DEBUG: _Date_Regexp\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4124):
4124:	  my($list,$options,$array)=@_;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4125):
4125:	  my(@list,$ret,%hash,$i)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4126):
4126:	  local($_)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4127):
4127:	  $options=""  if (! defined $options);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4128):
4128:	  $array=""    if (! defined $array);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4130):
4130:	  my($sort,$lc,$under)=(0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4131):
4131:	  $sort =1  if ($options =~ /sort/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4132):
4132:	  $lc   =1  if ($options =~ /lc/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4133):
4133:	  $under=1  if ($options =~ /under/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4134):
4134:	  my($back,$opt,$pre,$post,$ws)=("?:","","","","");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4135):
4135:	  $back =""          if ($options =~ /back/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4136):
4136:	  $opt  ="?"         if ($options =~ /opt/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4137):
4137:	  $pre  ='\s*'       if ($options =~ /pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4138):
4138:	  $pre  ='\s+'       if ($options =~ /Pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4139):
4139:	  $pre  ='(?:\s+|^)' if ($options =~ /PRE/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4140):
4140:	  $post ='\s*'       if ($options =~ /post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4141):
4141:	  $post ='\s+'       if ($options =~ /Post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4142):
4142:	  $post ='(?:$|\s+)' if ($options =~ /POST/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4143):
4143:	  $ws   ='\s*'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4144):
4144:	  $ws   ='\s+'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4146):
4146:	  my($hash,$keys,$key0,$key1,$val0,$val1)=(0,0,0,0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4147):
4147:	  $keys =1     if ($array =~ /keys/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4148):
4148:	  $key0 =1     if ($array =~ /key0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4149):
4149:	  $key1 =1     if ($array =~ /key1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4150):
4150:	  $val0 =1     if ($array =~ /val0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4151):
4151:	  $val1 =1     if ($array =~ /val1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4152):
4152:	  $hash =1     if ($keys or $key0 or $key1 or $val0 or $val1);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4154):
4154:	  my($ref)=ref $list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4155):
4155:	  if (! $ref) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4156):
4156:	    $list =~ s/\s*$//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4157):
4157:	    $list =~ s/^\s*//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4158):
4158:	    $list =~ s/\s+/&&&/g;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4165):
4165:	  if (! $list) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4173):
4173:	  $list=lc($list)  if ($lc);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4174):
4174:	  $list=~ s/_/ /g  if ($under);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4175):
4175:	  @list=split(/&&&/,$list);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4176):
4176:	  if ($keys) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4177):
4177:	    %hash=@list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4178):
4178:	    @list=keys %hash;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4188):
4188:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4190):
4190:	  $ret="($back" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4191):
4191:	  $ret="(?:$pre$ret$post)"  if ($pre or $post);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4192):
4192:	  $ret.=$opt;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4193):
4193:	  $ret="(?:$ret|$ws)"  if ($ws);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4195):
4195:	  if ($array and $hash) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4196):
4196:	    return ($ret,%hash);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:676):
676:	    ($Zone{"zones"},%{ $Zone{"n2o"} })=
677:	      _Date_Regexp($zonesrfc,"sort,lc,under,back",
678:	                   "keys");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:680):
680:	    $tmp=
681:	      "US/Pacific  PST8PDT ".
682:	      "US/Mountain MST7MDT ".
683:	      "US/Central  CST6CDT ".
684:	      "US/Eastern  EST5EDT ".
685:	      "Canada/Pacific  PST8PDT ".
686:	      "Canada/Mountain MST7MDT ".
687:	      "Canada/Central  CST6CDT ".
688:	      "Canada/Eastern  EST5EDT";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:690):
690:	    $Zone{"tz2z"} = {};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:691):
691:	    ($Zone{"tzones"},%{ $Zone{"tz2z"} })=
692:	      _Date_Regexp($tmp,"lc,under,back","keys");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4123):
4123:	  print "DEBUG: _Date_Regexp\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4124):
4124:	  my($list,$options,$array)=@_;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4125):
4125:	  my(@list,$ret,%hash,$i)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4126):
4126:	  local($_)=();
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4127):
4127:	  $options=""  if (! defined $options);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4128):
4128:	  $array=""    if (! defined $array);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4130):
4130:	  my($sort,$lc,$under)=(0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4131):
4131:	  $sort =1  if ($options =~ /sort/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4132):
4132:	  $lc   =1  if ($options =~ /lc/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4133):
4133:	  $under=1  if ($options =~ /under/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4134):
4134:	  my($back,$opt,$pre,$post,$ws)=("?:","","","","");
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4135):
4135:	  $back =""          if ($options =~ /back/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4136):
4136:	  $opt  ="?"         if ($options =~ /opt/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4137):
4137:	  $pre  ='\s*'       if ($options =~ /pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4138):
4138:	  $pre  ='\s+'       if ($options =~ /Pre/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4139):
4139:	  $pre  ='(?:\s+|^)' if ($options =~ /PRE/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4140):
4140:	  $post ='\s*'       if ($options =~ /post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4141):
4141:	  $post ='\s+'       if ($options =~ /Post/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4142):
4142:	  $post ='(?:$|\s+)' if ($options =~ /POST/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4143):
4143:	  $ws   ='\s*'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4144):
4144:	  $ws   ='\s+'       if ($options =~ /optws/);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4146):
4146:	  my($hash,$keys,$key0,$key1,$val0,$val1)=(0,0,0,0,0,0);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4147):
4147:	  $keys =1     if ($array =~ /keys/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4148):
4148:	  $key0 =1     if ($array =~ /key0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4149):
4149:	  $key1 =1     if ($array =~ /key1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4150):
4150:	  $val0 =1     if ($array =~ /val0/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4151):
4151:	  $val1 =1     if ($array =~ /val1/i);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4152):
4152:	  $hash =1     if ($keys or $key0 or $key1 or $val0 or $val1);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4154):
4154:	  my($ref)=ref $list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4155):
4155:	  if (! $ref) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4156):
4156:	    $list =~ s/\s*$//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4157):
4157:	    $list =~ s/^\s*//;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4158):
4158:	    $list =~ s/\s+/&&&/g;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4165):
4165:	  if (! $list) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4173):
4173:	  $list=lc($list)  if ($lc);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4174):
4174:	  $list=~ s/_/ /g  if ($under);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4175):
4175:	  @list=split(/&&&/,$list);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4176):
4176:	  if ($keys) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4177):
4177:	    %hash=@list;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4178):
4178:	    @list=keys %hash;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4188):
4188:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4190):
4190:	  $ret="($back" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4191):
4191:	  $ret="(?:$pre$ret$post)"  if ($pre or $post);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4192):
4192:	  $ret.=$opt;
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4193):
4193:	  $ret="(?:$ret|$ws)"  if ($ws);
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4195):
4195:	  if ($array and $hash) {
  DB<1> Date::Manip::_Date_Regexp(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4196):
4196:	    return ($ret,%hash);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:691):
691:	    ($Zone{"tzones"},%{ $Zone{"tz2z"} })=
692:	      _Date_Regexp($tmp,"lc,under,back","keys");
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:693):
693:	    $Cnf{"TZ"}=Date_TimeZone();
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3532):
3532:	  print "DEBUG: Date_TimeZone\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3533):
3533:	  my($null,$tz,@tz,$std,$dst,$time,$isdst,$tmp,$in)=();
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3534):
3534:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3538):
3538:	  push(@tz,$Cnf{"TZ"})  if (defined $Cnf{"TZ"});  # TZ config var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3539):
3539:	  push(@tz,$ENV{"TZ"})  if (defined $ENV{"TZ"});  # TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3540):
3540:	  push(@tz,$ENV{'SYS$TIMEZONE_RULE'})
3541:	    if defined $ENV{'SYS$TIMEZONE_RULE'};         # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3542):
3542:	  push(@tz,$ENV{'SYS$TIMEZONE_NAME'})
3543:	    if defined $ENV{'SYS$TIMEZONE_NAME'};         # VMS TZ name environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3544):
3544:	  push(@tz,$ENV{'UCX$TZ'})
3545:	    if defined $ENV{'UCX$TZ'};                    # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3546):
3546:	  push(@tz,$ENV{'TCPIP$TZ'})
3547:	    if defined $ENV{'TCPIP$TZ'};                  # VMS TZ environ var
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3559):
3559:	  unless (($^O ne 'cygwin' && $^X =~ /perl\.exe$/i) or
3560:	          ($OS eq "Windows") or
3561:	          ($OS eq "Netware") or
3562:	          ($OS eq "VMS")) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3563):
3563:	    if ($Date::Manip::NoTaint) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3564):
3564:	      if ($OS eq "VMS") {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3573):
3573:	        $tz=`date +%Z 2> /dev/null`;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3574):
3574:	        chomp($tz);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3575):
3575:	        if (! $tz) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3581):
3581:	      push(@tz,$tz)  if (defined $tz);
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3599):
3599:	  push(@tz,$main::TZ)         if (defined $main::TZ);         # $main::TZ
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3601):
3601:	  if (-s "/etc/TIMEZONE") {                                   # /etc/TIMEZONE
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3614):
3614:	  if (-s "/etc/timezone") {                                   # /etc/timezone
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3630):
3630:	  foreach $tz (@tz) {
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3631):
3631:	    $tz =~ s/\s*$//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3632):
3632:	    $tz =~ s/^\s*//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3633):
3633:	    $tz =~ s/^://;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3634):
3634:	    next  if ($tz eq "");
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3631):
3631:	    $tz =~ s/\s*$//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3632):
3632:	    $tz =~ s/^\s*//;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3633):
3633:	    $tz =~ s/^://;
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3634):
3634:	    next  if ($tz eq "");
  DB<1> Date::Manip::Date_TimeZone(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3636):
3636:	    return uc($tz)
3637:	      if (defined $Zone{"n2o"}{lc($tz)});
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:705):
705:	    _Date_InitStrings($lang{"at"},    \$Lang{$L}{"At"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:706):
706:	    _Date_InitStrings($lang{"on"},    \$Lang{$L}{"On"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:707):
707:	    _Date_InitStrings($lang{"future"},\$Lang{$L}{"Future"}, "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:708):
708:	    _Date_InitStrings($lang{"later"}, \$Lang{$L}{"Later"},  "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:709):
709:	    _Date_InitStrings($lang{"past"},  \$Lang{$L}{"Past"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:710):
710:	    _Date_InitStrings($lang{"next"},  \$Lang{$L}{"Next"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:711):
711:	    _Date_InitStrings($lang{"prev"},  \$Lang{$L}{"Prev"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:712):
712:	    _Date_InitStrings($lang{"of"},    \$Lang{$L}{"Of"},     "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:247):
247:	  return (length $b <=> length $a);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:719):
719:	    _Date_InitStrings($lang{"exact"},   \$Lang{$L}{"Exact"},   "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:720):
720:	    _Date_InitStrings($lang{"approx"},  \$Lang{$L}{"Approx"},  "lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:721):
721:	    _Date_InitStrings($lang{"business"},\$Lang{$L}{"Business"},"lc,sort");
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4022):
4022:	  print "DEBUG: _Date_InitStrings\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4023):
4023:	  my($data,$regexp,$opts)=@_;
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4024):
4024:	  my(@list)=@{ $data };
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4027):
4027:	  my($lc,$sort,$back,$escape)=(0,0,0,0);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4028):
4028:	  $lc=1     if ($opts =~ /lc/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4029):
4029:	  $sort=1   if ($opts =~ /sort/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4030):
4030:	  $back=1   if ($opts =~ /back/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4031):
4031:	  $escape=1 if ($opts =~ /escape/i);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4034):
4034:	  my($ele)=();
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4035):
4035:	  @list=sort _sortByLength(@list)  if ($sort);
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4036):
4036:	  if ($escape) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4041):
4041:	  if ($back) {
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4044):
4044:	    $$regexp="(?:" . join("|",@list) . ")";
  DB<1> Date::Manip::_Date_InitStrings(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4046):
4046:	  $$regexp=lc($$regexp)  if ($lc);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:726):
726:	  if ($Curr{"ResetWorkDay"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:727):
727:	    my($h1,$m1,$h2,$m2)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:728):
728:	    if ($Cnf{"WorkDay24Hr"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:736):
736:	      confess "ERROR: Invalid WorkDayBeg in Date::Manip.\n"
737:	        if (! (($h1,$m1)=_CheckTime($Cnf{"WorkDayBeg"})));
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4376):
4376:	  print "DEBUG: _CheckTime\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4377):
4377:	  my($time)=@_;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4378):
4378:	  my($h)='(?:0?[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4379):
4379:	  my($h2)='(?:0[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4380):
4380:	  my($m)='[0-5][0-9]';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4381):
4381:	  my($s)=$m;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4382):
4382:	  my($hm)="(?:". $Lang{$Cnf{"Language"}}{"SepHM"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4383):
4383:	  my($ms)="(?:". $Lang{$Cnf{"Language"}}{"SepMS"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4384):
4384:	  my($ss)=$Lang{$Cnf{"Language"}}{"SepSS"};
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4385):
4385:	  my($t)="^($h)$hm($m)(?:$ms($s)(?:$ss\\d+)?)?\$";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4386):
4386:	  if ($time eq "one") {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4393):
4393:	  if ($time =~ /$t/i) {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4394):
4394:	    ($h,$m,$s)=($1,$2,$3);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4395):
4395:	    $h="0$h" if (length($h)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4396):
4396:	    $m="0$m" if (length($m)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4397):
4397:	    $s="00"  if (! defined $s);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4398):
4398:	    return ($h,$m,$s);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:738):
738:	      $Cnf{"WorkDayBeg"}="$h1:$m1";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:739):
739:	      confess "ERROR: Invalid WorkDayEnd in Date::Manip.\n"
740:	        if (! (($h2,$m2)=_CheckTime($Cnf{"WorkDayEnd"})));
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4376):
4376:	  print "DEBUG: _CheckTime\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4377):
4377:	  my($time)=@_;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4378):
4378:	  my($h)='(?:0?[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4379):
4379:	  my($h2)='(?:0[0-9]|1[0-9]|2[0-3])';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4380):
4380:	  my($m)='[0-5][0-9]';
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4381):
4381:	  my($s)=$m;
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4382):
4382:	  my($hm)="(?:". $Lang{$Cnf{"Language"}}{"SepHM"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4383):
4383:	  my($ms)="(?:". $Lang{$Cnf{"Language"}}{"SepMS"} ."|:)";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4384):
4384:	  my($ss)=$Lang{$Cnf{"Language"}}{"SepSS"};
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4385):
4385:	  my($t)="^($h)$hm($m)(?:$ms($s)(?:$ss\\d+)?)?\$";
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4386):
4386:	  if ($time eq "one") {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4393):
4393:	  if ($time =~ /$t/i) {
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4394):
4394:	    ($h,$m,$s)=($1,$2,$3);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4395):
4395:	    $h="0$h" if (length($h)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4396):
4396:	    $m="0$m" if (length($m)<2);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4397):
4397:	    $s="00"  if (! defined $s);
  DB<1> Date::Manip::_CheckTime(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4398):
4398:	    return ($h,$m,$s);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:741):
741:	      $Cnf{"WorkDayEnd"}="$h2:$m2";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:743):
743:	      ($Curr{"WDBh"},$Curr{"WDBm"})=($h1,$m1);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:744):
744:	      ($Curr{"WDEh"},$Curr{"WDEm"})=($h2,$m2);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:747):
747:	      $h1=$h2-$h1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:748):
748:	      $m1=$m2-$m1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:749):
749:	      if ($m1<0) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:753):
753:	      $Curr{"WDlen"}=$h1*60+$m1;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:755):
755:	    $Curr{"ResetWorkDay"}=0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:759):
759:	  my($s,$mn,$h,$d,$m,$y,$wday,$yday,$isdst,$ampm,$wk)=();
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:760):
760:	  if ($Cnf{"ForceDate"}=~
761:	      /^(\d{4})-(\d{2})-(\d{2})-(\d{2}):(\d{2}):(\d{2})$/) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:764):
764:	    ($s,$mn,$h,$d,$m,$y,$wday,$yday,$isdst)=localtime(time);
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:765):
765:	    $y+=1900;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:766):
766:	    $m++;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:768):
768:	  _Date_DateCheck(\$y,\$m,\$d,\$h,\$mn,\$s,\$ampm,\$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5489):
5489:	  print "DEBUG: _Date_DateCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5490):
5490:	  my($y,$m,$d,$h,$mn,$s,$ampm,$wk)=@_;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5491):
5491:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5493):
5493:	  my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5494):
5494:	  my($curr_y)=$Curr{"Y"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5495):
5495:	  my($curr_m)=$Curr{"M"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5496):
5496:	  my($curr_d)=$Curr{"D"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5497):
5497:	  $$m=1, $$d=1  if (defined $$y and ! defined $$m and ! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5498):
5498:	  $$y=""     if (! defined $$y);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5499):
5499:	  $$m=""     if (! defined $$m);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5500):
5500:	  $$d=""     if (! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5501):
5501:	  $$wk=""    if (! defined $$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5502):
5502:	  $$d=$curr_d  if ($$y eq "" and $$m eq "" and $$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5505):
5505:	  $$y=$curr_y             if ($$y eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5506):
5506:	  $$y=_Date_FixYear($$y)  if (length($$y)<4);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5507):
5507:	  return 1                if (! _IsInt($$y,0,9999));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5508):
5508:	  $d_in_m[2]=29           if (Date_LeapYear($$y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5511):
5511:	  $$m=$curr_m             if ($$m eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5512):
5512:	  $$m=$Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)}
5513:	    if (exists $Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)});
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5514):
5514:	  $$m="0$$m"              if (length($$m)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5515):
5515:	  return 1                if (! _IsInt($$m,1,12));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5518):
5518:	  $$d="01"                if ($$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5519):
5519:	  $$d="0$$d"              if (length($$d)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5520):
5520:	  return 1                if (! _IsInt($$d,1,$d_in_m[$$m]));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5521):
5521:	  if ($$wk) {
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5528):
5528:	  return _Date_TimeCheck($h,$mn,$s,$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5431):
5431:	  print "DEBUG: _Date_TimeCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5432):
5432:	  my($h,$mn,$s,$ampm)=@_;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5433):
5433:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5435):
5435:	  $$h=""     if (! defined $$h);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5436):
5436:	  $$mn=""    if (! defined $$mn);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5437):
5437:	  $$s=""     if (! defined $$s);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5438):
5438:	  $$ampm=""  if (! defined $$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5439):
5439:	  $$ampm=uc($$ampm)  if ($$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5442):
5442:	  $tmp1=$Lang{$Cnf{"Language"}}{"AmPm"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5443):
5443:	  $tmp2="";
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5444):
5444:	  if ($$ampm =~ /^$tmp1$/i) {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5452):
5452:	  if ($tmp2 eq "AM" || $tmp2 eq "PM") {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5458):
5458:	    $$h="00"      if ($$h eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5459):
5459:	    $$h="0$$h"    if (length($$h)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5460):
5460:	    return 1      if (! _IsInt($$h,0,23));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5461):
5461:	    $tmp2="AM"    if ($$h<12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5462):
5462:	    $tmp2="PM"    if ($$h>=12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5464):
5464:	  $$ampm=$Lang{$Cnf{"Language"}}{"AMstr"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5465):
5465:	  $$ampm=$Lang{$Cnf{"Language"}}{"PMstr"}  if ($tmp2 eq "PM");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5468):
5468:	  $$mn="00"       if ($$mn eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5469):
5469:	  $$mn="0$$mn"    if (length($$mn)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5470):
5470:	  return 1        if (! _IsInt($$mn,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5473):
5473:	  $$s="00"        if ($$s eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5474):
5474:	  $$s="0$$s"      if (length($$s)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5475):
5475:	  return 1        if (! _IsInt($$s,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5477):
5477:	  return 0;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:769):
769:	  $Curr{"Y"}=$y;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:770):
770:	  $Curr{"M"}=$m;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:771):
771:	  $Curr{"D"}=$d;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:772):
772:	  $Curr{"H"}=$h;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:773):
773:	  $Curr{"Mn"}=$mn;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:774):
774:	  $Curr{"S"}=$s;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:775):
775:	  $Curr{"AmPm"}=$ampm;
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:776):
776:	  $Curr{"Now"}=_Date_Join($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4342):
4342:	  print "DEBUG: _Date_Join\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4343):
4343:	  foreach (0 .. $#_) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4346):
4346:	  my($y,$m,$d,$h,$mn,$s)=@_;
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4347):
4347:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4349):
4349:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4350):
4350:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4351):
4351:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4364):
4364:	  $m="0$m"    if (length($m)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4365):
4365:	  $d="0$d"    if (length($d)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4366):
4366:	  $h="0$h"    if (length($h)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4367):
4367:	  $mn="0$mn"  if (length($mn)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4368):
4368:	  $s="0$s"    if (length($s)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4369):
4369:	  "$y$ym$m$md$d$dh$h$hmn$mn$mns$s";
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:777):
777:	  if ($Cnf{"TodayIsMidnight"}) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:780):
780:	    $Curr{"Today"}=$Curr{"Now"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:783):
783:	  $Curr{"Debug"}=$Curr{"DebugVal"};
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:788):
788:	  if (wantarray) {
  DB<1> Date::Manip::Date_Init(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:804):
804:	  return ();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:818):
818:	  my($L)=$Cnf{"Language"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:819):
819:	  my($type)=$Cnf{"DateFormat"};
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:823):
823:	  if      ($Lang{$L}{"Exact"}  &&
824:	           s/$Lang{$L}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:857):
857:	  $delta="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:858):
858:	  $delta=ParseDateDelta($_)  if (/[^:0-9]/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1605):
1605:	  print "DEBUG: ParseDateDelta\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1606):
1606:	  my($args,@args,@a,$ref)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1607):
1607:	  local($_)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1608):
1608:	  @a=@_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1614):
1614:	  if ($#a!=0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1618):
1618:	  $args=$a[0];
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1619):
1619:	  $ref=ref $args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1620):
1620:	  if (! $ref) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1621):
1621:	    @args=($args);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1630):
1630:	  @a=@args;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1638):
1638:	  my(@colon,@delta,$delta,$dir,$colon,$sign,$val)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1639):
1639:	  my($len,$tmp,$tmp2,$tmpl)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1640):
1640:	  my($from,$to)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1641):
1641:	  my($workweek)=$Cnf{"WorkWeekEnd"}-$Cnf{"WorkWeekBeg"}+1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1643):
1643:	  Date_Init()  if (! $Curr{"InitDone"});
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1646):
1646:	  my($signexp)='((?:[+-]\s*)*)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1647):
1647:	  my($numexp)='(\d+)';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1648):
1648:	  my($exp1)="(?: \\s* $signexp \\s* $numexp \\s*)";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1649):
1649:	  my($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp,$i)=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1650):
1650:	  $yexp=$mexp=$wexp=$dexp=$hexp=$mnexp=$sexp="()()";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1651):
1651:	  $yexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Yabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1652):
1652:	  $mexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Mabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1653):
1653:	  $wexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Wabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1654):
1654:	  $dexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Dabb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1655):
1655:	  $hexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Habb"} .")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1656):
1656:	  $mnexp="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"MNabb"}.")?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1657):
1657:	  $sexp ="(?: $exp1 ". $Lang{$Cnf{"Language"}}{"Sabb"} ."?)?";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1658):
1658:	  my($future)=$Lang{$Cnf{"Language"}}{"Future"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1659):
1659:	  my($later)=$Lang{$Cnf{"Language"}}{"Later"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1660):
1660:	  my($past)=$Lang{$Cnf{"Language"}}{"Past"};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1662):
1662:	  $delta="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1663):
1663:	 PARSE: while (@a) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1664):
1664:	    $_ = join(" ", grep {defined;} @a);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1665):
1665:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1666):
1666:	    last  if ($_ eq "");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1670):
1670:	    if      ($Lang{$Cnf{"Language"}}{"Exact"} &&
1671:	             s/$Lang{$Cnf{"Language"}}{"Exact"}//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1682):
1682:	    $workweek=7  if ($Curr{"Mode"} != 2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1684):
1684:	    foreach $from (keys %{ $Lang{$Cnf{"Language"}}{"Repl"} }) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1685):
1685:	      $to=$Lang{$Cnf{"Language"}}{"Repl"}{$from};
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1686):
1686:	      s/(^|[^a-z])$from($|[^a-z])/$1$to$2/i;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1701):
1701:	    $len=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1702):
1702:	    $tmp=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1703):
1703:	    $dir=1;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1705):
1705:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1706):
1706:	    if ($tmp2 =~ s/(^|[^a-z])($future)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1715):
1715:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1716):
1716:	    if ($tmp2 =~ s/(^|[^a-z])($later)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1725):
1725:	    $tmp2=$_;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1726):
1726:	    if ($tmp2 =~ s/(^|[^a-z])($past)($|[^a-z])/$1 $3/i) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1735):
1735:	    $_ = $tmp;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1736):
1736:	    s/\s*$//;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1739):
1739:	    $colon="";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1740):
1740:	    if (s/($signexp?$numexp?(:($signexp?$numexp)?){1,6})$//) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1744):
1744:	    @colon=split(/:/,$colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1747):
1747:	    $sign="+";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1748):
1748:	    @delta=();
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1749):
1749:	    $i=6;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1750):
1750:	    foreach $exp1 ($yexp,$mexp,$wexp,$dexp,$hexp,$mnexp,$sexp) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1751):
1751:	      last  if ($#colon>=$i--);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1752):
1752:	      $val=0;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1753):
1753:	      if (s/^$exp1//ix) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1754):
1754:	        $val=$2   if ($2);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1755):
1755:	        $sign=$1  if ($1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1761):
1761:	      $sign =~ s/\s+//g;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1762):
1762:	      $sign =~ tr/+//d;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1763):
1763:	      my $count = ($sign =~ tr/-//d);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1764):
1764:	      die "bad characters in sign: $sign" if length $sign;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1765):
1765:	      $sign = $count % 2 ? '-' : '+';
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1767):
1767:	      push(@delta,"$sign$val");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1769):
1769:	    if (! /^\s*$/) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1782):
1782:	    }
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1775):
1775:	    for ($i=0; $i<=$#colon; $i++) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1785):
1785:	    push(@delta,@colon);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1786):
1786:	    if ($dir<0) {
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1793):
1793:	    $delta=join(":",@delta);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1794):
1794:	    splice(@args,0,$#a+1);
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1795):
1795:	    @$args=@args  if (defined $ref  and  $ref eq "ARRAY");
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1796):
1796:	    last PARSE;
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1799):
1799:	  $delta=_Delta_Normalize($delta,$Curr{"Mode"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4209):
4209:	  print "DEBUG: _Delta_Normalize\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4210):
4210:	  my($delta,$mode)=@_;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4211):
4211:	  return "" if (! $delta);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4212):
4212:	  return "+0:+0:+0:+0:+0:+0:+0"
4213:	    if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/ and $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4214):
4214:	  return "+0:0:0:0:0:0:0" if ($delta =~ /^([+-]?0+:){6}[+-]?0+$/);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4216):
4216:	  my($tmp,$sign1,$sign2,$len)=();
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4219):
4219:	  $len=24*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4220):
4220:	  $len=$Curr{"WDlen"}  if ($mode==2 || $mode==3);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4226):
4226:	  my($y,$mon,$w,$d,$h,$m,$s)=_Delta_Split($delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4305):
4305:	  print "DEBUG: _Delta_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4306):
4306:	  my($delta,$sign,$exact)=@_;
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4307):
4307:	  my(@delta)=split(/:/,$delta);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4308):
4308:	  return ()  if ($exact  and $#delta != 6);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4309):
4309:	  my($i)=();
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4310):
4310:	  $sign="+"  if (! defined $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4316):
4316:	  }
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4311):
4311:	  for ($i=0; $i<=$#delta; $i++) {
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4312):
4312:	    $delta[$i]="0"  if (! $delta[$i]);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4313):
4313:	    return ()  if ($delta[$i] !~ /^[+-]?\d+$/);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4314):
4314:	    $sign = ($delta[$i] =~ s/^([+-])// ? $1 : $sign);
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4315):
4315:	    $delta[$i] = $sign.$delta[$i];
  DB<1> Date::Manip::_Delta_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4317):
4317:	  @delta;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4235):
4235:	  $mon += $y*12;                         # convert y to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4236):
4236:	  $sign1="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4237):
4237:	  if ($mon<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4242):
4242:	  $y    = $mon/12;                       # convert m to y
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4243):
4243:	  $mon -= $y*12;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4245):
4245:	  $y=0    if ($y eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4246):
4246:	  $mon=0  if ($mon eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4253):
4253:	    no integer;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4255):
4255:	    if ($mode==3 || $mode==2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4258):
4258:	      $s += ($d+7*$w)*$len*60 + $h*3600 + $m*60; # convert w/d/h/m to s
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4260):
4260:	    $sign2="+";
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4261):
4261:	    if ($s<0) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4266):
4266:	    $m  = int($s/60);                    # convert s to m
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4267):
4267:	    $s -= $m*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4268):
4268:	    $d  = int($m/$len);                  # convert m to d
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4269):
4269:	    $m -= $d*$len;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4273):
4273:	  $h  = $m/60;                           # convert m to h
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4274):
4274:	  $m -= $h*60;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4275):
4275:	  if ($mode == 3 || $mode == 2) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4278):
4278:	    $w  = $d/7;                          # convert d to w
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4279):
4279:	    $d -= $w*7;
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4282):
4282:	  $w=0    if ($w eq "-0");               # get around silly -0 problem
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4283):
4283:	  $d=0    if ($d eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4284):
4284:	  $h=0    if ($h eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4285):
4285:	  $m=0    if ($m eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4286):
4286:	  $s=0    if ($s eq "-0");
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4289):
4289:	  $sign1=$sign2  if ($y==0 and $mon==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4290):
4290:	  $sign2=$sign1  if ($w==0 and $d==0 and $h==0 and $m==0 and $s==0);
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4291):
4291:	  $sign2=""  if ($sign1 eq $sign2  and  ! $Cnf{"DeltaSigns"});
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4293):
4293:	  if ($Cnf{"DeltaSigns"}) {
  DB<1> Date::Manip::_Delta_Normalize(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4296):
4296:	    return "$sign1$y:$mon:$sign2$w:$d:$h:$m:$s";
  DB<1> Date::Manip::ParseDateDelta(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1800):
1800:	  return $delta;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:862):
862:	    my(@tmp)=_Date_Split($_);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:861):
861:	 PARSE: {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4436):
4436:	  print "DEBUG: _Date_Split\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4437):
4437:	  my($date, $definitely_valid)=@_;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4438):
4438:	  $definitely_valid = 0 if not defined $definitely_valid;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4439):
4439:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4440):
4440:	  my($y)='(\d{4})';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4441):
4441:	  my($m)='(0[1-9]|1[0-2])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4442):
4442:	  my($d)='(0[1-9]|[1-2][0-9]|3[0-1])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4443):
4443:	  my($h)='([0-1][0-9]|2[0-3])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4444):
4444:	  my($mn)='([0-5][0-9])';
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4445):
4445:	  my($s)=$mn;
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4447):
4447:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4448):
4448:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4449):
4449:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4463):
4463:	  my($t)="^$y$ym$m$md$d$dh$h$hmn$mn$mns$s\$";
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4465):
4465:	  if (not defined $date or $date eq '') {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4473):
4473:	  if ($date =~ /$t/) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4490):
4490:	  if ($definitely_valid) {
  DB<1> Date::Manip::_Date_Split(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4493):
4493:	  return ();
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:863):
863:	    if (@tmp) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:870):
870:	    my($month)=$Lang{$L}{"Month"};          # (jan|january|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:871):
871:	    my(%month)=%{ $Lang{$L}{"MonthH"} };    # { jan=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:872):
872:	    my($week)=$Lang{$L}{"Week"};            # (mon|monday|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:873):
873:	    my(%week)=%{ $Lang{$L}{"WeekH"} };      # { mon=>1, monday=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:874):
874:	    my($wom)=$Lang{$L}{"WoM"};              # (1st|...|fifth|last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:875):
875:	    my(%wom)=%{ $Lang{$L}{"WoMH"} };        # { 1st=>1,... fifth=>5,last=>-1 }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:876):
876:	    my($dom)=$Lang{$L}{"DoM"};              # (1st|first|...31st)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:877):
877:	    my(%dom)=%{ $Lang{$L}{"DoMH"} };        # { 1st=>1, first=>1, ... }
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:878):
878:	    my($ampmexp)=$Lang{$L}{"AmPm"};         # (am|pm)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:879):
879:	    my($timeexp)=$Lang{$L}{"Times"};        # (noon|midnight)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:880):
880:	    my($now)=$Lang{$L}{"Now"};              # now
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:881):
881:	    my($today)=$Lang{$L}{"Today"};          # today
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:882):
882:	    my($offset)=$Lang{$L}{"Offset"};        # (yesterday|tomorrow)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:883):
883:	    my($zone)=$Zone{"zones"};               # (edt|est|...)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:884):
884:	    my($day)='\s*'.$Lang{$L}{"Dabb"};       # \s*(?:d|day|days)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:885):
885:	    my($mabb)='\s*'.$Lang{$L}{"Mabb"};      # \s*(?:mon|month|months)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:886):
886:	    my($wkabb)='\s*'.$Lang{$L}{"Wabb"};     # \s*(?:w|wk|week|weeks)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:887):
887:	    my($next)='\s*'.$Lang{$L}{"Next"};      # \s*(?:next)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:888):
888:	    my($prev)='\s*'.$Lang{$L}{"Prev"};      # \s*(?:last|previous)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:889):
889:	    my($past)='\s*'.$Lang{$L}{"Past"};      # \s*(?:ago)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:890):
890:	    my($future)='\s*'.$Lang{$L}{"Future"};  # \s*(?:in)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:891):
891:	    my($later)='\s*'.$Lang{$L}{"Later"};    # \s*(?:later)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:892):
892:	    my($at)=$Lang{$L}{"At"};                # (?:at)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:893):
893:	    my($of)='\s*'.$Lang{$L}{"Of"};          # \s*(?:in|of)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:894):
894:	    my($on)='(?:\s*'.$Lang{$L}{"On"}.'\s*|\s+)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:896):
896:	    my($last)='\s*'.$Lang{$L}{"Last"};      # \s*(?:last)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:897):
897:	    my($hm)=$Lang{$L}{"SepHM"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:898):
898:	    my($ms)=$Lang{$L}{"SepMS"};             # :
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:899):
899:	    my($ss)=$Lang{$L}{"SepSS"};             # .
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:903):
903:	    my($D4)='(\d{4})';            	    # 4 digits      (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:904):
904:	    my($YY)='(\d{4}|\d{2})';      	    # 2 or 4 digits (yr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:905):
905:	    my($DD)='(\d{2})';            	    # 2 digits      (mon/day/hr/min/sec)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:906):
906:	    my($D) ='(\d{1,2})';          	    # 1 or 2 digit  (mon/day/hr)
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:907):
907:	    my($FS)="(?:$ss\\d+)?";       	    # fractional secs
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:908):
908:	    my($sep)='[\/.-]';            	    # non-ISO8601 m/d/yy separators
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:910):
910:	    my($hzone)='(?:[0-1][0-9]|2[0-3])';     # 00 - 23
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:911):
911:	    my($mzone)='(?:[0-5][0-9])';            # 00 - 59
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:912):
912:	    my($zone2)='(?:\s*([+-](?:'."$hzone$mzone|$hzone:$mzone|$hzone))".
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:917):
917:	    my($mnsec)="$hm$DD(?:$ms$DD$FS)?(?:\\s*$ampmexp)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:920):
920:	    my($apachetime)='(/\d{4}):' . "$DD$hm$DD$ms$DD";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:922):
922:	    my($time)="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:923):
923:	    $ampm="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:924):
924:	    $date="";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:927):
927:	    if (/(^|[^a-z])$timeexp($|[^a-z])/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:934):
934:	    s/[,]/ /g;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:940):
940:	    $tmp = "";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:941):
941:	    while ( s/^(.*?\d)$zone(\s|$|[0-9])/$3/i ) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:949):
949:	    $_ = "$tmp$_";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:950):
950:	    $zone = '\s+' . $zone . '(?:\s+|$)';
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:953):
953:	    $iso=1;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:954):
954:	    $midnight=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:955):
955:	    $from="24${hm}00(?:${ms}00)?";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:956):
956:	    $falsefrom="${hm}24${ms}00";   # Don't trap XX:24:00
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:957):
957:	    $to="00${hm}00${ms}00";
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:958):
958:	    $midnight=1  if (!/$falsefrom/  &&  s/$from/$to/);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:960):
960:	    $h=$mn=$s=0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:961):
961:	    if (/$D$mnsec/i || /$ampmexp/i) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1001):
1001:	    $time=0  if ($time ne "1");
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1002):
1002:	    s/\s+$//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1003):
1003:	    s/^\s+//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1006):
1006:	    if ($z) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1012):
1012:	    my($orig)=$_;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1015):
1015:	    if ( ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone?$/i)   ||
1016:	         ($iso && /^([0-9-]+(?:W[0-9-]+)?)$zone2?$/i)  ||
1017:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone?$/i)   ||
1018:	         ($iso && /^([0-9-]+(?:T[0-9-]+)?)$zone2?$/i)  ||
1019:	         ($iso && /^([0-9-]+)T$zone?$/i)   ||
1020:	         ($iso && /^([0-9-]+)T$zone2?$/i)  ||
1021:	         0) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1024):
1024:	      my(@z);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1025):
1025:	      if ($z) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1029):
1029:	      ($_,$z,$z2) = ($1,$2,$3);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1030):
1030:	      ($z,$z2)=@z  if (@z);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1032):
1032:	      s,([0-9])\s*-,$1 ,g; # Change all ISO8601 seps to spaces
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1033):
1033:	      s/^\s+//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1034):
1034:	      s/\s+$//;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1036):
1036:	      if (/^$D4\s*$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i ||
1037:	          /^$DD\s+$DD\s*$DD\s*t?$DD(?:$DD(?:$DD(\d*))?)?$/i ||
1038:	          0
1039:	         ) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1050):
1050:	        ($y,$m,$d,$h,$mn,$s,$tmp)=($1,$2,$3,$4,$5,$6,$7);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1051):
1051:	        if ($h==24 && (! defined $mn || $mn==0) && (! defined $s || $s==0)) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1055):
1055:	        $z = ""    if (! defined $h);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1056):
1056:	        return ""  if ($time  &&  defined $h);
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1057):
1057:	        last PARSE;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1450):
1450:	  if (! $date) {
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1451):
1451:	    return ""  if (_Date_DateCheck(\$y,\$m,\$d,\$h,\$mn,\$s,\$ampm,\$wk));
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5489):
5489:	  print "DEBUG: _Date_DateCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5490):
5490:	  my($y,$m,$d,$h,$mn,$s,$ampm,$wk)=@_;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5491):
5491:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5493):
5493:	  my(@d_in_m)=(0,31,28,31,30,31,30,31,31,30,31,30,31);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5494):
5494:	  my($curr_y)=$Curr{"Y"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5495):
5495:	  my($curr_m)=$Curr{"M"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5496):
5496:	  my($curr_d)=$Curr{"D"};
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5497):
5497:	  $$m=1, $$d=1  if (defined $$y and ! defined $$m and ! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5498):
5498:	  $$y=""     if (! defined $$y);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5499):
5499:	  $$m=""     if (! defined $$m);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5500):
5500:	  $$d=""     if (! defined $$d);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5501):
5501:	  $$wk=""    if (! defined $$wk);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5502):
5502:	  $$d=$curr_d  if ($$y eq "" and $$m eq "" and $$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5505):
5505:	  $$y=$curr_y             if ($$y eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5506):
5506:	  $$y=_Date_FixYear($$y)  if (length($$y)<4);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5507):
5507:	  return 1                if (! _IsInt($$y,0,9999));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5508):
5508:	  $d_in_m[2]=29           if (Date_LeapYear($$y));
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3411):
3411:	  print "DEBUG: Date_LeapYear\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3412):
3412:	  my($y)=@_;
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3413):
3413:	  $y=_Date_FixYear($y)  if (length($y)!=4);
  DB<1> Date::Manip::Date_LeapYear(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:3414):
3414:	  return 0 unless $y % 4 == 0;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5511):
5511:	  $$m=$curr_m             if ($$m eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5512):
5512:	  $$m=$Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)}
5513:	    if (exists $Lang{$Cnf{"Language"}}{"MonthH"}{lc($$m)});
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5514):
5514:	  $$m="0$$m"              if (length($$m)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5515):
5515:	  return 1                if (! _IsInt($$m,1,12));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5518):
5518:	  $$d="01"                if ($$d eq "");
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5519):
5519:	  $$d="0$$d"              if (length($$d)==1);
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5520):
5520:	  return 1                if (! _IsInt($$d,1,$d_in_m[$$m]));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5521):
5521:	  if ($$wk) {
  DB<1> Date::Manip::_Date_DateCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5528):
5528:	  return _Date_TimeCheck($h,$mn,$s,$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5431):
5431:	  print "DEBUG: _Date_TimeCheck\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5432):
5432:	  my($h,$mn,$s,$ampm)=@_;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5433):
5433:	  my($tmp1,$tmp2,$tmp3)=();
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5435):
5435:	  $$h=""     if (! defined $$h);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5436):
5436:	  $$mn=""    if (! defined $$mn);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5437):
5437:	  $$s=""     if (! defined $$s);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5438):
5438:	  $$ampm=""  if (! defined $$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5439):
5439:	  $$ampm=uc($$ampm)  if ($$ampm);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5442):
5442:	  $tmp1=$Lang{$Cnf{"Language"}}{"AmPm"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5443):
5443:	  $tmp2="";
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5444):
5444:	  if ($$ampm =~ /^$tmp1$/i) {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5452):
5452:	  if ($tmp2 eq "AM" || $tmp2 eq "PM") {
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5458):
5458:	    $$h="00"      if ($$h eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5459):
5459:	    $$h="0$$h"    if (length($$h)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5460):
5460:	    return 1      if (! _IsInt($$h,0,23));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5461):
5461:	    $tmp2="AM"    if ($$h<12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5462):
5462:	    $tmp2="PM"    if ($$h>=12);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5464):
5464:	  $$ampm=$Lang{$Cnf{"Language"}}{"AMstr"};
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5465):
5465:	  $$ampm=$Lang{$Cnf{"Language"}}{"PMstr"}  if ($tmp2 eq "PM");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5468):
5468:	  $$mn="00"       if ($$mn eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5469):
5469:	  $$mn="0$$mn"    if (length($$mn)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5470):
5470:	  return 1        if (! _IsInt($$mn,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5473):
5473:	  $$s="00"        if ($$s eq "");
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5474):
5474:	  $$s="0$$s"      if (length($$s)==1);
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5475):
5475:	  return 1        if (! _IsInt($$s,0,59));
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7329):
7329:	  my($N,$low,$high)=@_;
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7330):
7330:	  return 0  if (! defined $N  or
7331:	                $N !~ /^\s*[-+]?\d+\s*$/  or
7332:	                defined $low   &&  $N<$low  or
7333:	                defined $high  &&  $N>$high);
  DB<1> Date::Manip::_IsInt(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:7334):
7334:	  return 1;
  DB<1> Date::Manip::_Date_TimeCheck(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:5477):
5477:	  return 0;
  DB<1> Date::Manip::ParseDateString(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:1452):
1452:	    $date=_Date_Join($y,$m,$d,$h,$mn,$s);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4342):
4342:	  print "DEBUG: _Date_Join\n"  if ($Curr{"Debug"} =~ /trace/);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4343):
4343:	  foreach (0 .. $#_) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4344):
4344:	      croak "undefined arg $_ to _Date_Join()" if not defined $_[$_];
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4346):
4346:	  my($y,$m,$d,$h,$mn,$s)=@_;
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4347):
4347:	  my($ym,$md,$dh,$hmn,$mns)=();
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4349):
4349:	  if      ($Cnf{"Internal"} == 0) {
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4350):
4350:	    $ym=$md=$dh="";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4351):
4351:	    $hmn=$mns=":";
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4364):
4364:	  $m="0$m"    if (length($m)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4365):
4365:	  $d="0$d"    if (length($d)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4366):
4366:	  $h="0$h"    if (length($h)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4367):
4367:	  $mn="0$mn"  if (length($mn)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4368):
4368:	  $s="0$s"    if (length($s)==1);
  DB<1> Date::Manip::_Date_Join(/usr/lib/perl5/site_perl/5.8.8/Date/Manip.pm:4369):
4369:	  "$y$ym$m$md$d$dh$h$hmn$mn$mns$s";
  DB<1> Date::Man