From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 08:08:05 +0000 (+0000)
Subject: elide bogus test in change#6132
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fbe4a12c0f223483e9d723cdfd4fba95ce88b89;p=p5sagit%2Fp5-mst-13.2.git

elide bogus test in change#6132

p4raw-link: @6132 on //depot/perl: 114bafba71b4fe6a08258e1f6dfc504b5d9fd70c

p4raw-id: //depot/perl@6133
---

diff --git a/t/pragma/warn/9enabled b/t/pragma/warn/9enabled
index 05170f3..96f319e 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