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' );