On Mar 26, 10:15pm, Michael G Schwern wrote:
> 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.
Actually, it seems to:
perl -we 'require "wait.ph";'
Subroutine _MIPS_FPSET redefined at (eval 75) line 1.
Subroutine _MIPS_SZINT redefined at (eval 76) line 1.
Subroutine _MIPS_SZLONG redefined at (eval 77) line 1.
Subroutine _MIPS_SZPTR redefined at (eval 78) line 1.
Subroutine _MIPS_ISA redefined at (eval 79) line 1.
Subroutine _MIPS_SIM redefined at (eval 80) line 1.
Subroutine _MIPSEB redefined at (eval 81) line 1.
Subroutine MIPSEB redefined at (eval 82) line 1.
Subroutine _D_BSD_TYPES redefined at (eval 83) line 1.
Subroutine _POSIX_C_SOURCE redefined at (eval 84) line 1.
Subroutine _MIPSABI_SOURCE redefined at (eval 85) line 1.
Subroutine U redefined at (eval 86) line 1.
Subroutine F redefined at (eval 87) line 1.
Subroutine u redefined at (eval 88) line 1.
Subroutine uLL redefined at (eval 89) line 1.
although said wackiness seems to be from sys/types.ph, which sys/wait.ph
requires. I'm still trying to figure out where the actual _errors_ are
coming from.
> 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?
No. I was wondering about that myself.
> Anyhow, this will supress the warnings. It's not really
> Test::Harness's problem that h2ph is jittery.
Well, no, although if it _isn't_ Test::Harness's problem, then I actually
wouldn't want Test::Harness covering it up... I've included sys/wait.ph and
sys/types.ph below, for any interested parties.
if (!defined &__SYS_WAIT_H__) {
eval 'sub __SYS_WAIT_H__ () {1;}' unless defined(&__SYS_WAIT_H__);
if (defined &__cplusplus) {
}
require 'standards.ph';
if ((defined(&_SGIAPI) ? &_SGIAPI : 0)) {
if (defined &_MIPSEL) {
}
if (defined &_MIPSEB) {
}
if (defined &_MIPSEL) {
}
if (defined &_MIPSEB) {
}
eval 'sub w_termsig () { &w_T. &w_Termsig;}' unless defined(&w_termsig);
eval 'sub w_coredump () { &w_T. &w_Coredump;}' unless defined(&w_coredump);
eval 'sub w_retcode () { &w_T. &w_Retcode;}' unless defined(&w_retcode);
eval 'sub w_stopval () { &w_S. &w_Stopval;}' unless defined(&w_stopval);
eval 'sub w_stopsig () { &w_S. &w_Stopsig;}' unless defined(&w_stopsig);
eval 'sub _WAITCAST {
local($w) = @_;
eval "(*( &union &wait *)($w))";
}' unless defined(&_WAITCAST);
eval 'sub _W_INT {
local($w) = @_;
eval "(*($w))";
}' unless defined(&_W_INT);
}
else {
eval 'sub _W_INT {
local($i) = @_;
eval "($i)";
}' unless defined(&_W_INT);
}
if (!defined( &WUNTRACED)) {
eval 'sub WUNTRACED () {0004;}' unless defined(&WUNTRACED);
eval 'sub WNOHANG () {0100;}' unless defined(&WNOHANG);
eval 'sub _WSTOPPED () {0177;}' unless defined(&_WSTOPPED);
eval 'sub WIFEXITED {
local($stat) = @_;
eval "(( &_W_INT($stat)0377)==0)";
}' unless defined(&WIFEXITED);
eval 'sub WIFSIGNALED {
local($stat) = @_;
eval "(( &_W_INT($stat)0377)>0&&(( &_W_INT($stat)>>8)0377)==0)";
}' unless defined(&WIFSIGNALED);
eval 'sub WIFSTOPPED {
local($stat) = @_;
eval "(( &_W_INT($stat)0377)== &_WSTOPPED&&(( &_W_INT($stat)>>8)0377)!=0)";
}' unless defined(&WIFSTOPPED);
eval 'sub WEXITSTATUS {
local($stat) = @_;
eval "(( &_W_INT($stat)>>8)0377)";
}' unless defined(&WEXITSTATUS);
eval 'sub WTERMSIG {
local($stat) = @_;
eval "( &_W_INT($stat)0177)";
}' unless defined(&WTERMSIG);
eval 'sub WSTOPSIG {
local($stat) = @_;
eval "(( &_W_INT($stat)>>8)0377)";
}' unless defined(&WSTOPSIG);
}
if ((defined(&_XOPEN4UX) ? &_XOPEN4UX : 0)) {
eval 'sub WEXITED () {0001;}' unless defined(&WEXITED);
eval 'sub WTRAPPED () {0002;}' unless defined(&WTRAPPED);
eval 'sub WSTOPPED () {0004;}' unless defined(&WSTOPPED);
eval 'sub WCONTINUED () {0010;}' unless defined(&WCONTINUED);
eval 'sub WNOWAIT () {0200;}' unless defined(&WNOWAIT);
eval 'sub WOPTMASK () {( &WEXITED| &WTRAPPED| &WSTOPPED| &WCONTINUED|
&WNOHANG| &WNOWAIT);}' unless defined(&WOPTMASK);
eval 'sub WSTOPFLG () {0177;}' unless defined(&WSTOPFLG);
eval 'sub WCONTFLG () {0177777;}' unless defined(&WCONTFLG);
eval 'sub WCOREFLAG () {0200;}' unless defined(&WCOREFLAG);
eval 'sub WCOREFLG () {0200;}' unless defined(&WCOREFLG);
eval 'sub WSIGMASK () {0177;}' unless defined(&WSIGMASK);
eval 'sub WWORD {
local($stat) = @_;
eval "( &_W_INT($stat)0177777)";
}' unless defined(&WWORD);
eval 'sub WIFCONTINUED {
local($stat) = @_;
eval "( &WWORD($stat)== &WCONTFLG)";
}' unless defined(&WIFCONTINUED);
eval 'sub WCOREDUMP {
local($stat) = @_;
eval "( &_W_INT($stat) &WCOREFLAG)";
}' unless defined(&WCOREDUMP);
}
require 'sys/types.ph';
if ((defined(&_XOPEN4UX) ? &_XOPEN4UX : 0)) {
require 'sys/procset.ph';
require 'sys/signal.ph';
require 'sys/siginfo.ph';
require 'sys/resource.ph';
}
if (defined &_KERNEL) {
}
else {
if (defined &_BSD_COMPAT) {
}
else {
}
if ((defined(&_XOPEN4UX) ? &_XOPEN4UX : 0)) {
if (defined &_BSD_COMPAT) {
}
else {
}
}
}
if (defined &__cplusplus) {
}
}
1;
if (!defined &_SYS_TYPES_H) {
eval 'sub _SYS_TYPES_H () {1;}' unless defined(&_SYS_TYPES_H);
require 'standards.ph';
require 'sgidefs.ph';
if (((defined(&_POSIX1C) ? &_POSIX1C : 0) || (defined(&_XOPEN5) ? &_XOPEN5 : 0))) {
require 'sys/pthread.ph';
}
if (((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) == (defined(&_ABIN32) ? &_ABIN32 :
0))) {
}
else {
}
if ((defined(&_NO_POSIX) ? &_NO_POSIX : 0) && (defined(&_NO_XOPEN4) ? &_NO_XOPEN4
: 0) && (defined(&_NO_XOPEN5) ? &_NO_XOPEN5 : 0)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
if ((defined( &_KERNEL) || ((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) ==
(defined(&_ABIN32) ? &_ABIN32 : 0))) && !defined( &_STANDALONE)) {
}
else {
}
if (!defined &_OFF_T) {
eval 'sub _OFF_T () {1;}' unless defined(&_OFF_T);
if (defined( &_KERNEL) && !defined( &_STANDALONE)) {
}
elsif (defined( &_STANDALONE)) {
}
elsif ((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) == (defined(&_ABIN32) ? &_ABIN32
: 0)) {
}
else {
}
}
if (!defined &_OFF64_T) {
eval 'sub _OFF64_T () {1;}' unless defined(&_OFF64_T);
}
if (defined( &_KERNEL) || ((defined(&_NO_XOPEN4) ? &_NO_XOPEN4 : 0) &&
(defined(&_NO_XOPEN5) ? &_NO_XOPEN5 : 0) && (defined(&_NO_POSIX) ? &_NO_POSIX : 0))) {
}
if ((defined(&_LFAPI) ? &_LFAPI : 0)) {
}
if ((((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) == (defined(&_ABIN32) ? &_ABIN32 :
0)) || defined( &_KERNEL))) {
}
else {
}
if (!defined( &_SIZE_T) && !defined( &_SIZE_T_)) {
eval 'sub _SIZE_T () {1;}' unless defined(&_SIZE_T);
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
}
if (!defined &_SSIZE_T) {
eval 'sub _SSIZE_T () {1;}' unless defined(&_SSIZE_T);
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
}
if (!defined &_TIME_T) {
eval 'sub _TIME_T () {1;}' unless defined(&_TIME_T);
if ((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32) {
}
if ((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64) {
}
}
if (!defined &_CLOCK_T) {
eval 'sub _CLOCK_T () {1;}' unless defined(&_CLOCK_T);
if ((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32) {
}
if ((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64) {
}
}
if (!defined &_WCHAR_T) {
eval 'sub _WCHAR_T () {1;}' unless defined(&_WCHAR_T);
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 32)) {
}
if (((defined(&_MIPS_SZLONG) ? &_MIPS_SZLONG : 0) == 64)) {
}
}
if (!defined &_CLOCK_ID_T) {
eval 'sub _CLOCK_ID_T () {1;}' unless defined(&_CLOCK_ID_T);
}
if (!defined &_TIMER_T) {
eval 'sub _TIMER_T () {1;}' unless defined(&_TIMER_T);
}
if (!defined &_USECONDS_T) {
eval 'sub _USECONDS_T () {1;}' unless defined(&_USECONDS_T);
}
if (defined( &__mips)) {
}
if (((defined(&_MIPS_ISA) ? &_MIPS_ISA : 0) == (defined(&_MIPS_ISA_MIPS1) ?
&_MIPS_ISA_MIPS1 : 0) || (defined(&_MIPS_ISA) ? &_MIPS_ISA : 0) ==
(defined(&_MIPS_ISA_MIPS2) ? &_MIPS_ISA_MIPS2 : 0)) ) {
}
if (((defined(&_MIPS_ISA) ? &_MIPS_ISA : 0) == (defined(&_MIPS_ISA_MIPS3) ?
&_MIPS_ISA_MIPS3 : 0) || (defined(&_MIPS_ISA) ? &_MIPS_ISA : 0) ==
(defined(&_MIPS_ISA_MIPS4) ? &_MIPS_ISA_MIPS4 : 0)) ) {
}
if (((defined(&_MIPS_FPSET) ? &_MIPS_FPSET : 0) == 16)) {
}
if (((defined(&_MIPS_FPSET) ? &_MIPS_FPSET : 0) == 32)) {
}
if (!defined &__inttypes_INCLUDED) {
eval 'sub __inttypes_INCLUDED () {1;}' unless defined(&__inttypes_INCLUDED);
}
if (defined( &_KERNEL) || ((defined(&_NO_POSIX) ? &_NO_POSIX : 0) &&
(defined(&_NO_XOPEN4) ? &_NO_XOPEN4 : 0) && (defined(&_NO_XOPEN5) ? &_NO_XOPEN5 : 0))
|| (defined(&_ABIAPI) ? &_ABIAPI : 0)) {
eval 'sub P_MYID () {(-1);}' unless defined(&P_MYID);
}
if (defined( &_KERNEL) || ( (defined(&_NO_POSIX) ? &_NO_POSIX : 0) &&
(defined(&_NO_XOPEN4) ? &_NO_XOPEN4 : 0) && (defined(&_NO_XOPEN5) ? &_NO_XOPEN5 : 0)
)) {
eval 'sub NOPID () {(-1);}' unless defined(&NOPID);
if (!defined &NODEV) {
eval 'sub NODEV () {(-1);}' unless defined(&NODEV);
}
eval 'sub P_MYPID () {(0);}' unless defined(&P_MYPID);
eval 'sub P_MYHOSTID () {(-1);}' unless defined(&P_MYHOSTID);
}
if (((defined(&_NO_POSIX) ? &_NO_POSIX : 0) && (defined(&_NO_XOPEN4) ? &_NO_XOPEN4
: 0) && (defined(&_NO_XOPEN5) ? &_NO_XOPEN5 : 0)) || defined( &_BSD_TYPES) || defined(
&_BSD_COMPAT)) {
require 'sys/bsd_types.ph';
}
if (((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) != (defined(&_ABIO32) ? &_ABIO32 :
0))) {
}
else {
if ((defined(&_SGIAPI) ? &_SGIAPI : 0)) {
eval 'sub sigbits () { &__sigbits;}' unless defined(&sigbits);
}
}
if (defined( &_KERNEL) || defined( &_STANDALONE) || defined( &_KMEMUSER)) {
if ((defined(&_MIPS_SIM) ? &_MIPS_SIM : 0) == (defined(&_ABI64) ? &_ABI64 :
0)) {
}
else {
}
if (defined &_K64PROM32) {
}
else {
}
if ((defined(&__HARDTYPE) ? &__HARDTYPE : 0)) {
}
else {
}
require 'sys/cpumask.ph';
require 'sys/nodemask.ph';
}
}
1;
--
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
