--- /dev/null
+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', },
+);