inc/Module/Install/Can.pm

   1 #line 1
   2 package Module::Install::Can;
   3
   4 use strict;
   5 use Module::Install::Base;
   6 use Config ();
   7 ### This adds a 5.005 Perl version dependency.
   8 ### This is a bug and will be fixed.
   9 use File::Spec ();
  10 use ExtUtils::MakeMaker ();
  11
  12 use vars qw{$VERSION $ISCORE @ISA};
  13 BEGIN {
  14         $VERSION = '0.77';
  15         $ISCORE  = 1;
  16         @ISA     = qw{Module::Install::Base};
  17 }
  18
  19 # check if we can load some module
  20 ### Upgrade this to not have to load the module if possible
  21 sub can_use {
  22         my ($self, $mod, $ver) = @_;
  23         $mod =~ s{::|\\}{/}g;
  24         $mod .= '.pm' unless $mod =~ /\.pm$/i;
  25
  26         my $pkg = $mod;
  27         $pkg =~ s{/}{::}g;
  28         $pkg =~ s{\.pm$}{}i;
  29
  30         local $@;
  31         eval { require $mod; $pkg->VERSION($ver || 0); 1 };
  32 }
  33
  34 # check if we can run some command
  35 sub can_run {
  36         my ($self, $cmd) = @_;
  37
  38         my $_cmd = $cmd;
  39         return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
  40
  41         for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
  42                 next if $dir eq '';
  43                 my $abs = File::Spec->catfile($dir, $_[1]);
  44                 return $abs if (-x $abs or $abs = MM->maybe_command($abs));
  45         }
  46
  47         return;
  48 }
  49
  50 # can we locate a (the) C compiler
  51 sub can_cc {
  52         my $self   = shift;
  53         my @chunks = split(/ /, $Config::Config{cc}) or return;
  54
  55         # $Config{cc} may contain args; try to find out the program part
  56         while (@chunks) {
  57                 return $self->can_run("@chunks") || (pop(@chunks), next);
  58         }
  59
  60         return;
  61 }
  62
  63 # Fix Cygwin bug on maybe_command();
  64 if ( $^O eq 'cygwin' ) {
  65         require ExtUtils::MM_Cygwin;
  66         require ExtUtils::MM_Win32;
  67         if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
  68                 *ExtUtils::MM_Cygwin::maybe_command = sub {
  69                         my ($self, $file) = @_;
  70                         if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
  71                                 ExtUtils::MM_Win32->maybe_command($file);
  72                         } else {
  73                                 ExtUtils::MM_Unix->maybe_command($file);
  74                         }
  75                 }
  76         }
  77 }
  78
  79 1;
  80
  81 __END__
  82
  83 #line 158