Changeset 8661 for inc

Show
Ignore:
Timestamp:
01/14/06 14:23:35 (3 years ago)
Author:
autrijus
Message:

* cygwin build fix -- integrated from M::I

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • inc/Module/Install/Can.pm

    r8125 r8661  
    1 #line 1 "inc/Module/Install/Can.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Can.pm" 
     1#line 1 "inc/Module/Install/Can.pm - lib/Module/Install/Can.pm" 
    22package Module::Install::Can; 
    33use Module::Install::Base; @ISA = qw(Module::Install::Base); 
    … …  
    5353if ($^O eq 'cygwin') { 
    5454    require ExtUtils::MM_Cygwin; 
     55    require ExtUtils::MM_Win32; 
    5556    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) { 
    5657        *ExtUtils::MM_Cygwin::maybe_command = sub { 
    5758            my ($self, $file) = @_; 
    58             if ($file =~ m{^/cygdrive/}i) { 
     59            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) { 
    5960                ExtUtils::MM_Win32->maybe_command($file); 
    6061            } 
    6162            else { 
    62                 $self->SUPER::maybe_command($file); 
     63                ExtUtils::MM_Unix->maybe_command($file); 
    6364            } 
    6465        }