This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ExtUtils-CBuilder test tweak for VMS.
authorCraig A. Berry <craigberry@mac.com>
Sun, 7 Mar 2010 00:51:18 +0000 (18:51 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 7 Mar 2010 00:51:18 +0000 (18:51 -0600)
Idential to upstream fix at https://rt.cpan.org/Ticket/Display.html?id=55236

cpan/ExtUtils-CBuilder/t/02-link.t

index 76ab28c..1acf935 100644 (file)
@@ -86,7 +86,10 @@ sub my_system {
   my $cmd = shift;
   my $ec;
   if ($^O eq 'VMS') {
   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");
     $ec = system("mcr $cmd");
+    return $ec;
   }
   $ec = system($cmd);
   return $ec == -1 ? -1 : $ec >> 8;
   }
   $ec = system($cmd);
   return $ec == -1 ? -1 : $ec >> 8;