More bytecompiler.

p4raw-id: //depot/perl@6764

diff --git a/pod/perlutil.pod b/pod/perlutil.pod
index 1b2c178..4ca1f9e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;