lib.pm -> lib.pm.PL

Message-ID: <Pine.LNX.4.10.10006202208210.321-100000@mojo.covalent.net>

p4raw-id: //depot/cfgperl@6227

diff --git a/MANIFEST b/MANIFEST
index be991fb..2681a11 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -720,7 +720,7 @@ lib/hostname.pl             Old hostname code
 lib/importenv.pl       Perl routine to get environment into variables
 lib/integer.pm         For "use integer"
 lib/less.pm            For "use less"
-lib/lib.pm             For "use lib"
+lib/lib.pm.PL          For "use lib"
 lib/locale.pm          For "use locale"
 lib/look.pl            A "look" equivalent
 lib/newgetopt.pl       A perl library supporting long option parsing

diff --git a/Makefile.SH b/Makefile.SH
index 84226d5..52789b9 100644 (file)
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -231,10 +231,10 @@ shextract = Makefile cflags config.h makeaperl makedepend \
 # available.  Dependencies handled manually below (for now).
 
 pl = pod/pod2html.PL pod/pod2latex.PL pod/pod2man.PL pod/pod2text.PL \
-       pod/pod2usage.PL pod/podchecker.PL pod/podselect.PL
+       pod/pod2usage.PL pod/podchecker.PL pod/podselect.PL lib/lib.pm.PL
 
 plextract = pod/pod2html pod/pod2latex pod/pod2man pod/pod2text \
-       pod/pod2usage pod/podchecker pod/podselect
+       pod/pod2usage pod/podchecker pod/podselect lib/lib.pm
 
 addedbyconf = UU $(shextract) $(plextract) pstruct
 

diff --git a/lib/lib.pm b/lib/lib.pm.PL
similarity index 78%
rename from lib/lib.pm
rename to lib/lib.pm.PL
index 98e2f73..1b5efa0 100644 (file)
--- a/lib/lib.pm
+++ b/lib/lib.pm.PL
@@ -1,12 +1,35 @@
+use Config;
+use File::Basename qw(&basename &dirname);
+use File::Spec;
+use Cwd;
+
+my $origdir = cwd;
+chdir dirname($0);
+my $file = basename($0, '.PL');
+
+my $Config_archname = defined($Config{'archname'}) ? $Config{'archname'} : '';
+my $Config_ver = defined($Config{'version'}) ? $Config{'version'} : '';
+my @Config_inc_version_list = defined($Config{'inc_version_list'}) ?
+  reverse split / /, $Config{'inc_version_list'} : ();
+ 
+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!";
 package lib;
 
 use 5.005_64;
-use Config;
 
-my $archname = defined($Config{'archname'}) ? $Config{'archname'} : '';
-my $ver = defined($Config{'version'}) ? $Config{'version'} : '';
-my @inc_version_list = defined($Config{'inc_version_list'}) ?
-   reverse split / /, $Config{'inc_version_list'} : ();
+my \$archname = "$Config_archname";
+my \$ver = "$Config_ver";
+my \@inc_version_list = qw(@Config_inc_version_list);
+
+!GROK!THIS!
+print OUT <<'!NO!SUBS!';
 
 our @ORIG_INC = @INC;  # take a handy copy of 'original' value
 our $VERSION = '0.5564';
@@ -131,3 +154,7 @@ FindBin - optional module which deals with paths relative to the source file.
 Tim Bunce, 2nd June 1995.
 
 =cut
+!NO!SUBS!
+
+close OUT or die "Can't close $file: $!";
+chdir $origdir;