In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b16d1a7702bec709aa8fb4fd0df358d31875bbc6?hp=2171640d622fec8c4600653b1cf9907d24dfc169>
- Log ----------------------------------------------------------------- commit b16d1a7702bec709aa8fb4fd0df358d31875bbc6 Merge: 1d6574a 2171640 Author: James E Keenan <[email protected]> Date: Wed Feb 27 21:28:59 2013 -0500 Merge branch 'blead' of [email protected]:/perl into blead commit 1d6574a40b1239d596352342869235e7f33eaae8 Author: James E Keenan <[email protected]> Date: Wed Feb 27 20:19:54 2013 -0500 Loosen the passing requirement for a regex. RT #116961: Olivier Menguéreported many test failures when installing Data-Dumper v2.43 on pre-5.16.0 versions of Perl. This patch addresses only one of those issues by relaxing what is expected in a pattern match: '42' vs. 42. It doesn't matter for the test in question because what we are testing is the "annotation" of array elements with their indices. M dist/Data-Dumper/t/indent.t ----------------------------------------------------------------------- Summary of changes: dist/Data-Dumper/t/indent.t | 10 +--------- 1 files changed, 1 insertions(+), 9 deletions(-) diff --git a/dist/Data-Dumper/t/indent.t b/dist/Data-Dumper/t/indent.t index dd736be..90a3be0 100644 --- a/dist/Data-Dumper/t/indent.t +++ b/dist/Data-Dumper/t/indent.t @@ -94,17 +94,9 @@ $dumpstr{ar_indent_3} = _dumptostr($dumper); isnt($dumpstr{ar_indent_2}, $dumpstr{ar_indent_3}, "On arrays, Indent(2) is different from Indent(3)"); like($dumpstr{ar_indent_3}, - qr/\#0.+'foo'.+\#1.+'42'/s, + qr/\#0.+'foo'.+\#1.+42/s, "Indent(3) annotates array elements with their indices" ); is(scalar(split("\n" => $dumpstr{ar_indent_2})) + 2, scalar(split("\n" => $dumpstr{ar_indent_3})), "Indent(3) runs 2 lines longer than Indent(2)"); - -__END__ -is($dumpstr{noindent}, $dumpstr{indent_0}, - "absence of Indent is same as Indent(0)"); -isnt($dumpstr{noindent}, $dumpstr{indent_1}, - "absence of Indent is different from Indent(1)"); -print STDERR $dumpstr{indent_0}; -print STDERR $dumpstr{ar_indent_3}; -- Perl5 Master Repository
