Skip Menu |
 

This queue is for tickets about the IO-Socket-SSL CPAN distribution.

Report information
The Basics
Id: 72170
Status: resolved
Priority: 0/
Queue: IO-Socket-SSL

People
Owner: Nobody in particular
Requestors: w.phillip.moore [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.48
Fixed in: (no value)



Subject: t/memleak_bad_handshake.t hangs on AIX 6
Download (untitled) / with headers
text/plain 1.3k
Building 1.48 on AIX 6, for perl5.10.1, 5.12.4, and 5.14.2, I've found that the t/memleak_bad_handshake.t tests will hang, and I've been unable to determine why. Oddly, the tests hangs when run via the test_harness(), but not when run directly. That is, this fails: PERL_DL_NONLAZY=1 /efs/dist/perl5/core/5.14/.exec/powerpc64.aix.6/bin/perl "- MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/memleak_bad_handshake.t But this does not: perl -Mblib t/memleak_bad_handshake.t I've done some digging, but I can't find a root cause for this. Considering the context of WHAT this test is verifying, I simply patched the test not to run on AIX. I don't know if this is an acceptable workaround or not, but considering that the test skip a lot of other platforms, it seems reasonable: diff -rc ../IO-Socket-SSL-1.48-orig/t/memleak_bad_handshake.t ./t/memleak_bad_handshake.t *** ../IO-Socket-SSL-1.48-orig/t/memleak_bad_handshake.t Wed Mar 17 07:35:24 2010 --- ./t/memleak_bad_handshake.t Fri Nov 4 09:09:28 2011 *************** *** 10,15 **** --- 10,20 ---- use Errno qw(EAGAIN EINPROGRESS ); use strict; + if ( $^O =~ m{AIX}i ) { + print "1..0 # Skipped: this tests hangs on AIX\n"; + exit + } + if ( grep { $^O =~m{$_}i } qw( MacOS VOS vmesa riscos amigaos mswin32) ) { print "1..0 # Skipped: ps not implemented on this platform\n"; exit
FYI - Same for AIX-5.3 So maybe change the title to "t/memleak_bad_handshake.t hangs on AIX"
Download (untitled) / with headers
text/plain 189b
Show quoted text
> + if ( $^O =~ m{AIX}i ) { > + print "1..0 # Skipped: this tests hangs on AIX\n"; > + exit > + } > +
I've added something like this to version 1.51. Thanks for reporting the bug.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.