Slightly better failure output.

p4raw-id: //depot/perl@20272

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 77c468d..8d7189e 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;