From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 27 Apr 2001 16:20:54 +0000 (+0000)
Subject: Test tweak for #9886.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=adff66843c1ece83ea0a3030a3f80afd647e35b9;p=p5sagit%2Fp5-mst-13.2.git

Test tweak for #9886.

p4raw-id: //depot/perl@9888
---

diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t
index e0d3546..1f9bdb7 100644
--- a/t/lib/b-deparse.t
+++ b/t/lib/b-deparse.t
@@ -124,8 +124,8 @@ my $foo = $deparse->coderef2text(sub { { 234; }});
 print "not " unless $foo =~ /{.*{.*234;.*}.*}/sm;
 ok;
 $foo = $deparse->coderef2text(sub { { 234; } continue { 123; } });
-unless ($foo =~ /{\s*{\s*234\s*}\s*continue\s*{\s*123;\s*}/sm) {
-  print "# [$foo]\n\# vs expected\n# [sub { { 234 } continue { 123; } }]\n";
+unless ($foo =~ /{\s*{\s*234;\s*}\s*continue\s*{\s*123;\s*}/sm) {
+  print "# [$foo]\n\# vs expected\n# [sub { { 234; } continue { 123; } }]\n";
   print "not ";
 }
 ok;