Don't include $@ in not ok message.

[p5sagit/p5-mst-13.2.git] / t / io / open.t

diff --git a/t/io/open.t b/t/io/open.t
index 1b54c33..635ea4c 100755 (executable)
--- 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