/[qa]/trunk/pts/perl/common.pl
ViewVC logotype

Diff of /trunk/pts/perl/common.pl

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

revision 349 by hertzog, Tue Aug 13 07:28:27 2002 UTC revision 423 by hertzog, Tue Oct 22 11:01:00 2002 UTC
# Line 113  sub load_sources { Line 113  sub load_sources {
113      return if (scalar(keys %bin2src));      return if (scalar(keys %bin2src));
114      open(SOURCES, "< $sources") || warn "Can't open $sources: $!\n";      open(SOURCES, "< $sources") || warn "Can't open $sources: $!\n";
115      while(defined($_=<SOURCES>)) {      while(defined($_=<SOURCES>)) {
116          my ($bin, $src) = (split(/\s+/));          my ($bin, $comp, $src) = (split(/\s+/));
117          $bin2src{lc($bin)} = lc($src);          $bin2src{lc($bin)} = lc($src);
118          $src{lc($src)} = 1;          $src{lc($src)} = 1;
119      }      }
Legend:
Removed from v.349  
changed lines
  Added in v.423
  ViewVC Help
Powered by ViewVC 1.1.5