This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reinstate aa3f85c5f369736a7e50055b726cf2ca11336ce9.
authorCraig A. Berry <craigberry@mac.com>
Sat, 17 Jul 2010 22:46:48 +0000 (17:46 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sat, 17 Jul 2010 23:29:39 +0000 (18:29 -0500)
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.

cpan/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm
cpan/ExtUtils-CBuilder/t/02-link.t

index a2d96d6..ea3e7de 100644 (file)
@@ -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;
index b16f1e3..f67ebe6 100644 (file)
@@ -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;