equal
deleted
inserted
replaced
23 my $previousPdkLabel = shift or die "Second argument must be hg label to compare against\n"; |
23 my $previousPdkLabel = shift or die "Second argument must be hg label to compare against\n"; |
24 my $detailsTsvFilename = shift or die "Third argument must be filename to write detailed TSV data into\n"; |
24 my $detailsTsvFilename = shift or die "Third argument must be filename to write detailed TSV data into\n"; |
25 defined shift and die "No more than three arguments please\n"; |
25 defined shift and die "No more than three arguments please\n"; |
26 |
26 |
27 # Use external scripts to get the raw data and produce the CSV summary (to go into Excel, etc) |
27 # Use external scripts to get the raw data and produce the CSV summary (to go into Excel, etc) |
28 #system("perl $FindBin::Bin\\..\\clone_packages\\clone_all_packages.pl -packagelist $bomInfoFile -exec -- hg status -A --rev $previousPdkLabel 2>&1 | perl $FindBin::Bin\\..\\williamr\\summarise_hg_status.pl 2> nul: > $detailsTsvFilename"); |
28 system("perl $FindBin::Bin\\..\\clone_packages\\clone_all_packages.pl -packagelist $bomInfoFile -exec -- hg status -A --rev $previousPdkLabel 2>&1 | perl $FindBin::Bin\\..\\williamr\\summarise_hg_status.pl 2> nul: > $detailsTsvFilename"); |
29 |
29 |
30 # The redirection above means that we discard STDERR from summarise_hg_status, |
30 # The redirection above means that we discard STDERR from summarise_hg_status, |
31 # which lists packages for which it was unable to generate any data |
31 # which lists packages for which it was unable to generate any data |
32 # |
32 # |
33 # It's discarded because that happens either because it's a new package or has |
33 # It's discarded because that happens either because it's a new package or has |