Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (24 sloc) 0.609 kb
require 5.004;
use ExtUtils::MakeMaker;
if ("foo" !~ /\Afoo\z/) {
for $file ("URI", "URI/urn") {
print "\\z not supported by this perl. Fixing $file.pm...\n";
rename("$file.pm", "$file.pm.bak") || die;
open( IN, "<$file.pm.bak" ) || die;
open( OUT, ">$file.pm" ) || die;
while( <IN> ) {
$_ =~ s/\\z/\\Z/g;
print OUT;
}
close( OUT ) || die;
close( IN ) || die;
}
}
WriteMakefile(
'NAME' => 'URI',
'VERSION_FROM' => 'URI.pm',
'PREREQ_PM' => {
'MIME::Base64' => 2,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
Jump to Line
Something went wrong with that request. Please try again.