diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-26 19:55:20 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-26 19:55:20 +0000 |
commit | ce28de53280045efd40d128c35482d809354e666 (patch) | |
tree | 97dd481fe6dd7447573a47ad9bc41566e31afa05 /utils/cpan.PL | |
parent | 51d9a56bf5df931c436b7ede535c78bc64655187 (diff) | |
download | perl-ce28de53280045efd40d128c35482d809354e666.tar.gz |
Add a file utils/cpan.PL to generate the "cpan" utility,
also separately maintained on CPAN, and now moved as
lib/CPAN/bin/cpan. Tweak installperl to avoid installing
this last file.
p4raw-id: //depot/perl@19065
Diffstat (limited to 'utils/cpan.PL')
-rw-r--r-- | utils/cpan.PL | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/utils/cpan.PL b/utils/cpan.PL new file mode 100644 index 0000000000..5e12d78d6f --- /dev/null +++ b/utils/cpan.PL @@ -0,0 +1,48 @@ +#!/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}. + +# 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. +my $origdir = cwd; +chdir dirname($0); +my $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! + +use File::Spec; + +my $cpan = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "CPAN", "bin"), "cpan"); + +if (open(CPAN, $cpan)) { + print OUT <CPAN>; + close CPAN; +} else { + die "$0: cannot find '$cpan'\n"; +} + +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; |