equal
deleted
inserted
replaced
291 |
291 |
292 my $revision; # set when processing build-info listings |
292 my $revision; # set when processing build-info listings |
293 |
293 |
294 # build-info.xml format |
294 # build-info.xml format |
295 # <baseline>//v800008/Builds01/mercurial_master_prod/sfl/MCL/sf/adaptation/stubs/#:e086c7f635d5</baseline> |
295 # <baseline>//v800008/Builds01/mercurial_master_prod/sfl/MCL/sf/adaptation/stubs/#:e086c7f635d5</baseline> |
296 if ($line =~ /<baseline>(.*)#:([0-9a-z]+)<\/baseline>/i) |
296 if ($line =~ /<baseline>(.*)#:?([0-9a-z]+)<\/baseline>/i) |
297 { |
297 { |
298 $line = $1; # discard the wrapping |
298 $line = $1; # discard the wrapping |
299 $revision = $2; |
299 $revision = $2; |
300 } |
300 } |
301 |
301 |