Oops.

p4raw-id: //depot/perl@13161

diff --git a/lib/Test/Simple/t/filehandles.t b/lib/Test/Simple/t/filehandles.t
index 8bd0abe..3b3c553 100644 (file)
--- a/lib/Test/Simple/t/filehandles.t
+++ b/lib/Test/Simple/t/filehandles.t
@@ -12,17 +12,3 @@ package Dev::Null;
 
 sub TIEHANDLE { bless {} }
 sub PRINT { 1 }
-#!perl -w
-
-use Test::More tests => 1;
-
-tie *STDOUT, "Dev::Null" or die $!;
-
-print "not ok 1\n";     # this should not print.
-pass 'STDOUT can be mucked with';
-
-
-package Dev::Null;
-
-sub TIEHANDLE { bless {} }
-sub PRINT { 1 }