equal
deleted
inserted
replaced
288 print "* reading package information from $file...\n" if ($verbose); |
288 print "* reading package information from $file...\n" if ($verbose); |
289 open PKG_LIST, "<$file" or die "Can't open $file: $!\n"; |
289 open PKG_LIST, "<$file" or die "Can't open $file: $!\n"; |
290 foreach my $line (<PKG_LIST>) |
290 foreach my $line (<PKG_LIST>) |
291 { |
291 { |
292 chomp($line); |
292 chomp($line); |
|
293 $line =~ s/\015//g; # remove CR, in case we are processing Windows text files on Linux |
293 |
294 |
294 my $revision; # set when processing build-info listings |
295 my $revision; # set when processing build-info listings |
295 |
296 |
296 # build-info.xml format |
297 # build-info.xml format |
297 # <baseline>//v800008/Builds01/mercurial_master_prod/sfl/MCL/sf/adaptation/stubs/#7:e086c7f635d5</baseline> |
298 # <baseline>//v800008/Builds01/mercurial_master_prod/sfl/MCL/sf/adaptation/stubs/#7:e086c7f635d5</baseline> |