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.
use IO::File;
use vars qw($VERSION);
-$VERSION = '0.2703';
+$VERSION = '0.2703_01';
sub new {
my $class = shift;
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;