diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 17:54:58 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 17:54:58 +0000 |
| commit | a8581515f26a081f18157dc1cf5553deae632d07 (patch) | |
| tree | bf3d23fdba9d467bb86634b2b79dd5795064be61 /bytecode.pl | |
| parent | a8a597b252f6dd39ef24cf476a20f8618821e02f (diff) | |
| parent | 98b55637d580660d79fad229f9c059fcbf7985c2 (diff) | |
| download | perl-a8581515f26a081f18157dc1cf5553deae632d07.tar.gz | |
Start getting compiler to work when built with the core.
[Still won't work as of this change.]
p4raw-id: //depot/perl@563
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/bytecode.pl b/bytecode.pl index 2423e3c93a..7fa3fe4114 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -20,7 +20,7 @@ while (($from, $tos) = each %alias_to) { my $c_header = <<'EOT'; /* - * Copyright (c) 1996, 1997 Malcolm Beattie + * Copyright (c) 1996-1998 Malcolm Beattie * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -34,20 +34,12 @@ EOT my $perl_header; ($perl_header = $c_header) =~ s{[/ ]?\*/?}{#}g; -if (-f "byterun.c") { - rename("byterun.c", "byterun.c.old"); -} -if (-f "byterun.h") { - rename("byterun.h", "byterun.h.old"); -} -if (-f "B/Asmdata.pm") { - rename("B/Asmdata.pm", "B/Asmdata.pm.old"); -} +unlink "byterun.c", "byterun.h", "lib/B/Asmdata.pm"; # # Start with boilerplate for Asmdata.pm # -open(ASMDATA_PM, ">B/Asmdata.pm") or die "Asmdata.pm: $!"; +open(ASMDATA_PM, ">lib/B/Asmdata.pm") or die "Asmdata.pm: $!"; print ASMDATA_PM $perl_header, <<'EOT'; package B::Asmdata; use Exporter; |