Reinstate aa3f85c5f369736a7e50055b726cf2ca11336ce9.

Which was clobbered by 7b0eef92ba8ed2aa84e9187dadebc5cabfc3a3c5.

And still awaiting upstream integration at:

<https://rt.cpan.org/Public/Bug/Display.html?id=55236>

Also bumped the version this time to leave a better clue that something
has changed in blead.

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;