summaryrefslogtreecommitdiff
path: root/bytecode.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 /bytecode.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 'bytecode.pl')
-rw-r--r--bytecode.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/bytecode.pl b/bytecode.pl
index fc16f17615..0c921d4d1a 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -1,5 +1,6 @@
BEGIN {
push @INC, './lib';
+ require 'regen.pl';
}
use strict;
my %alias_to = (
@@ -36,7 +37,7 @@ EOT
my $perl_header;
($perl_header = $c_header) =~ s{[/ ]?\*/?}{#}g;
-unlink "ext/ByteLoader/byterun.c", "ext/ByteLoader/byterun.h", "ext/B/B/Asmdata.pm";
+safer_unlink "ext/ByteLoader/byterun.c", "ext/ByteLoader/byterun.h", "ext/B/B/Asmdata.pm";
#
# Start with boilerplate for Asmdata.pm
@@ -312,6 +313,11 @@ Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
=cut
EOT
+
+close ASMDATA_PM or die "Error closing ASMDATA_PM: $!";
+close BYTERUN_H or die "Error closing BYTERUN_H: $!";
+close BYTERUN_C or die "Error closing BYTERUN_C: $!";
+
__END__
# First set instruction ord("#") to read comment to end-of-line (sneaky)
%number 35