Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 62 lines (57 sloc) 1.566 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
require 5.006001;
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',
    'ABSTRACT' => 'Uniform Resource Identifiers (absolute and relative)',
    'AUTHOR' => 'Gisle Aas <gisle@activestate.com>',
    'LICENSE' => 'perl',
    'MIN_PERL_VERSION' => 5.006001,
    'PREREQ_PM' => {
'MIME::Base64' => 2,
    },
    'META_MERGE' => {
        'recommends' => {
            'Business::ISBN' => 0,
        },
        'resources' => {
            'repository' => 'http://gitorious.org/projects/perl-uri',
            'MailingList' => 'mailto:libwww@perl.org',
        }
    },
);


BEGIN {
    # compatibility with older versions of MakeMaker
    my $developer = -f ".gitignore";
    my %mm_req = (
        LICENCE => 6.31,
        META_MERGE => 6.45,
        META_ADD => 6.45,
        MIN_PERL_VERSION => 6.48,
    );
    undef(*WriteMakefile);
    *WriteMakefile = sub {
        my %arg = @_;
        for (keys %mm_req) {
            unless (eval { ExtUtils::MakeMaker->VERSION($mm_req{$_}) }) {
                warn "$_ $@" if $developer;
                delete $arg{$_};
            }
        }
        ExtUtils::MakeMaker::WriteMakefile(%arg);
    };
}
Something went wrong with that request. Please try again.