From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Jun 2005 09:15:55 +0000 (+0000)
Subject: reentr.pl should be using regen_lib.pl and unlinking files before it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e06c4d37e9c075c9a909e0cdf8fdf9d851bbe1a4;p=p5sagit%2Fp5-mst-13.2.git

reentr.pl should be using regen_lib.pl and unlinking files before it
starts.

p4raw-id: //depot/perl@24774
---

diff --git a/reentr.pl b/reentr.pl
index a38eab1..cdce54e 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -5,6 +5,11 @@
 # and optionally also the relevant metaconfig units (-U option).
 # 
 
+BEGIN {
+    # Get function prototypes
+    require 'regen_lib.pl';
+}
+
 use strict;
 use Getopt::Std;
 my %opts;
@@ -35,6 +40,7 @@ my %map = (
 # Example #3: S_CBI   means type func_r(const char*, char*, int)
 
 
+safer_unlink 'reentr.h';
 die "reentr.h: $!" unless open(H, ">reentr.h");
 select H;
 print <<EOF;
@@ -759,6 +765,7 @@ close(H);
 
 # Prepare to write the reentr.c.
 
+safer_unlink 'reentr.c';
 die "reentr.c: $!" unless open(C, ">reentr.c");
 select C;
 print <<EOF;