Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.44, 2009/05/02 21:23:07 | version 1.46, 2009/05/24 10:10:17 |
---|---|
Line 90 sub parseDate { | Line 90 sub parseDate { |
$to =~ s/-(.*)-/-$month-/; | $to =~ s/-(.*)-/-$month-/; |
$to =~ s/-00*$/-01/; | $to =~ s/-00*$/-01/; |
} | } |
print Dumper($from, $to); | |
return ($from, $to); | return ($from, $to); |
} | } |
Line 121 sub getField { | Line 120 sub getField { |
next; | next; |
} | } |
if ($key) { | if ($key) { |
$value .= $_; | $value .= $_."\n"; |
next; | next; |
} | } |
} | } |
if ($key && $value) { | if ($key && $value) { |
$value=~s/\s+$//; | $value=~s/\s+$//sm; |
return ($key, $value); | return ($key, $value); |
} | } |
return (0, 0); | return (0, 0); |