diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/ExtUtils/Install.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/ExtUtils/Install.pm | 36 |
1 files changed, 12 insertions, 24 deletions
diff --git a/gnu/usr.bin/perl/lib/ExtUtils/Install.pm b/gnu/usr.bin/perl/lib/ExtUtils/Install.pm index 18510ade4b7..30740e07312 100644 --- a/gnu/usr.bin/perl/lib/ExtUtils/Install.pm +++ b/gnu/usr.bin/perl/lib/ExtUtils/Install.pm @@ -2,7 +2,7 @@ package ExtUtils::Install; use 5.00503; use vars qw(@ISA @EXPORT $VERSION); -$VERSION = 1.32; +$VERSION = '1.33'; use Exporter; use Carp (); @@ -273,12 +273,12 @@ sub install_default { @_ < 2 or die "install_default should be called with 0 or 1 argument"; my $FULLEXT = @_ ? shift : $ARGV[0]; defined $FULLEXT or die "Do not know to where to write install log"; - my $INST_LIB = File::Spec->catdir(File::Spec->curdir,"blib","lib"); - my $INST_ARCHLIB = File::Spec->catdir(File::Spec->curdir,"blib","arch"); - my $INST_BIN = File::Spec->catdir(File::Spec->curdir,'blib','bin'); - my $INST_SCRIPT = File::Spec->catdir(File::Spec->curdir,'blib','script'); - my $INST_MAN1DIR = File::Spec->catdir(File::Spec->curdir,'blib','man1'); - my $INST_MAN3DIR = File::Spec->catdir(File::Spec->curdir,'blib','man3'); + my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib"); + my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch"); + my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin'); + my $INST_SCRIPT = File::Spec->catdir($Curdir,'blib','script'); + my $INST_MAN1DIR = File::Spec->catdir($Curdir,'blib','man1'); + my $INST_MAN3DIR = File::Spec->catdir($Curdir,'blib','man3'); install({ read => "$Config{sitearchexp}/auto/$FULLEXT/.packlist", write => "$Config{installsitearch}/auto/$FULLEXT/.packlist", @@ -398,6 +398,7 @@ sub run_filter { Copies each key of %from_to to its corresponding value efficiently. Filenames with the extension .pm are autosplit into the $autosplit_dir. +Any destination directories are created. $filter_cmd is an optional shell command to run each .pm file through prior to splitting and copying. Input is the contents of the module, @@ -416,19 +417,6 @@ sub pm_to_blib { use File::Path qw(mkpath); use File::Compare qw(compare); use AutoSplit; - # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al)); - # require $my_req; # Hairy, but for the first - - if (!ref($fromto) && -r $fromto) - { - # Win32 has severe command line length limitations, but - # can generate temporary files on-the-fly - # so we pass name of file here - eval it to get hash - open(FROMTO,"<$fromto") or die "Cannot open $fromto:$!"; - my $str = '$fromto = {qw{'.join('',<FROMTO>).'}}'; - eval $str; - close(FROMTO); - } mkpath($autodir,0,0755); while(my($from, $to) = each %$fromto) { @@ -533,14 +521,14 @@ Will be prepended to each install path. Original author lost in the mists of time. Probably the same as Makemaker. -Currently maintained by Michael G Schwern <F<schwern@pobox.com>> +Currently maintained by Michael G Schwern C<schwern@pobox.com> -Send patches and ideas to <F<makemaker@perl.org>>. +Send patches and ideas to C<makemaker@perl.org>. Send bug reports via http://rt.cpan.org/. Please send your generated Makefile along with your report. -For more up-to-date information, see http://www.makemaker.org. +For more up-to-date information, see L<http://www.makemaker.org>. =head1 LICENSE @@ -548,7 +536,7 @@ For more up-to-date information, see http://www.makemaker.org. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. -See F<http://www.perl.com/perl/misc/Artistic.html> +See L<http://www.perl.com/perl/misc/Artistic.html> =cut |