Integrate:

[ 20272]
Slightly better failure output.
p4raw-link: @20272 on //depot/perl: dc3aa7ec6d72bea8c3f0e15719e6077419ed2c93

p4raw-id: //depot/maint-5.8/perl@20274
p4raw-integrated: from //depot/perl@20273 'merge in'
	ext/Devel/Peek/t/Peek.t (@20269..)

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 6f47869..05e363e 100644 (file)
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -31,7 +31,8 @@ sub do_test {
            print $pattern, "\n" if $DEBUG;
            my $dump = <IN>;
            print $dump, "\n"    if $DEBUG;
-           print "[$dump] vs [$pattern]\nnot " unless $dump =~ /\A$pattern\Z/ms;
+           print "got:\n[\n$dump\n]\nexpected:\n[\n$pattern\n]\nnot "
+               unless $dump =~ /\A$pattern\Z/ms;
            print "ok $_[0]\n";
            close(IN);
             return $1;