diff options
Diffstat (limited to 't/lib/warnings/op')
| -rw-r--r-- | t/lib/warnings/op | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index e596e7918a..b3cb7d6bed 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -755,6 +755,12 @@ EXPECT Statement unlikely to be reached at - line 4. (Maybe you meant system() when you said exec()?) ######## +# op.c, no warning if exec isn't a statement. +use warnings 'syntax' ; +$a || exec "$^X -e 1" ; +my $a +EXPECT +######## # op.c my @a; defined(@a); EXPECT |