diff options
| -rwxr-xr-x | t/pragma/warn/9enabled | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/t/pragma/warn/9enabled b/t/pragma/warn/9enabled index 05170f3031..96f319e55d 100755 --- a/t/pragma/warn/9enabled +++ b/t/pragma/warn/9enabled @@ -901,23 +901,3 @@ EXPECT ok1 ok2 ok3 -######## - ---FILE-- abc.pm -package abc ; -no warnings ; -use warnings::register ; -sub check { - local $^W = 1 ; - print "ok1\n" if !warnings::enabled() ; - print "ok2\n" if !warnings::enabled("io") ; - print "ok3\n" if !warnings::enabled("all") ; -} -1; ---FILE-- -use abc ; -abc::check() ; -EXPECT -ok1 -ok2 -ok3 |