chomp lines

[webpac2] / lib / WebPAC / Input / TSV.pm

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} ];