develooper Front page | perl.perl5.porters | Postings from May 2019

Re: [perl #122112] refcnt: fd -1 < 0 with MIME::Lite

Thread Previous | Thread Next
From:
Richard Leach
Date:
May 31, 2019 19:44
Subject:
Re: [perl #122112] refcnt: fd -1 < 0 with MIME::Lite
Message ID:
CADWSe2fWBshtzxO2RFhEf_=iHoJH3SStJRhb3W5Fi_p3kOikzQ@mail.gmail.com
On Thu, May 30, 2019 at 1:36 AM Tony Cook via RT
<perlbug-followup@perl.org> wrote:
> Test case applied as fb5e77103dd443cc2112ba14dc665aa5ec072ce6 and the simple fix as 35608a1658fe75c79ca53d96aea6cf7cb2a98615.

Hi Tony,

io/pipe.t has just started hanging on my Android builds, seemingly
since these commits. Output from a manual poke below.

I'll have time over the weekend to look in more detail, is there any
specific debugging you'd like me to do?

$ ./perl harness -v io/pipe.t
io/pipe.t ..
1..27
ok 1 - open |- || exec
ok 2 -    again
ok 3 - open -|
ok 4 -     again
ok 5 - '97 98 99 10 114 115 116 13 120 121 122 13 10 102 111 111 10'
passes through '-|'
ok 6 - '97 98 99 10 114 115 116 13 120 121 122 13 10 102 111 111 10'
passes through '|-'
ok 7 - pipe & fork
ok 8 -     with fh dup
ok 10
ok 11 - pipe endpoints not inherited across exec
ok 12 - close error on broken pipe
ok 13 - close failure on non-zero piped exit
ok 14 -        errno
ok 15 -        status
ok 16 - close failure for... umm, something
ok 17 -        status
ok 18 -        errno
ok 19 - status correct after wait
ok 20 -        wait pid
ok 21 -        errno
ok 22 - missing command in piped open input
ok 23 -                               output
ok 24 - status unaffected by implicit close
ok 25 - child reaped if piped program cannot be executed
$SIG{ALRM}=sub{die};
alarm 1;
$Perl = "./perl";
my $cmd = qq($Perl -e "sleep 3");
my $pid = open my $fh, "|$cmd" or die "$!
";
close $fh;
ok 26 - no exception from PerlIO
ok 27 - but we did get the exception from die
Failed 1/27 subtests

Test Summary Report
-------------------
io/pipe.t (Wstat: 0 Tests: 26 Failed: 0)
  Parse errors: Tests out of sequence.  Found (10) but expected (9)
                Tests out of sequence.  Found (11) but expected (10)
                Tests out of sequence.  Found (12) but expected (11)
                Tests out of sequence.  Found (13) but expected (12)
                Tests out of sequence.  Found (14) but expected (13)
Displayed the first 5 of 19 TAP syntax errors.
Re-run prove with the -p option to see them all.
Files=1, Tests=26, 12 wallclock secs ( 0.06 usr  0.01 sys +  0.36 cusr
 0.14 csys =  0.57 CPU)
Result: FAIL





---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=122112

Thread Previous | 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