summaryrefslogtreecommitdiff
path: root/regcomp.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2002-10-29 23:00:05 +0000
committerhv <hv@crypt.org>2002-11-19 12:07:25 +0000
commit36bb303b6ac55df9c2780b48d374c505374dc378 (patch)
tree6aa3bf528c2bb5e5d77e72a8f5137a045663734e /regcomp.pl
parent0dae17bd7971d11b90a07b6fc03ec78ab38e4db4 (diff)
downloadperl-36bb303b6ac55df9c2780b48d374c505374dc378.tar.gz
regen_headers outside Makefile (was Re: [PATCH] embed.pl doc)
Message-ID: <20021029230003.GF287@Bagpuss.unfortu.net> p4raw-id: //depot/perl@18160
Diffstat (limited to 'regcomp.pl')
-rw-r--r--regcomp.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/regcomp.pl b/regcomp.pl
index 6ae847882d..225882a576 100644
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -1,3 +1,7 @@
+BEGIN {
+ # Get function prototypes
+ require 'regen.pl';
+}
#use Fatal qw(open close rename chmod unlink);
open DESC, 'regcomp.sym';
$ind = 0;
@@ -112,8 +116,6 @@ static const int reg_num = $tot;
EOP
-close OUT;
+close OUT or die "close $tmp_h: $!";
-chmod 0666, 'regnodes.h';
-unlink 'regnodes.h';
-rename $tmp_h, 'regnodes.h';
+safer_rename $tmp_h, 'regnodes.h';