[p5sagit/Devel-Size.git] / inc / Module / Install / Can.pm

#line 1
package Module::Install::Can;

use strict;
use Module::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug and will be fixed.
use File::Spec ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
	$VERSION = '0.77';
	$ISCORE  = 1;
	@ISA     = qw{Module::Install::Base};
}

# 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 158
Commit	Line	Data
0430b7f7	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 {
f44772ad	14	$VERSION = '0.77';
0430b7f7	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}), '.') {
f44772ad	42	next if $dir eq '';
0430b7f7	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
f44772ad	83	#line 158