From: Jarkko Hietaniemi Date: Sat, 28 Apr 2001 14:23:15 +0000 (+0000) Subject: Test tweak for #9891. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72f792197f5d5f01dd5b3814e32e714ba8952f06;p=p5sagit%2Fp5-mst-13.2.git Test tweak for #9891. p4raw-id: //depot/perl@9893 --- 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;