| Subject: | Test fail because of missing dot in exception |
When using Perl 5.14 this test fails:
# Failed test 'Lost sequence Future raises warning'
# at t/21debug.t line 52.
# 'Future=HASH(0x937e210) was constructed at t/21debug.t line 49 and was lost near t/21debug.t line 50 before it was ready.
# Future=HASH(0x9470058) (constructed at t/21debug.t line 48) lost a sequence Future at t/21debug.t line 50
# '
# doesn't match '(?-xism:^Future=\S+ was constructed at t\/21debug\.t line 49 and was lost near t\/21debug\.t line (?:50|49) before it was ready\.
# Future=\S+ \(constructed at t\/21debug\.t line 48\) lost a sequence Future at t\/21debug\.t line 50\.$)'
# Looks like you failed 1 test of 11.
t/21debug.t ...................
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/11 subtests
This is easily fixes by changing the regexp in 21debug.t at line 52 like so:
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' );