diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-07-08 11:42:56 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-13 16:52:48 +0000 |
| commit | 0685228bc0e6f0ccd11501cab8ce8356eb5fd6bd (patch) | |
| tree | c25705efaab69a70b17a6fbbc86006339e1ed14d /t/io | |
| parent | 46c461b51dd657dd9227e8d230ce0a737a33cb3e (diff) | |
| download | perl-0685228bc0e6f0ccd11501cab8ce8356eb5fd6bd.tar.gz | |
Re: Smoke [5.9.3] 25093 FAIL(F) openbsd 3.7 (macppc/1 cpu)
Message-ID: <20050708214256.GA14164@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@25139
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/dup.t | 2 | ||||
| -rwxr-xr-x | t/io/open.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/io/dup.t b/t/io/dup.t index 91e4f26f21..8247b8e6ef 100755 --- a/t/io/dup.t +++ b/t/io/dup.t @@ -96,7 +96,7 @@ SKIP: { isnt(fileno(F), fileno(STDOUT)); close F; - ok(open(F, "<&=STDIN")); + ok(open(F, "<&=STDIN")) or _diag $!; is(fileno(F), fileno(STDIN)); close F; diff --git a/t/io/open.t b/t/io/open.t index e12b4475d1..f08eed50a4 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -234,7 +234,7 @@ like( $@, qr/Bad filehandle:\s+afile/, ' right error' ); } # used to try to open a file [perl #17830] - ok( open(my $stdin, "<&", fileno STDIN), 'dup fileno(STDIN) into lexical fh'); + ok( open(my $stdin, "<&", fileno STDIN), 'dup fileno(STDIN) into lexical fh') or _diag $!; } SKIP: { |