--- db/prgsrc/updatedb.pl 2009/05/02 21:23:07 1.44 +++ db/prgsrc/updatedb.pl 2009/05/24 10:10:17 1.46 @@ -28,7 +28,7 @@ The database, user and password are hard Dmitry Rubinstein -=head1 $Id: updatedb.pl,v 1.44 2009/05/02 21:23:07 roma7 Exp $ +=head1 $Id: updatedb.pl,v 1.46 2009/05/24 10:10:17 roma7 Exp $ =cut @@ -90,7 +90,6 @@ sub parseDate { $to =~ s/-(.*)-/-$month-/; $to =~ s/-00*$/-01/; } - print Dumper($from, $to); return ($from, $to); } @@ -121,12 +120,12 @@ sub getField { next; } if ($key) { - $value .= $_; + $value .= $_."\n"; next; } } if ($key && $value) { - $value=~s/\s+$//; + $value=~s/\s+$//sm; return ($key, $value); } return (0, 0);