From 95aa056551f52c584698ab9faf16c6e993f2d2a5 Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Wed, 19 Mar 2008 10:55:59 +0000 Subject: add -v to regen.pl and friends From: "Robin Barker" Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093AA6@exchsvr2.npl.ad.local> p4raw-id: //depot/perl@33608 --- regen.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'regen.pl') diff --git a/regen.pl b/regen.pl index 821fa2ebc5..3d2ad4f8a9 100644 --- a/regen.pl +++ b/regen.pl @@ -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; -- cgit v1.2.1