From 72f792197f5d5f01dd5b3814e32e714ba8952f06 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 28 Apr 2001 14:23:15 +0000
Subject: [PATCH] Test tweak for #9891.

p4raw-id: //depot/perl@9893
---
 t/lib/b-deparse.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t
index 1f9bdb7..24ff327 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*do\s*{\s*234;\s*};\s*}\s*continue\s*{\s*123;\s*}\s*}/sm) {
+  print "# [$foo]\n\# vs expected\n# [{ { do { 234; }; } continue { 123; } }]\n";
   print "not ";
 }
 ok;
-- 
2.7.4