2 use ExtUtils::MakeMaker;
4 if ("foo" !~ /\Afoo\z/) {
5 for $file ("URI", "URI/urn") {
6 print "\\z not supported by this perl. Fixing $file.pm...\n";
7 rename("$file.pm", "$file.pm.bak") || die;
8 open( IN, "<$file.pm.bak" ) || die;
9 open( OUT, ">$file.pm" ) || die;
21 'VERSION_FROM' => 'URI.pm',
25 dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },