diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-06-20 12:00:56 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-06-20 12:00:56 +0000 |
| commit | 00da7942926f78f065bf22f95a34f99cf3d0b5bf (patch) | |
| tree | 23bb735e02644f32dcaffef5701f33fc54eae2ce /lib/unicore/mktables | |
| parent | 8926f2692a3d9503b59a973004dd4d70385b09a0 (diff) | |
| download | perl-00da7942926f78f065bf22f95a34f99cf3d0b5bf.tar.gz | |
make mktables always update modifed time to play better with make
p4raw-id: //depot/perl@22963
Diffstat (limited to 'lib/unicore/mktables')
| -rw-r--r-- | lib/unicore/mktables | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index aa926432ac..18f0033506 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -27,6 +27,7 @@ my %BaseNames; ## my $Verbose = 0; my $MakeTestScript = 0; +my $AlwaysWrite = 0; while (@ARGV) { @@ -35,6 +36,8 @@ while (@ARGV) $Verbose = 1; } elsif ($arg eq '-q') { $Verbose = 0; + } elsif ($arg eq '-w') { + $AlwaysWrite = 1; # update the files even if they havent changed } elsif ($arg eq '-maketest') { $MakeTestScript = 1; } elsif ($arg eq '-C' && defined (my $dir = shift)) { @@ -88,7 +91,7 @@ sub WriteIfChanged($\@) close IN; if ($PreviousText eq $TextToWrite) { print "$file unchanged.\n" if $Verbose; - return; + return unless $AlwaysWrite; } } force_unlink ($file); |