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

[perl/modules/B-RecDeparse.git] / t / 16-recurse.t

diff --git a/t/16-recurse.t b/t/16-recurse.t
index e0f7c0326d852f10dabbee68262ec1508bafd5bb..32abbdf6e2aa97570cc5fd2f5755078a6f69d209 100644 (file)
--- 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";
  }
 }