Changeset 8125 for inc

Show
Ignore:
Timestamp:
12/09/05 04:04:47 (3 years ago)
Author:
autrijus
Message:

* refresh M::I to 0.40

Location:
inc/Module/Install
Files:
9 modified

Legend:

Unmodified
Added
Removed

  • inc/Module/Install/Base.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Base.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Base.pm" 
     1#line 1 "inc/Module/Install/Base.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Base.pm" 
    22package Module::Install::Base; 
    33 
    4 #line 28 
     4# Suspend handler for "redefined" warnings 
     5BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w } }; 
     6 
     7#line 31 
    58 
    69sub new { 
    … …  
    1619} 
    1720 
    18 #line 46 
     21#line 49 
    1922 
    2023sub AUTOLOAD { 
    … …  
    2326} 
    2427 
    25 #line 57 
     28#line 60 
    2629 
    2730sub _top { $_[0]->{_top} } 
    2831 
    29 #line 68 
     32#line 71 
    3033 
    3134sub admin { 
    … …  
    50531; 
    5154 
     55# Restore warning handler 
     56BEGIN { $SIG{__WARN__} = $SIG{__WARN__}->() }; 
     57 
    5258__END__ 
    5359 
    54 #line 112 
     60#line 118 

  • inc/Module/Install/Can.pm

    r983 r8125  
    1 #line 1 "inc/Module/Install/Can.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Can.pm" 
     1#line 1 "inc/Module/Install/Can.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Can.pm" 
    22package Module::Install::Can; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 
    … …  
    99use ExtUtils::MakeMaker (); 
    1010 
     11# check if we can load some module 
     12sub can_use { 
     13    my ($self, $mod, $ver) = @_; 
     14    $mod =~ s{::|\\}{/}g; 
     15    $mod .= ".pm" unless $mod =~ /\.pm$/i; 
     16 
     17    my $pkg = $mod; 
     18    $pkg =~ s{/}{::}g; 
     19    $pkg =~ s{\.pm$}{}i; 
     20 
     21    local $@; 
     22    eval { require $mod; $pkg->VERSION($ver || 0); 1 }; 
     23} 
     24 
    1125# check if we can run some command 
    1226sub can_run { 
    … …  
    1731 
    1832    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { 
    19         next unless $dir; 
    2033        my $abs = File::Spec->catfile($dir, $_[1]); 
    2134        return $abs if (-x $abs or $abs = MM->maybe_command($abs)); 
    … …  
    3750} 
    3851 
     52# Fix Cygwin bug on maybe_command(); 
     53if ($^O eq 'cygwin') { 
     54    require ExtUtils::MM_Cygwin; 
     55    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) { 
     56        *ExtUtils::MM_Cygwin::maybe_command = sub { 
     57            my ($self, $file) = @_; 
     58            if ($file =~ m{^/cygdrive/}i) { 
     59                ExtUtils::MM_Win32->maybe_command($file); 
     60            } 
     61            else { 
     62                $self->SUPER::maybe_command($file); 
     63            } 
     64        } 
     65    } 
     66} 
     67 
    39681; 

  • inc/Module/Install/Fetch.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Fetch.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Fetch.pm" 
     1#line 1 "inc/Module/Install/Fetch.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Fetch.pm" 
    22package Module::Install::Fetch; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 

  • inc/Module/Install/Include.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Include.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Include.pm" 
     1#line 1 "inc/Module/Install/Include.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm" 
    22package Module::Install::Include; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 

  • inc/Module/Install/Makefile.pm

    r6759 r8125  
    1 #line 1 "inc/Module/Install/Makefile.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Makefile.pm" 
     1#line 1 "inc/Module/Install/Makefile.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm" 
    22package Module::Install::Makefile; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 
    … …  
    2828    my $subdirs = $self->makemaker_args->{DIR} ||= []; 
    2929    for my $subdir (@_) { 
    30         push @$subdirs, $subdir;   
     30        push @$subdirs, $subdir; 
    3131    } 
    3232} 
    … …  
    6262    $args->{VERSION} = $self->version || $self->determine_VERSION($args); 
    6363    $args->{NAME} =~ s/-/::/g; 
     64    $args->{test} = {TESTS => $self->tests}; 
    6465 
    6566    if ($] >= 5.005) { 
    66         $args->{ABSTRACT} = $self->abstract; 
    67         $args->{AUTHOR} = $self->author; 
     67        $args->{ABSTRACT} = $self->abstract; 
     68        $args->{AUTHOR} = $self->author; 
    6869    } 
    6970    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) { 
    … …  
    7172    } 
    7273    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 ) { 
    73         $args->{SIGN} = 1 if $self->sign; 
     74        $args->{SIGN} = 1 if $self->sign; 
    7475    } 
    7576    delete $args->{SIGN} unless $self->is_admin; 
    … …  
    149150__END__ 
    150151 
    151 #line 273 
     152#line 282 

  • inc/Module/Install/Makefile/Name.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Makefile/Name.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Makefile/Name.pm" 
     1#line 1 "inc/Module/Install/Makefile/Name.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm" 
    22package Module::Install::Makefile::Name; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 

  • inc/Module/Install/Makefile/Version.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Makefile/Version.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Makefile/Version.pm" 
     1#line 1 "inc/Module/Install/Makefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm" 
    22package Module::Install::Makefile::Version; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 

  • inc/Module/Install/Scripts.pm

    r469 r8125  
    1 #line 1 "inc/Module/Install/Scripts.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/Scripts.pm" 
     1#line 1 "inc/Module/Install/Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm" 
    22package Module::Install::Scripts; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 

  • inc/Module/Install/WriteAll.pm

    r6759 r8125  
    1 #line 1 "inc/Module/Install/WriteAll.pm - /Users/ingy/local/lib/perl5/site_perl/5.8.6/Module/Install/WriteAll.pm" 
     1#line 1 "inc/Module/Install/WriteAll.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/WriteAll.pm" 
    22package Module::Install::WriteAll; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 
    … …  
    1818 
    1919    if ($0 =~ /Build.PL$/i) { 
    20         $self->Build->write; 
     20        $self->Build->write; 
    2121    } 
    2222    else { 
    23         $self->check_nmake if $args{check_nmake}; 
     23        $self->check_nmake if $args{check_nmake}; 
    2424        $self->makemaker_args( PL_FILES => {} ) 
    2525            unless $self->makemaker_args->{'PL_FILES'};