#!perl -w
use Test::More tests => 1;
use IPC::Run3;
use strict;
local $SIG{__DIE__} = sub { ok(0, '__DIE__ handler should not be called'); };
my ( $in, $out, $err );
ok(run3 [$^X, '-e1' ], $in, $out, $err);
#!perl -w
use Test::More tests => 1;
use IPC::Run3;
use strict;
local $SIG{__DIE__} = sub { ok(0, '__DIE__ handler should not be called'); };
my ( $in, $out, $err );
ok(run3 [$^X, '-e1' ], $in, $out, $err);