From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 22 Mar 2001 17:36:32 +0000 (+0000)
Subject: Don't include $@ in not ok message.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4fbc943a81ac8168e4ba63497561c515427127d8;p=p5sagit%2Fp5-mst-13.2.git

Don't include $@ in not ok message.

p4raw-id: //depot/perlio@9300
---

diff --git a/t/io/open.t b/t/io/open.t
index 1b54c33..635ea4c 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -138,7 +138,7 @@ open my $f, '<&', 'afile';
 1;
 EOE
 ok;
-$@ =~ /Bad filehandle:\s+afile/ or print "not ($@)";
+$@ =~ /Bad filehandle:\s+afile/ or print "not ";
 ok;
 
 # local $file tests
@@ -262,7 +262,7 @@ open local $f, '<&', 'afile';
 1;
 EOE
 ok;
-$@ =~ /Bad filehandle:\s+afile/ or print "not ($@) ";
+$@ =~ /Bad filehandle:\s+afile/ or print "not ";
 ok;
 
 # 65..66