diff options
| author | Robin Barker <RMBarker@cpan.org> | 2008-03-19 10:55:59 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-30 15:48:08 +0000 |
| commit | 95aa056551f52c584698ab9faf16c6e993f2d2a5 (patch) | |
| tree | 5d447cb5cd7e3355c17416d4c2329ef91a91f9ef /regen.pl | |
| parent | 08593cf4c9cb1d67bbda4d67054ff396110647f9 (diff) | |
| download | perl-95aa056551f52c584698ab9faf16c6e993f2d2a5.tar.gz | |
add -v to regen.pl and friends
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093AA6@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@33608
Diffstat (limited to 'regen.pl')
| -rw-r--r-- | regen.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -11,7 +11,6 @@ require 5.003; # keep this compatible, an old perl is all we may have before use strict; my $perl = $^X; -require 'regen_lib.pl'; # keep warnings.pl in sync with the CPAN distribution by not requiring core # changes. Um, what ? # safer_unlink ("warnings.h", "lib/warnings.pm"); @@ -46,10 +45,11 @@ sub do_cksum { foreach my $pl (qw (keywords.pl opcode.pl embed.pl regcomp.pl warnings.pl autodoc.pl reentr.pl)) { - print "$^X $pl\n"; + my @command = ($^X, $pl, @ARGV); + print "@command\n"; my %cksum0; %cksum0 = do_cksum($pl) unless $pl eq 'warnings.pl'; # the files were removed - system "$^X $pl"; + system @command; next if $pl eq 'warnings.pl'; # the files were removed my %cksum1 = do_cksum($pl); my @chg; |