diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:08:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:08:05 +0000 |
| commit | 8fbe4a12c0f223483e9d723cdfd4fba95ce88b89 (patch) | |
| tree | 0e936546d45451ef61ef1e0b9d57b8475a63b6ab | |
| parent | 114bafba71b4fe6a08258e1f6dfc504b5d9fd70c (diff) | |
| download | perl-8fbe4a12c0f223483e9d723cdfd4fba95ce88b89.tar.gz | |
elide bogus test in change#6132
p4raw-link: @6132 on //depot/perl: 114bafba71b4fe6a08258e1f6dfc504b5d9fd70c
p4raw-id: //depot/perl@6133
| -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 |