From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 Nov 2001 13:43:08 +0000 (+0000)
Subject: Oops.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a25fc364915c92ad0e2308e95b1b8437cc4068c1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 }