1#line 1
2package Module::Install::Can;
3
4use strict;
5use Module::Install::Base;
6use Config ();
7### This adds a 5.005 Perl version dependency.
8### This is a bug and will be fixed.
9use File::Spec ();
10use ExtUtils::MakeMaker ();
11
12use vars qw{$VERSION $ISCORE @ISA};
13BEGIN {
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
21sub 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
35sub 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
51sub 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();
64if ( $^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
791;
80
81__END__
82
83#line 158
84