develooper Front page | perl.perl5.porters | Postings from January 2004

ext/threads/shared/t/wait.t Hangs on HP-UX 10.20

Thread Next
From:
H.Merijn Brand
Date:
January 8, 2004 00:20
Subject:
ext/threads/shared/t/wait.t Hangs on HP-UX 10.20
Message ID:
20040108090343.77BF.H.M.BRAND@hccnet.nl
Thread test hang (no CPU usage) on HP-UX 10.20 for both blead an 5.8.3/rc1:

USER    PID   TIME COMMAND
 203   1128   0:00 /bin/sh p58.sh
 203        1159   0:00 /pro/bin/perl smokeperl.pl --nofetch --nopatch -c p58_config
 203            13390   0:00 make _test
 203                 13391   0:00 /bin/sh -c if (true </dev/tty) >/dev/null 2>&1; then  make T
 203                      13394   0:00 make TEST_ARGS= TESTFILE=TEST _test_notty
 203                           13395   0:00 /bin/sh -c cd t &&  PERL_SKIP_TTY_TEST=1  ./perl TEST
 203                                13396   0:00 ./perl TEST
 203                                     16561   0:00 ./perl -I. -MTestInit ../ext/threads/shared/t/wait.t
 203  11693   0:00 sh -c /pro/3gl/CPAN/smoke/p59.sh
 203       11694   0:00 /bin/sh /pro/3gl/CPAN/smoke/p59.sh
 203            12867   0:00 /pro/bin/perl smokeperl.pl --nofetch --nopatch -c p59_config
 203                 25703   0:00 make _test
 203                      25704   0:00 /bin/sh -c if (true </dev/tty) >/dev/null 2>&1; then  make T
 203                           25707   0:00 make TEST_ARGS= TESTFILE=TEST _test_notty
 203                                25708   0:00 /bin/sh -c cd t &&  PERL_SKIP_TTY_TEST=1  ./perl TEST
 203                                     25709   0:00 ./perl TEST
 203                                          27271   0:00 ./perl -I. -MTestInit ../ext/threads/shared/t/wait.t

merijn  13390  1159 158 20  164 00:46:02 -         0:00 make _test
merijn   1833  1780 154 20   31 09:04:31 ttyp1     0:00 grep -i test
merijn  25703 12867 158 22  162 03:12:30 -         0:00 make _test
merijn  13394 13391 158 20  164 00:46:02 -         0:00 make TEST_ARGS= TESTFILE=TEST _test_notty
merijn  13395 13394 158 20  110 00:46:03 -         0:00 /bin/sh -c cd t &&  PERL_SKIP_TTY_TEST=1  ./perl TEST
merijn  13396 13395 154 20  551 00:46:03 -         0:06 ./perl TEST
merijn  16561 13396 154 20 1000 00:56:27 -         0:02 ./perl -I. -MTestInit ../ext/threads/shared/t/wait.t
merijn  25707 25704 158 22  162 03:12:30 -         0:00 make TEST_ARGS= TESTFILE=TEST _test_notty
merijn  25708 25707 158 22  105 03:12:31 -         0:00 /bin/sh -c cd t &&  PERL_SKIP_TTY_TEST=1  ./perl TEST
merijn  25709 25708 154 22  546 03:12:31 -         0:10 ./perl TEST
merijn  27271 25709 154 22 1000 03:23:28 -         0:03 ./perl -I. -MTestInit ../ext/threads/shared/t/wait.t

blead/22091:

d3:/pro/3gl/CPAN/perl-current 107 > grep pth config.sh
d_old_pthread_create_joinable='define'
d_oldpthreads='define'
d_pthread_atfork='define'
d_pthread_attr_setscope='undef'
d_pthread_yield='define'
glibpth='/usr/shlib  /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib '
i_pthread='define'
ldlibpthname='LD_LIBRARY_PATH'
libpth='/pro/local/lib /lib /usr/lib /usr/ccs/lib'
libs='-lcma -lcl -lpthread -lnsl_s -lndbm -lgdbm -ldb -lmalloc -ldld -lm -lcrypt -lsec -lc'
libsfiles=' libcma.sl libcl.sl libpthread.sl libnsl_s.a libndbm.sl libgdbm.sl.3 libdb.sl libmalloc.a libdld.sl libm.sl libcrypt.a libsec.sl libc.sl'
libsfound=' /pro/local/lib/libcma.sl /lib/libcl.sl /lib/libpthread.sl /lib/libnsl_s.a /lib/libndbm.sl /pro/local/lib/libgdbm.sl.3 /pro/local/lib/libdb.sl /lib/libmalloc.a /lib/libdld.sl /lib/libm.sl /lib/libcrypt.a /lib/libsec.sl /lib/libc.sl'
libswanted='cma cl pthread sfio socket bind inet nsl nm ndbm gdbm db malloc dl dld sun m crypt sec util c cposix posix ucb bsd'
locincpth='/pro/local/include'
loclibpth='/pro/local/lib'
old_pthread_create_joinable='0'
perllibs='-lcma -lcl -lpthread -lnsl_s -lmalloc -ldld -lm -lcrypt -lsec -lc'
plibpth=''
xlibpth='/usr/lib/386 /lib/386'
pthread_h_first='define'
d3:/pro/3gl/CPAN/perl-current 108 > cat .patch
22091
d3:/pro/3gl/CPAN/perl-current 109 > ll  /lib/libpthread.sl
  14469 lrwxrwxrwx    1 root     sys            31 Feb 20  2002 /lib/libpthread.sl -> ../../opt/pth/lib/libpthread.sl
d3:/pro/3gl/CPAN/perl-current 110 > swlist pth
# Initializing...
# Contacting target "d3"...
#
# Target:  d3:/
#

# pth           1.4.1          pth
  pth.pth-RUN
d3:/pro/3gl/CPAN/perl-current 111 >

I killed the p58 wait, hoping it to continue yielding information
killing that wait caused the other smoke to continue.

I killed the complete p59 smoke tree, and running the test by hand gave

d3:/pro/3gl/CPAN/perl-current/t 120 > ./perl -I. -MTestInit ../ext/threads/shared/t/wait.t
1..90
ok 1 - cond_wait() present
ok 2 - cond_wait() prototype '\[$@%];\[$@%]'
ok 3 - cond_timedwait() present
ok 4 - cond_timedwait() prototype '\[$@%]$;\[$@%]'
ok 5 - Shared synchronization tests preparation
ok 6 - cond_wait [simple]: obtained initial lock
ok 7 - cond_wait [simple]: child before lock
ok 8 - cond_wait [simple]: child obtained lock
ok 9 - cond_wait [simple]: child signalled condition
ok 10 - cond_wait [simple]: condition obtained
ok 11 - cond_wait [repeat]: obtained initial lock
ok 12 - cond_wait [repeat]: child before lock
ok 13 - cond_wait [repeat]: child obtained lock
ok 14 - cond_wait [repeat]: child signalled condition
ok 15 - cond_wait [repeat]: condition obtained
ok 16 - cond_wait [twain]: obtained initial lock
ok 17 - cond_wait [twain]: child before lock
ok 18 - cond_wait [twain]: child obtained lock
ok 19 - cond_wait [twain]: child signalled condition
ok 20 - cond_wait [twain]: condition obtained
ok 21 - cond_timedwait [simple]: obtained initial lock
ok 22 - cond_timedwait [simple]: child before lock
ok 23 - cond_timedwait [simple]: child obtained lock
ok 24 - cond_timedwait [simple]: child signalled condition
# back from cond_timedwait; join()ing
ok 25 - cond_timedwait [simple]: condition obtained
ok 26 - cond_timedwait [repeat]: obtained initial lock
ok 27 - cond_timedwait [repeat]: child before lock
ok 28 - cond_timedwait [repeat]: child obtained lock
ok 29 - cond_timedwait [repeat]: child signalled condition
# back from cond_timedwait; join()ing
ok 30 - cond_timedwait [repeat]: condition obtained
ok 31 - cond_timedwait [twain]: obtained initial lock
ok 32 - cond_timedwait [twain]: child before lock
ok 33 - cond_timedwait [twain]: child obtained lock
ok 34 - cond_timedwait [twain]: child signalled condition
# back from cond_timedwait; join()ing
ok 35 - cond_timedwait [twain]: condition obtained
ok 36 - cond_timedwait pause, timeout [simple]: obtained initial lock

.... silence ....

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0, & 5.9.x, and 806 on  HP-UX 10.20 & 11.00, 11i,
   AIX 4.3, SuSE 8.2, and Win2k.           http://www.cmve.net/~merijn/
http://archives.develooper.com/daily-build@perl.org/   perl-qa@perl.org
send smoke reports to: smokers-reports@perl.org, QA: http://qa.perl.org


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About