From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 22 Aug 2000 13:38:12 +0000 (+0000)
Subject: More bytecompiler.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ab03db888c10e7993ac75190a132083dd9631d4;p=p5sagit%2Fp5-mst-13.2.git

More bytecompiler.

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

diff --git a/pod/perlutil.pod b/pod/perlutil.pod
index 1b2c178..4ca1f9e 100644
--- a/pod/perlutil.pod
+++ b/pod/perlutil.pod
@@ -170,6 +170,10 @@ for more information.
 
 F<perlcc> is the interface to the experimental Perl compiler suite.
 
+=item L<perlbc|perlbc>
+
+F<perlbc> is the interface to the experimental Perl bytecompiler suite.
+
 =back
 
 =head2 SEE ALSO
@@ -180,6 +184,6 @@ L<podchecker|podchecker>, L<splain|splain>, L<perldiag>,
 L<roffitall|roffitall>, L<a2p|a2p>, L<s2p|s2p>, L<find2perl|find2perl>,
 L<File::Find|File::Find>, L<pl2pm|pl2pm>, L<perlbug|perlbug>,
 L<h2ph|h2ph>, L<c2ph|c2ph>, L<h2xs|h2xs>, L<dprofpp|dprofpp>,
-L<Devel::Dprof>, L<perlcc|perlcc>
+L<Devel::Dprof>, L<perlcc|perlcc>, L<perlbc|perlbc>
 
 =cut
diff --git a/utils/Makefile b/utils/Makefile
index 95d286e..fc248d0 100644
--- a/utils/Makefile
+++ b/utils/Makefile
@@ -5,9 +5,9 @@ REALPERL = ../perl
 # Files to be built with variable substitution after miniperl is
 # available.  Dependencies handled manually below (for now).
 
-pl = c2ph.PL h2ph.PL h2xs.PL perlbug.PL perldoc.PL pl2pm.PL splain.PL perlcc.PL dprofpp.PL
-plextract  = c2ph h2ph h2xs perlbug perldoc pl2pm splain perlcc dprofpp
-plextractexe  = c2ph.exe h2ph.exe h2xs.exe perlbug.exe perldoc.exe pl2pm.exe splain.exe perlcc.exe dprofpp.exe
+pl = c2ph.PL h2ph.PL h2xs.PL perlbug.PL perldoc.PL pl2pm.PL splain.PL perlcc.PL perlbc.PL dprofpp.PL
+plextract  = c2ph h2ph h2xs perlbug perldoc pl2pm splain perlcc perlbc dprofpp
+plextractexe  = c2ph.exe h2ph.exe h2xs.exe perlbug.exe perldoc.exe pl2pm.exe splain.exe perlcc.exe perlbc.exe dprofpp.exe
 
 all: $(plextract) 
 
diff --git a/utils/perlbc.PL b/utils/perlbc.PL
index 51d074b..fab4f34 100644
--- a/utils/perlbc.PL
+++ b/utils/perlbc.PL
@@ -37,8 +37,9 @@ $Config{startperl}
 print OUT <<'!NO!SUBS!';
 
 use strict;
-use warning;
-no warning qw(once);
+use warnings;
+
+our($running_under_some_shell);
 
 use Config;