diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-27 16:20:54 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-27 16:20:54 +0000 |
commit | adff66843c1ece83ea0a3030a3f80afd647e35b9 (patch) | |
tree | a8a54c50383a06fc2202629c56fc305f4d7d94e2 | |
parent | 78bb12ca6cc006470bc4f223c0018d5b73345e00 (diff) | |
download | perl-adff66843c1ece83ea0a3030a3f80afd647e35b9.tar.gz |
Test tweak for #9886.
p4raw-id: //depot/perl@9888
-rw-r--r-- | t/lib/b-deparse.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t index e0d3546d22..1f9bdb75b0 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; |