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( ) { $_ =~ 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', }, );