From: Nick Ing-Simmons 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