diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 09:39:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 09:39:21 +0000 |
| commit | 396ce246b9969d83ec11500def9604b58fb4c726 (patch) | |
| tree | f734958364f9fa7ee848980d1455b4b2269d8056 /regen/regcomp.pl | |
| parent | bb5cff7d658d1934f2c79f668c3b916bd9abbcbb (diff) | |
| download | perl-396ce246b9969d83ec11500def9604b58fb4c726.tar.gz | |
In regen_lib.pl, when opening, first unlink a previous file of that name.
Previously regcomp.pl had an explicit unlink for the file it creates, but none
of the other regen/*.pl scripts did. Also, remove commented out code relating
to unlink.
Diffstat (limited to 'regen/regcomp.pl')
| -rw-r--r-- | regen/regcomp.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/regen/regcomp.pl b/regen/regcomp.pl index 913dda59f6..98a3889ede 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -17,7 +17,6 @@ BEGIN { # Get function prototypes require 'regen/regen_lib.pl'; } -#use Fatal qw(open close rename chmod unlink); use strict; open DESC, 'regcomp.sym'; @@ -129,8 +128,6 @@ EOP my $tmp_h = 'regnodes.h-new'; -unlink $tmp_h if -f $tmp_h; - my $out = safer_open($tmp_h); print $out read_only_top(lang => 'C', by => 'regen/regcomp.pl', |