Skip Menu |

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

Report information
The Basics
Id: 130057
Status: resolved
Priority: 0/
Queue: IO-Async

People
Owner: Nobody in particular
Requestors: jkeenan [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.74
Fixed in: 0.75



Subject: IO-Async: t/41routine.t fails in FreeBSD-12 VM against perl-5.31.0
This week, as part of CPAN-River-3000 testing, I attempted to install this distribution on FreeBSD-12 against perl-5.31.0 using cpanm as the installer. The platform in question is a VM. Excerpt from cpanm build.log: ##### $ dumpjson PEVANS.IO-Async-0.74.log.json { author => "PEVANS", dist => "IO-Async", distname => "IO-Async-0.74", distversion => 0.74, grade => "FAIL", prereqs => undef, test_output => [ "Building and testing IO-Async-0.74", "Building IO-Async", "t/00use.t .................... ok", [snip] "t/40channel.t ................ ok", "sink routine failed - Cannot read - Resource temporarily unavailable at /usr/home/jkeenan/var/tad/testing/perl-5.31.0/.cpanm/work/1562787494.14114/IO-Async-0.74/blib/lib/IO/Async/Channel.pm line 371.", "# Tests were run but no plan was declared and done_testing() was not seen.", "# Looks like your test exited with 35 just after 27.", "t/41routine.t ................ ", "Dubious, test returned 35 (wstat 8960, 0x2300)", "All 27 subtests passed ", "Warning: unable to close filehandle \$wr properly: Bad file descriptor during global destruction.", "Warning: unable to close filehandle \$wr properly: Bad file descriptor during global destruction.", "Warning: unable to close filehandle \$out properly: Bad file descriptor during global destruction.", "Warning: unable to close filehandle \$out properly: Bad file descriptor during global destruction.", "Warning: unable to close filehandle properly: Bad file descriptor during global destruction.", "Warning: unable to close filehandle properly: Bad file descriptor during global destruction.", "t/42function.t ............... ok", [snip] "t/99pod.t .................... ok", "", "Test Summary Report", "-------------------", "t/41routine.t (Wstat: 8960 Tests: 27 Failed: 0)", " Non-zero exit status: 35", " Parse errors: No plan found in TAP output", "Files=62, Tests=1636, 129 wallclock secs ( 0.23 usr 0.23 sys + 22.34 cusr 7.55 csys = 30.35 CPU)", "Result: FAIL", ], via => "App::cpanminus::reporter 0.17 (1.7044)", } ##### [IO-Async-0.74] $ thisperl -V Summary of my perl5 (revision 5 version 31 subversion 0) configuration: Platform: osname=freebsd osvers=12.0-release archname=amd64-freebsd-thread-multi uname='freebsd perl-reporter-07 12.0-release freebsd 12.0-release r341666 generic amd64 ' config_args='-des -Dusedevel -Uversiononly -Dman1dir=none -Dman3dir=none -Duseithreads -Doptimize=-O2 -pipe -fstack-protector -fno-strict-aliasing -Dprefix=/home/jkeenan/var/tad/testing/perl-5.31.0' hint=recommended useposix=true d_sigaction=define useithreads=define usemultiplicity=define use64bitint=define use64bitall=define uselongdouble=undef usemymalloc=n default_inc_excludes_dot=define bincompat5005=undef Compiler: cc='cc' ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_FORTIFY_SOURCE=2' optimize='-O2 -pipe -fstack-protector -fno-strict-aliasing' cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include' ccversion='' gccversion='4.2.1 Compatible FreeBSD Clang 6.0.1 (tags/RELEASE_601/final 335540)' gccosandvers='' intsize=4 longsize=8 ptrsize=8 doublesize=8 byteorder=12345678 doublekind=3 d_longlong=define longlongsize=8 d_longdbl=define longdblsize=16 longdblkind=3 ivtype='long' ivsize=8 nvtype='double' nvsize=8 Off_t='off_t' lseeksize=8 alignbytes=8 prototype=define Linker and Libraries: ld='cc' ldflags ='-pthread -Wl,-E -fstack-protector-strong -L/usr/local/lib' libpth=/usr/lib /usr/local/lib /usr/lib/clang/6.0.1/lib /usr/lib libs=-lpthread -lgdbm -ldl -lm -lcrypt -lutil perllibs=-lpthread -ldl -lm -lcrypt -lutil libc= so=so useshrplib=false libperl=libperl.a gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs dlext=so d_dlsymun=undef ccdlflags=' ' cccdlflags='-DPIC -fPIC' lddlflags='-shared -L/usr/local/lib -fstack-protector-strong' Characteristics of this binary (from libperl): Compile-time options: HAS_TIMES MULTIPLICITY PERLIO_LAYERS PERL_COPY_ON_WRITE PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP PERL_OP_PARENT PERL_PRESERVE_IVUV PERL_USE_DEVEL USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_LOCALE_TIME USE_PERLIO USE_PERL_ATOF USE_REENTRANT_API USE_THREAD_SAFE_LOCALE Built under freebsd ##### Can you investigate? Thank you very much. Jim Keenan
On 2019-07-11 17:48:18, JKEENAN wrote: Show quoted text
> This week, as part of CPAN-River-3000 testing, I attempted to install > this distribution on FreeBSD-12 against perl-5.31.0 using cpanm as the > installer. The platform in question is a VM. Excerpt from cpanm > build.log: > > ##### > $ dumpjson PEVANS.IO-Async-0.74.log.json > { > author => "PEVANS", > dist => "IO-Async", > distname => "IO-Async-0.74", > distversion => 0.74, > grade => "FAIL", > prereqs => undef, > test_output => [ > "Building and testing IO-Async-0.74", > "Building IO-Async", > "t/00use.t .................... ok", > [snip] > "t/40channel.t ................ ok", > "sink routine failed - Cannot read - Resource temporarily > unavailable at /usr/home/jkeenan/var/tad/testing/perl- > 5.31.0/.cpanm/work/1562787494.14114/IO-Async- > 0.74/blib/lib/IO/Async/Channel.pm line 371.", > "# Tests were run but no plan was declared and done_testing() was > not seen.", > "# Looks like your test exited with 35 just after 27.", > "t/41routine.t ................ ", > "Dubious, test returned 35 (wstat 8960, 0x2300)", > "All 27 subtests passed ", > "Warning: unable to close filehandle \$wr properly: Bad file > descriptor during global destruction.", > "Warning: unable to close filehandle \$wr properly: Bad file > descriptor during global destruction.", > "Warning: unable to close filehandle \$out properly: Bad file > descriptor during global destruction.", > "Warning: unable to close filehandle \$out properly: Bad file > descriptor during global destruction.", > "Warning: unable to close filehandle properly: Bad file descriptor > during global destruction.", > "Warning: unable to close filehandle properly: Bad file descriptor > during global destruction.", > "t/42function.t ............... ok", > [snip] > "t/99pod.t .................... ok", > "", > "Test Summary Report", > "-------------------", > "t/41routine.t (Wstat: 8960 Tests: 27 Failed: 0)", > " Non-zero exit status: 35", > " Parse errors: No plan found in TAP output", > "Files=62, Tests=1636, 129 wallclock secs ( 0.23 usr 0.23 sys + > 22.34 cusr 7.55 csys = 30.35 CPU)", > "Result: FAIL", > ], > via => "App::cpanminus::reporter 0.17 (1.7044)", > } > ##### > [IO-Async-0.74] $ thisperl -V > Summary of my perl5 (revision 5 version 31 subversion 0) > configuration: > > Platform: > osname=freebsd > osvers=12.0-release > archname=amd64-freebsd-thread-multi > uname='freebsd perl-reporter-07 12.0-release freebsd 12.0-release > r341666 generic amd64 ' > config_args='-des -Dusedevel -Uversiononly -Dman1dir=none > -Dman3dir=none -Duseithreads -Doptimize=-O2 -pipe -fstack-protector > -fno-strict-aliasing -Dprefix=/home/jkeenan/var/tad/testing/perl- > 5.31.0' > hint=recommended > useposix=true > d_sigaction=define > useithreads=define > usemultiplicity=define > use64bitint=define > use64bitall=define > uselongdouble=undef > usemymalloc=n > default_inc_excludes_dot=define > bincompat5005=undef > Compiler: > cc='cc' > ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing > -pipe -fstack-protector-strong -I/usr/local/include > -D_FORTIFY_SOURCE=2' > optimize='-O2 -pipe -fstack-protector -fno-strict-aliasing' > cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing > -pipe -fstack-protector-strong -I/usr/local/include' > ccversion='' > gccversion='4.2.1 Compatible FreeBSD Clang 6.0.1 > (tags/RELEASE_601/final 335540)' > gccosandvers='' > intsize=4 > longsize=8 > ptrsize=8 > doublesize=8 > byteorder=12345678 > doublekind=3 > d_longlong=define > longlongsize=8 > d_longdbl=define > longdblsize=16 > longdblkind=3 > ivtype='long' > ivsize=8 > nvtype='double' > nvsize=8 > Off_t='off_t' > lseeksize=8 > alignbytes=8 > prototype=define > Linker and Libraries: > ld='cc' > ldflags ='-pthread -Wl,-E -fstack-protector-strong > -L/usr/local/lib' > libpth=/usr/lib /usr/local/lib /usr/lib/clang/6.0.1/lib /usr/lib > libs=-lpthread -lgdbm -ldl -lm -lcrypt -lutil > perllibs=-lpthread -ldl -lm -lcrypt -lutil > libc= > so=so > useshrplib=false > libperl=libperl.a > gnulibc_version='' > Dynamic Linking: > dlsrc=dl_dlopen.xs > dlext=so > d_dlsymun=undef > ccdlflags=' ' > cccdlflags='-DPIC -fPIC' > lddlflags='-shared -L/usr/local/lib -fstack-protector-strong' > > > Characteristics of this binary (from libperl): > Compile-time options: > HAS_TIMES > MULTIPLICITY > PERLIO_LAYERS > PERL_COPY_ON_WRITE > PERL_DONT_CREATE_GVSV > PERL_IMPLICIT_CONTEXT > PERL_MALLOC_WRAP > PERL_OP_PARENT > PERL_PRESERVE_IVUV > PERL_USE_DEVEL > USE_64_BIT_ALL > USE_64_BIT_INT > USE_ITHREADS > USE_LARGE_FILES > USE_LOCALE > USE_LOCALE_COLLATE > USE_LOCALE_CTYPE > USE_LOCALE_NUMERIC > USE_LOCALE_TIME > USE_PERLIO > USE_PERL_ATOF > USE_REENTRANT_API > USE_THREAD_SAFE_LOCALE > Built under freebsd > #####
Same failure may happen on non-freebsd systems (seen on linux) and with older perls.
On Thu Jul 11 17:48:18 2019, JKEENAN wrote: Show quoted text
> Cannot read - Resource temporarily unavailable at /usr/home/jkeenan/var/tad/testing/perl-5.31.0/.cpanm/work/1562787494.14114/IO-Async-0.74/blib/lib/IO/Async/Channel.pm line 371.
I believe this is the key part. This bug was actually fixed in source a while ago, so it should be resolved by the next CPAN release (0.75). I'm just finishing that off now. I'll bump this ticket when it's available. Attached is the relevant patch. -- Paul Evans
Subject: rt130057.patch
=== modified file 'lib/IO/Async/Channel.pm' --- old/lib/IO/Async/Channel.pm 2019-06-27 17:51:07 +0000 +++ new/lib/IO/Async/Channel.pm 2019-08-19 14:01:31 +0000 @@ -347,6 +347,7 @@ # enable binmode binmode $self->{fh}; + defined and $_->blocking( 1 ) for $self->{read_handle}, $self->{write_handle}; $self->{fh}->autoflush(1); }