diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-10 19:52:10 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-13 09:55:09 +0000 |
| commit | 6ae7e45950bbea01cc8774a8c6c78ed87228651c (patch) | |
| tree | 0c43ec5e4f05ff737c746eb9bfb7ab986ac80830 /lib/unicore | |
| parent | 8c1e32d8b48f4f5ed7cda109121338379397de87 (diff) | |
| download | perl-6ae7e45950bbea01cc8774a8c6c78ed87228651c.tar.gz | |
mktables executes seven time per build sigh
Message-ID: <9b18b3110609100852q2cfc2497ufceda5ff5d0875e3@mail.gmail.com>
(Fix for Windows)
p4raw-id: //depot/perl@28832
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 4200366384..006b9efd1c 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -45,6 +45,13 @@ while (@ARGV) } elsif ($arg eq '-w') { $AlwaysWrite = 1; # update the files even if they havent changed $FileList = ""; + } elsif ($arg eq '-check') { + my $this = shift @ARGV; + my $ok = shift @ARGV; + if ($this ne $ok) { + print "Skipping as check params are not the same.\n"; + exit(0); + } } elsif ($arg eq '-maketest') { $MakeTestScript = 1; } elsif ($arg eq '-makelist') { @@ -61,7 +68,8 @@ while (@ARGV) " -maketest : Make test script\n", " -makelist : Rewrite the file list based on current setup\n", " -L filelist : Use this file list, (defaults to $0)\n", - " -C dir : Change to this directory before proceding\n"; + " -C dir : Change to this directory before proceeding\n", + " -check A B : Executes only if A and B are the same\n"; } } |