diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-08-30 08:19:58 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-08-30 08:20:20 +0100 |
commit | 0022aab5a1291df8e07fdc032292185d3937a1dc (patch) | |
tree | b9da41553a50ec9afa0c5f77f3dd6558cc1c0bf7 /cpan/Module-Load-Conditional | |
parent | f2c09143b5a42cb12a01d9eef3abbd1037b4c1ba (diff) | |
download | perl-0022aab5a1291df8e07fdc032292185d3937a1dc.tar.gz |
Upgrade Module::Load::Conditional from version 0.54 to 0.56
Diffstat (limited to 'cpan/Module-Load-Conditional')
-rw-r--r-- | cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm b/cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm index 342371f879..a94906c9b7 100644 --- a/cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm +++ b/cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm @@ -20,7 +20,7 @@ BEGIN { $FIND_VERSION $ERROR $CHECK_INC_HASH]; use Exporter; @ISA = qw[Exporter]; - $VERSION = '0.54'; + $VERSION = '0.56'; $VERBOSE = 0; $DEPRECATED = 0; $FIND_VERSION = 1; @@ -195,7 +195,7 @@ sub check_install { } } - ### we didnt find the filename yet by looking in %INC, + ### we didn't find the filename yet by looking in %INC, ### so scan the dirs unless( $filename ) { @@ -495,12 +495,15 @@ sub requires { } my $lib = join " ", map { qq["-I$_"] } @INC; - my $cmd = qq["$^X" $lib -M$who -e"print(join(qq[\\n],keys(%INC)))"]; + my $oneliner = 'sub foo(_){q[BONG=].shift} print(join(qq[\n],map foo,keys(%INC)),qq[\n])'; + my $cmd = qq["$^X" $lib -M$who -e"$oneliner"]; return sort grep { !/^$who$/ } map { chomp; s|/|::|g; $_ } grep { s|\.pm$||i; } + map { s!^BONG\=!!; $_ } + grep { m!^BONG\=! } `$cmd`; } |