Craig A. Berry [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
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;