diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
| commit | 6fb12b7054efc6b436584db6cef9c2f85c0d7e27 (patch) | |
| tree | aa09a524574ec7ae2f521a24573deeecb78ff66a /gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm | |
| parent | Add the Cammelia cipher to libcrypto. (diff) | |
| download | wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.tar.xz wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.zip | |
Import perl-5.20.1
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm b/gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm index 0df382fc6aa..b12dc50e769 100644 --- a/gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm +++ b/gnu/usr.bin/perl/cpan/Module-Build/t/lib/MBTest.pm @@ -2,7 +2,6 @@ package MBTest; use strict; -use IO::File (); use File::Spec; use File::Temp (); use File::Path (); @@ -159,7 +158,7 @@ sub stdout_stderr_of { } sub slurp { - my $fh = IO::File->new($_[0]) or die "Can't open $_[0]: $!"; + open(my $fh, '<', $_[0]) or die "Can't open $_[0]: $!"; local $/; return scalar <$fh>; } @@ -198,7 +197,15 @@ sub find_in_path { } sub check_compiler { - return (1,1) if $ENV{PERL_CORE}; + if ($ENV{PERL_CORE}) { + require IPC::Cmd; + if ( $Config{usecrosscompile} && !IPC::Cmd::can_run($Config{cc}) ) { + return; + } + else { + return(1,1); + } + } local $SIG{__WARN__} = sub {}; |