Skip Menu |

This queue is for tickets about the future CPAN distribution.

Report information
The Basics
Id: 99002
Status: resolved
Priority: 0/
Queue: future

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

Bug Information
Severity: (no value)
Broken in:
  • 0.29
  • 0.31
Fixed in: 0.32



Subject: Fails with bleadperl
In case you have not noticed, https://rt.perl.org/rt3/Ticket/Display.html?id=122735 is talking about this module. It stops working and people seem to believe the culprit is on this side of the limes. Please chime in and help resolve the issues before 5.22 breaks your module officially. Thanks && HTH
Here is a patch.
Subject: open_R3gJydIh.txt
diff -rup Future-0.29-A2VKoA-orig/t/21debug.t Future-0.29-A2VKoA/t/21debug.t --- Future-0.29-A2VKoA-orig/t/21debug.t 2014-09-26 13:19:26.000000000 -0700 +++ Future-0.29-A2VKoA/t/21debug.t 2014-09-26 13:19:41.000000000 -0700 @@ -39,7 +39,7 @@ like( warnings { $LINE = __LINE__; my $f = Future->new; undef $f; }, - qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line $LOSTLINE before it was ready\.$/, + qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line (?:$LOSTLINE|${\($LINE+1)}) before it was ready\.$/, 'Lost Future raises a warning' ); my $THENLINE; @@ -49,7 +49,7 @@ like( warnings { $THENLINE = __LINE__; my $fseq = $f1->then( sub { } ); undef $fseq; $SEQLINE = __LINE__; $f1->done; }, - qr/^Future=\S+ was constructed at \Q$0\E line $THENLINE and was lost near \Q$0\E line $SEQLINE before it was ready\. + qr/^Future=\S+ was constructed at \Q$0\E line $THENLINE and was lost near \Q$0\E line (?:$SEQLINE|$THENLINE) before it was ready\. Future=\S+ \(constructed at \Q$0\E line $LINE\) lost a sequence Future at \Q$0\E line $SEQLINE\.$/, 'Lost sequence Future raises warning' );
On Fri Sep 26 16:42:33 2014, SPROUT wrote: Show quoted text
> Here is a patch.
Ooh, this looks exciting. From the implied changes in that patch, it looks like perl is reporting more helpful line numbers on these loss reports now. In any case, patch applied. -- Paul Evans
Released in 0.30 -- Paul Evans
Reappeared with 0.31. Sample fail report: http://www.cpantesters.org/cpan/report/124d5044-c5c4-11e4-b671-ae3478f6a711 HTH&&Thanks,
Oops. Fixed again. -- Paul Evans
Subject: rt99002-2.patch
=== modified file 't/21debug.t' --- t/21debug.t 2015-03-08 15:05:44 +0000 +++ t/21debug.t 2015-03-10 12:12:14 +0000 @@ -57,7 +57,7 @@ $LINE = __LINE__; my $f = Future->fail("Failed!"); undef $f; }, - qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line $LOSTLINE with an unreported failure of: Failed!/, + qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line (?:$LOSTLINE|${\($LINE+1)}) with an unreported failure of: Failed!/, 'Destroyed failed future raises warning' ); {
Released in 0.32 -- Paul Evans