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/reentr.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/reentr.pl')
| -rw-r--r-- | regen/reentr.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl index 3586bc1348..963dd96e00 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -51,7 +51,6 @@ my %map = ( # Example #3: S_CBI means type func_r(const char*, char*, int) -# safer_unlink 'reentr.h'; my $h = safer_open("reentr.h-new"); select $h; print read_only_top(lang => 'C', by => 'regen/reentr.pl', @@ -792,7 +791,6 @@ rename_if_different('reentr.h-new', 'reentr.h'); # Prepare to write the reentr.c. -# safer_unlink 'reentr.c'; my $c = safer_open("reentr.c-new"); select $c; my $top = read_only_top(lang => 'C', by => 'regen/reentr.pl', |