On Fri, 8 Jul 2005 16:42:56 -0500, Steve Peters <[EMAIL PROTECTED]> wrote:
> On Thu, Jul 07, 2005 at 07:56:39PM -0500, Steve Peters wrote: > > On Fri, Jul 08, 2005 at 12:33:21AM +0200, Abe Timmerman wrote: > > > Op een mooie zomerdag (Friday 08 July 2005 01:03),schreef Abe > > > Timmerman: ... > > > The t/io/*.t failures (on all mij bsd/darwin systems) do not show up if > > > I run the smoke script directly, they only show up when the > > > smoke-scripts are run from a shell-script that loops over them. > > > Is this a BSD issue or a perl issue? > > > > > > > Beside a few initial bumps with OpenBSD 3.7, I've not had any major issues > > with the smokes. In fact, my last failed smoke was about three weeks ago. > > > > Looking at the failures, they involve dup'ing STDIN into another filehandle. > Would it be possible for you to smoke with the following patch to see > what the exact error is? I'm hoping STDERR isn't snuffed out completely in > smoke testing, so hopefully these warnings will give us some answers. Thanks, applied as change #25139 with || changed to or > Steve Peters > [EMAIL PROTECTED] > > --- t/io/open.t.old Tue Oct 19 12:07:33 2004 > +++ t/io/open.t Fri Jul 8 16:33:19 2005 > @@ -234,7 +234,7 @@ > } > > # 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') || _diag $!; } > > SKIP: { > --- t/io/dup.t.old Sun Sep 14 09:54:11 2003 > +++ t/io/dup.t Fri Jul 8 16:34:46 2005 > @@ -96,7 +96,7 @@ > isnt(fileno(F), fileno(STDOUT)); > close F; > > - ok(open(F, "<&=STDIN")); > + ok(open(F, "<&=STDIN")) || _diag $!; > is(fileno(F), fileno(STDIN)); > close F; > > -- H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/) using Perl 5.6.2, 5.8.0, 5.8.5, & 5.9.2 on HP-UX 10.20, 11.00 & 11.11, AIX 4.3 & 5.2, SuSE 9.2 & 9.3, and Cygwin. http://www.cmve.net/~merijn Smoking perl: http://www.test-smoke.org, perl QA: http://qa.perl.org reports to: [EMAIL PROTECTED], perl-qa@perl.org