From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 8 Jul 2005 16:42:56 +0000 (-0500)
Subject: Re: Smoke [5.9.3] 25093 FAIL(F) openbsd 3.7 (macppc/1 cpu)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0685228bc0e6f0ccd11501cab8ce8356eb5fd6bd;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/io/dup.t b/t/io/dup.t
index 91e4f26..8247b8e 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 e12b447..f08eed5 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: {