On Tue, Mar 26, 2002 at 09:04:57PM -0500, Ed Allen Smith wrote:
> Trapping STDERR would be nice to reduce such noisiness... or is this
> something other than what I'm thinking?
That is likely Test::Harness requiring 'wait.ph' to analyze a test
that tied (tests 22-26, 30-33 and 42-45 test tests that die) and the
resulting noise from h2ph being a little off. It looks like your copy
of wait.ph won't even compile.
It's a bit odd that those showed up, that test doesn't run with
warnings on. You don't have PERL5OPT set or anything funny like that?
Anyhow, this will supress the warnings. It's not really
Test::Harness's problem that h2ph is jittery.
--- lib/Test/Harness.pm 14 Mar 2002 23:49:34 -0000 1.14.2.15
+++ lib/Test/Harness.pm 27 Mar 2002 02:57:53 -0000
@@ -962,13 +965,17 @@
sub corestatus {
my($st) = @_;
- eval {require 'wait.ph'};
- my $ret = defined &WCOREDUMP ? WCOREDUMP($st) : $st & 0200;
+ eval {
+ local $^W = 0; # *.ph files are often *very* noisy
+ require 'wait.ph'
+ };
+ return if $@;
+ my $did_core = defined &WCOREDUMP ? WCOREDUMP($st) : $st & 0200;
eval { require Devel::CoreStack; $Have_Devel_Corestack++ }
unless $tried_devel_corestack++;
- $ret;
+ return $did_core;
}
}
> make test
> PERL_DL_NONLAZY=1 /usr/sbin/perl -Iblib/arch -Iblib/lib -e 'use Test::Harness
>qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
> t/00compile........ok
> t/assert...........ok
> t/base.............ok
> t/callback.........ok
> t/nonumbers........ok
> t/ok...............ok
> t/strap-analyze....ok
> t/strap............ok
> t/test-harness.....ok 21/73Subroutine _MIPS_FPSET redefined at (eval 81) line 1.
> Subroutine _MIPS_SZINT redefined at (eval 82) line 1.
> Subroutine _MIPS_SZLONG redefined at (eval 83) line 1.
> Subroutine _MIPS_SZPTR redefined at (eval 84) line 1.
> Subroutine _MIPS_ISA redefined at (eval 85) line 1.
> Subroutine _MIPS_SIM redefined at (eval 86) line 1.
> Subroutine _MIPSEB redefined at (eval 87) line 1.
> Subroutine MIPSEB redefined at (eval 88) line 1.
> Subroutine _D_BSD_TYPES redefined at (eval 89) line 1.
> Subroutine _POSIX_C_SOURCE redefined at (eval 90) line 1.
> Subroutine _MIPSABI_SOURCE redefined at (eval 91) line 1.
> Subroutine U redefined at (eval 92) line 1.
> Subroutine F redefined at (eval 93) line 1.
> Subroutine u redefined at (eval 94) line 1.
> Subroutine uLL redefined at (eval 95) line 1.
> Number found where operator expected at (eval 109) line 1, near "*(256"
> (Missing operator before 256?)
> Use of uninitialized value in bitwise and (&) at (eval 108) line 1.
> t/test-harness.....ok 29/73Number found where operator expected at (eval 113) line
>1, near "*(256"
> (Missing operator before 256?)
> Use of uninitialized value in bitwise and (&) at (eval 112) line 1.
> t/test-harness.....ok 41/73Number found where operator expected at (eval 118) line
>1, near "*(256"
> (Missing operator before 256?)
> Use of uninitialized value in bitwise and (&) at (eval 117) line 1.
> t/test-harness.....ok
> All tests successful.
> Files=9, Tests=292, 4 wallclock secs ( 2.15 cusr + 1.19 csys = 3.34 CPU)
>
>
> [ insert comments here ]
>
> Allen Smith http://cesario.rutgers.edu/easmith/
> September 11, 2001 A Day That Shall Live In Infamy II
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety." - Benjamin Franklin
>
> --
>
> Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
> Platform:
> osname=irix, osvers=6.5, archname=IP30-R12000-irix
> uname='irix64 cesario 6.5 01200532 ip30 '
> config_args='-der'
> hint=previous, useposix=true, d_sigaction=define
> usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
> useperlio=undef d_sfio=undef uselargefiles=define
> use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
> Compiler:
> cc='cc -n32 -mips4 -TARG:platform=ip30', optimize='-r12000 -O3
>-OPT:fast_sqrt=OFF:Olimit=0 -TENV:X=1 -LNO:opt=1:ou_further=3
>-OPT:fold_unsafe_relops=OFF:div_split=OFF:IEEE_arithmetic=1:roundoff=0 -LNO:vintr=OFF
>-OPT:got_call_conversion=OFF', gccversion=
> cppflags='-D_BSD_TYPES -D_BSD_TIME -DLANGUAGE_C
>-I/server/people/staff/easmith/include -DDEBUGGING'
> ccflags ='-D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1184 -DLANGUAGE_C
>-I/server/people/staff/easmith/include -DDEBUGGING'
> stdchar='unsigned char', d_stdstdio=define, usevfork=false
> intsize=4, longsize=4, ptrsize=4, doublesize=8
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
> alignbytes=8, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='ld -mips4 -n32 -shared -update_registry /usr/lib32/so_locations', ldflags
>='-L/server/people/staff/easmith/lib32 -L/usr/lib32/mips4 -L/usr/lib32/internal
>-L/usr/lib32 -L/lib32 -rpath
>/server/people/staff/easmith/lib32:/usr/lib32/mips4:/usr/lib32/internal:/usr/lib32:/lib32'
> libpth=/server/people/staff/easmith/lib32 /usr/lib32/mips4 /usr/lib32/internal
>/usr/lib32 /lib32
> libs=-lgdbm -ldb -lm -lc
> libc=/usr/lib32/mips4/libc.so, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
> cccdlflags=' ', lddlflags='-L/server/people/staff/easmith/lib32
>-L/usr/lib32/mips4 -L/usr/lib32/internal -L/usr/lib32 -L/lib32 -rpath
>/server/people/staff/easmith/lib32:/usr/lib32/mips4:/usr/lib32/internal:/usr/lib32:/lib32'
>
>
>
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I blame myself. AND SATAN.
