This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In regen_lib.pl, when opening, first unlink a previous file of that name.
[perl5.git] / regen / regcomp.pl
index 913dda5..98a3889 100644 (file)
@@ -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',