chomp lines

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1347 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/TSV.pm b/lib/WebPAC/Input/TSV.pm
index 4871fb8..9fc8524 100644 (file)
--- a/lib/WebPAC/Input/TSV.pm
+++ b/lib/WebPAC/Input/TSV.pm
@@ -43,6 +43,7 @@ sub new {
        $self->{size} = 0;
 
        while ( my $line = <$fh> ) {
+               chomp $line;
 
                my $rec;
                $rec->{'000'} = [ ++$self->{size} ];