Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 40 lines (29 sloc) 1.375 kB
#!/usr/bin/perl
=for developers
NAME DESCRIPTION repo CPAN | wget source CPAN
--------------------------------------------------------------------------------------------+--------------------
script/cpanm.PL frontend source YES NO |
lib/App/cpanminus/script.pm "the gut". YES YES | x x
cpanm standalone, packed. #!/usr/bin/env (for cp) YES NO | x
bin/cpanm standalone, packed. #!perl (for EUMM) NO YES | x x
=cut
open my $in, "<", "script/cpanm.PL" or die $!;
open my $out, ">", "cpanm.tmp" or die $!;
print STDERR "Generating cpanm from script/cpanm.PL\n";
while (<$in>) {
next if /Auto-removed/;
s/DEVELOPERS:.*/DO NOT EDIT -- this is an auto generated file/;
s/.*__FATPACK__/zomg_hfs(scalar `$^X -e "use App::FatPacker -run_script" file`)/e;
print $out $_;
}
close $out;
unlink "cpanm";
rename "cpanm.tmp", "cpanm";
chmod 0755, "cpanm";
END { unlink "cpanm.tmp" }
# HFS is case sensitive, we have fatlib/version that contains Version/Requirements.pm :(
sub zomg_hfs {
local $_ = shift;
s!version/Requirements.pm!Version/Requirements.pm!;
return $_;
}
Jump to Line
Something went wrong with that request. Please try again.