Make -l HANDLE set PL_laststatval with fatal warnings

Fatal warnings were preventing it from being set, because the warning
came first.

(PL_laststatval records the success status of the previous stat.)

1 files changed, 7 insertions, 1 deletions

diff --git a/t/op/filetest.t b/t/op/filetest.t
index 26d3cddcdf..86ad23546f 100644
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 use Config;
-plan(tests => 44 + 27*14);
+plan(tests => 45 + 27*14);
 
 ok( -d 'op' );
 ok( -f 'TEST' );
@@ -237,6 +237,12 @@ for my $op (split //, "rwxoRWXOezsfdlpSbctugkTMBAC") {
  is $foo[0], "bar", '-l bareword does not corrupt the stack';
 }
 
+# -l and fatal warnings
+stat "test.pl";
+eval { use warnings FATAL => io; -l cradd };
+ok !stat _,
+  'fatal warnings do not prevent -l HANDLE from setting stat status';
+
 # File test ops should not call get-magic on the topmost SV on the stack if
 # it belongs to another op.
 {