From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 Aug 2000 13:27:50 +0000 (+0000)
Subject: Drop the separate perlbc, perlcc -b should be enough.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cdf0af66ed02028a5c0b55d38b6fda6c0c3683ee;p=p5sagit%2Fp5-mst-13.2.git

Drop the separate perlbc, perlcc -b should be enough.

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

diff --git a/MANIFEST b/MANIFEST
index 1d72878..fcca693 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1565,7 +1565,6 @@ utils/c2ph.PL		program to translate dbx stabs to perl
 utils/dprofpp.PL	Perl code profile post-processor
 utils/h2ph.PL		A thing to turn C .h files into perl .ph files
 utils/h2xs.PL		Program to make .xs files from C header files
-utils/perlbc.PL		Front-end for byte compiler
 utils/perlbug.PL	A simple tool to submit a bug report
 utils/perlcc.PL		Front-end for compiler
 utils/perldoc.PL	A simple tool to find & display perl's documentation
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index ad438e7..c496caf 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -217,12 +217,6 @@ The Emacs perl mode (emacs/cperl-mode.el) has been updated to version 4.31.
 
 =item *
 
-The long-dormant perl bytecompiler has been added to the list of
-installed utilities since the bytecompiler backend has been improved.
-The bytecompiler is still very much experimental, though.
-
-=item *
-
 Perlbug is now much more robust.  It also sends the bug report to perl.org,
 not perl.com.
 
diff --git a/pod/perlutil.pod b/pod/perlutil.pod
index 4ca1f9e..1b2c178 100644
--- a/pod/perlutil.pod
+++ b/pod/perlutil.pod
@@ -170,10 +170,6 @@ 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
@@ -184,6 +180,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<perlbc|perlbc>
+L<Devel::Dprof>, L<perlcc|perlcc>
 
 =cut
diff --git a/utils/Makefile b/utils/Makefile
index fc248d0..95d286e 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 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
+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
 
 all: $(plextract) 
 
diff --git a/utils/perlbc.PL b/utils/perlbc.PL
deleted file mode 100644
index fab4f34..0000000
--- a/utils/perlbc.PL
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate.  Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries.  Thus you write
-#  $startperl
-# to ensure Configure will look for $Config{startperl}.
-# Wanted:  $archlibexp
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
-    eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
-    if \$running_under_some_shell;
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-
-use strict;
-use warnings;
-
-our($running_under_some_shell);
-
-use Config;
-
-require ByteLoader;
-
-foreach my $infile (@ARGV)
-{
-    if ($infile =~ /\.p[ml]$/)
-    {
-	my $outfile = $infile . "c";
-
-	open(OUT,"> $outfile") || die "Can't open $outfile: $!";
-
-	if ($infile =~ /\.pl$/)
-	{
-	    print OUT "$Config{startperl}\n";
-	    print OUT "    eval 'exec $Config{perlpath} -S \$0 \${1+\"\$@\"}'\n";
-	    print OUT "    if \$running_under_some_shell;\n\n";
-	}
-
-	print OUT "use ByteLoader $ByteLoader::VERSION;\n";
-
-	close(OUT);
-
-	print "$^X -MO=Bytecode $infile >> $outfile\n";
-
-	system("$^X -MO=Bytecode $infile >> $outfile");
-    }
-    else
-    {
-	warn "Don't know how to byte compile $infile";
-    }
-}
-!NO!SUBS!
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;