]> git.vpit.fr Git - perl/modules/B-RecDeparse.git/commitdiff
Be a little more lax in 16-recurse.t regexp test
authorVincent Pit <vince@profvince.com>
Sun, 27 Feb 2011 18:46:59 +0000 (19:46 +0100)
committerVincent Pit <vince@profvince.com>
Sun, 27 Feb 2011 18:47:03 +0000 (19:47 +0100)
This makes early 5.8 versions happier.

t/16-recurse.t

index e0f7c0326d852f10dabbee68262ec1508bafd5bb..32abbdf6e2aa97570cc5fd2f5755078a6f69d209 100644 (file)
@@ -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";
  }
 }