This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ExtUtils-CBuilder test tweak for VMS.
[perl5.git] / 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') {
+    # 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;