82 lines
1.7 KiB
Perl
82 lines
1.7 KiB
Perl
|
#line 1
|
||
|
|
package Module::Install::Can;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Config ();
|
||
|
|
use File::Spec ();
|
||
|
|
use ExtUtils::MakeMaker ();
|
||
|
|
use Module::Install::Base ();
|
||
|
|
|
||
|
|
use vars qw{$VERSION @ISA $ISCORE};
|
||
|
|
BEGIN {
|
||
|
|
$VERSION = '0.91';
|
||
|
|
@ISA = 'Module::Install::Base';
|
||
|
|
$ISCORE = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
# check if we can load some module
|
||
|
|
### Upgrade this to not have to load the module if possible
|
||
|
|
sub can_use {
|
||
|
|
my ($self, $mod, $ver) = @_;
|
||
|
|
$mod =~ s{::|\\}{/}g;
|
||
|
|
$mod .= '.pm' unless $mod =~ /\.pm$/i;
|
||
|
|
|
||
|
|
my $pkg = $mod;
|
||
|
|
$pkg =~ s{/}{::}g;
|
||
|
|
$pkg =~ s{\.pm$}{}i;
|
||
|
|
|
||
|
|
local $@;
|
||
|
|
eval { require $mod; $pkg->VERSION($ver || 0); 1 };
|
||
|
|
}
|
||
|
|
|
||
|
|
# check if we can run some command
|
||
|
|
sub can_run {
|
||
|
|
my ($self, $cmd) = @_;
|
||
|
|
|
||
|
|
my $_cmd = $cmd;
|
||
|
|
return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
|
||
|
|
|
||
|
|
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
|
||
|
|
next if $dir eq '';
|
||
|
|
my $abs = File::Spec->catfile($dir, $_[1]);
|
||
|
|
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
|
||
|
|
}
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
# can we locate a (the) C compiler
|
||
|
|
sub can_cc {
|
||
|
|
my $self = shift;
|
||
|
|
my @chunks = split(/ /, $Config::Config{cc}) or return;
|
||
|
|
|
||
|
|
# $Config{cc} may contain args; try to find out the program part
|
||
|
|
while (@chunks) {
|
||
|
|
return $self->can_run("@chunks") || (pop(@chunks), next);
|
||
|
|
}
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Fix Cygwin bug on maybe_command();
|
||
|
|
if ( $^O eq 'cygwin' ) {
|
||
|
|
require ExtUtils::MM_Cygwin;
|
||
|
|
require ExtUtils::MM_Win32;
|
||
|
|
if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
|
||
|
|
*ExtUtils::MM_Cygwin::maybe_command = sub {
|
||
|
|
my ($self, $file) = @_;
|
||
|
|
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
|
||
|
|
ExtUtils::MM_Win32->maybe_command($file);
|
||
|
|
} else {
|
||
|
|
ExtUtils::MM_Unix->maybe_command($file);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
__END__
|
||
|
|
|
||
|
|
#line 156
|