X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fopen.t;h=635ea4c3645fbee79394bdbb9c3d9432bc6e21fd;hb=4fbc943a81ac8168e4ba63497561c515427127d8;hp=1b54c33325341f5d8fc29254b0b7693e574ff177;hpb=e620cd7232b242c1500abd8a6a5b86efdf1c5c2b;p=p5sagit%2Fp5-mst-13.2.git 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