From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 7 Mar 2010 00:51:18 +0000 (-0600)
Subject: ExtUtils-CBuilder test tweak for VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa3f85c5f369736a7e50055b726cf2ca11336ce9;p=p5sagit%2Fp5-mst-13.2.git

ExtUtils-CBuilder test tweak for VMS.

Idential to upstream fix at https://rt.cpan.org/Ticket/Display.html?id=55236
---

diff --git a/cpan/ExtUtils-CBuilder/t/02-link.t b/cpan/ExtUtils-CBuilder/t/02-link.t
index 76ab28c..1acf935 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;