'Module::Load::Conditional' => {
'MAINTAINER' => 'kane',
- 'DISTRIBUTION' => 'BINGOS/Module-Load-Conditional-0.56.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/Module-Load-Conditional-0.58.tar.gz',
'FILES' => q[cpan/Module-Load-Conditional],
'UPSTREAM' => 'cpan',
},
use Module::Metadata ();
-use constant ON_VMS => $^O eq 'VMS';
+use constant ON_VMS => $^O eq 'VMS';
+use constant ON_WIN32 => $^O eq 'MSWin32' ? 1 : 0;
+use constant QUOTE => do { ON_WIN32 ? q["] : q['] };
BEGIN {
use vars qw[ $VERSION @ISA $VERBOSE $CACHE @EXPORT_OK $DEPRECATED
$FIND_VERSION $ERROR $CHECK_INC_HASH];
use Exporter;
@ISA = qw[Exporter];
- $VERSION = '0.56';
+ $VERSION = '0.58';
$VERBOSE = 0;
$DEPRECATED = 0;
$FIND_VERSION = 1;
}
my $lib = join " ", map { qq["-I$_"] } @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"];
+ my $oneliner = 'print(join(qq[\n],map{qq[BONG=$_]}keys(%INC)),qq[\n])';
+ my $cmd = join '', qq["$^X" $lib -M$who -e], QUOTE, $oneliner, QUOTE;
return sort
grep { !/^$who$/ }
=item *
-L<Module::Load::Conditional> has been upgraded from version 0.54 to 0.56.
+L<Module::Load::Conditional> has been upgraded from version 0.54 to 0.58.
C<requires> has been made more robust. [cpan #83728]