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
