diff options
| author | Neil Bowers <neilb@neilb.org> | 2022-08-20 10:15:35 +0100 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-20 14:12:28 -0600 |
| commit | 8b3c1a55b2d40e585f12db788b8f22db7d05893a (patch) | |
| tree | dabedab416bd5a12d3a7fe7c1fd2a961d5566548 /cpan | |
| parent | 6c72dca9c66eec7c95ba804ed0587754df1bb0ea (diff) | |
| download | perl-8b3c1a55b2d40e585f12db788b8f22db7d05893a.tar.gz | |
Import ExtUtils-PL2Bat 0.005 from CPAN
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/ExtUtils-PL2Bat/lib/ExtUtils/PL2Bat.pm | 4 | ||||
| -rw-r--r-- | cpan/ExtUtils-PL2Bat/t/make_executable.t | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/cpan/ExtUtils-PL2Bat/lib/ExtUtils/PL2Bat.pm b/cpan/ExtUtils-PL2Bat/lib/ExtUtils/PL2Bat.pm index 070e186fec..6807417945 100644 --- a/cpan/ExtUtils-PL2Bat/lib/ExtUtils/PL2Bat.pm +++ b/cpan/ExtUtils-PL2Bat/lib/ExtUtils/PL2Bat.pm @@ -1,5 +1,5 @@ package ExtUtils::PL2Bat; -$ExtUtils::PL2Bat::VERSION = '0.004'; +$ExtUtils::PL2Bat::VERSION = '0.005'; use strict; use warnings; @@ -122,7 +122,7 @@ ExtUtils::PL2Bat - Batch file creation to run perl scripts on Windows =head1 VERSION -version 0.004 +version 0.005 =head1 OVERVIEW diff --git a/cpan/ExtUtils-PL2Bat/t/make_executable.t b/cpan/ExtUtils-PL2Bat/t/make_executable.t index 0d75dc1629..ec76a93a68 100644 --- a/cpan/ExtUtils-PL2Bat/t/make_executable.t +++ b/cpan/ExtUtils-PL2Bat/t/make_executable.t @@ -13,6 +13,11 @@ my @test_vals = ( 0, 1, 2, 3, -1, -2, 65535, 65536, 65537, 47, 100, 200, 255, 25 plan($OSNAME eq 'MSWin32' ? ( tests => (($#test_vals+1)*5)+2 ) : ( skip_all => 'Only usable on Windows' )); +# the method of execution of the test script is geared to cmd.exe so ensure +# this is used in case the user have some non-standard shell. +# E.g. TCC/4NT doesn't quite handle the invocation correctly producing errors. +$ENV{COMSPEC} = "$ENV{SystemRoot}\\System32\\cmd.exe"; + my $perl_in_fname = 'test_perl_source'; open my $out, '>', $perl_in_fname or die qq{Couldn't create source file ("$perl_in_fname"): $!}; |