From: Vincent Pit <vince@profvince.com>
Date: Sun, 27 Feb 2011 18:46:59 +0000 (+0100)
Subject: Be a little more lax in 16-recurse.t regexp test
X-Git-Tag: v0.05~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a28ee6cf947ee0cb989b129ecaf9fe4909d73886;p=perl%2Fmodules%2FB-RecDeparse.git

Be a little more lax in 16-recurse.t regexp test

This makes early 5.8 versions happier.
---

diff --git a/t/16-recurse.t b/t/16-recurse.t
index e0f7c03..32abbdf 100644
--- a/t/16-recurse.t
+++ b/t/16-recurse.t
@@ -76,7 +76,6 @@ for (@tests) {
 
   s/^\s*//mg, s/\s*$//mg for $body;
 
-  like $body, qr/^\{ [^{}]* $exp [^{}]* \}$/x,
-                                    "deparsing $desc at level $level correctly";
+  like $body, qr/$exp/, "deparsing $desc at level $level correctly";
  }
 }