diff options
| -rw-r--r-- | cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm | 2 | ||||
| -rw-r--r-- | cpan/ExtUtils-CBuilder/t/02-link.t | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm index a2d96d6453..ea3e7dedc4 100644 --- a/cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +++ b/cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm @@ -9,7 +9,7 @@ use Text::ParseWords; use IO::File; use vars qw($VERSION); -$VERSION = '0.2703'; +$VERSION = '0.2703_01'; sub new { my $class = shift; diff --git a/cpan/ExtUtils-CBuilder/t/02-link.t b/cpan/ExtUtils-CBuilder/t/02-link.t index b16f1e382a..f67ebe6f76 100644 --- a/cpan/ExtUtils-CBuilder/t/02-link.t +++ b/cpan/ExtUtils-CBuilder/t/02-link.t @@ -86,7 +86,10 @@ sub my_system { my $cmd = shift; my $ec; if ($^O eq 'VMS') { + # Preserve non-posixified status and don't bit shift the result. + use vmsish 'status'; $ec = system("mcr $cmd"); + return $ec; } $ec = system($cmd); return $ec == -1 ? -1 : $ec >> 8; |