/[webpac2]/trunk/lib/WebPAC/Input/TSV.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/TSV.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1346 by dpavlin, Sat Oct 16 17:47:25 2010 UTC revision 1347 by dpavlin, Sat Oct 16 17:51:00 2010 UTC
# Line 43  sub new { Line 43  sub new {
43          $self->{size} = 0;          $self->{size} = 0;
44    
45          while ( my $line = <$fh> ) {          while ( my $line = <$fh> ) {
46                    chomp $line;
47    
48                  my $rec;                  my $rec;
49                  $rec->{'000'} = [ ++$self->{size} ];                  $rec->{'000'} = [ ++$self->{size} ];
Legend:
Removed from v.1346  
changed lines
  Added in v.1347
  ViewVC Help
Powered by ViewVC 1.1.26