diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 17:36:32 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 17:36:32 +0000 |
| commit | 4fbc943a81ac8168e4ba63497561c515427127d8 (patch) | |
| tree | 4f7bbf64ba5f393c644d8be48efa477861a4de19 /t/io/open.t | |
| parent | e620cd7232b242c1500abd8a6a5b86efdf1c5c2b (diff) | |
| download | perl-4fbc943a81ac8168e4ba63497561c515427127d8.tar.gz | |
Don't include $@ in not ok message.
p4raw-id: //depot/perlio@9300
Diffstat (limited to 't/io/open.t')
| -rwxr-xr-x | t/io/open.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/io/open.t b/t/io/open.t index 1b54c33325..635ea4c364 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 |