Integrate mainline

p4raw-id: //depot/perlio@16038

1 files changed, 1 insertions, 2 deletions

diff --git a/t/op/exec.t b/t/op/exec.t
index 4c1b36ae2e..a0f361a8e3 100755
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -81,8 +81,7 @@ my $exit_one = $Is_VMS ? 4 << 8 : 1 << 8;
 is( system(qq{$Perl "-I../lib" -e "use vmsish qw(hushed); exit 1"}), $exit_one,
     'Explicit exit of 1' );
 
-
-$rc = system "lskdfj";
+$rc = system { "lskdfj" } "lskdfj";
 unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
     print "# \$rc == $rc\n";
 }