From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Wed, 18 Mar 2009 17:20:38 +0000 (-0500)
Subject: Anchor the regex properly
X-Git-Tag: 0.78_02~12^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=896dacc0d50f21bece1f117690acea8dfa0e6dc5;p=gitmo%2FClass-MOP.git

Anchor the regex properly
---

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 24e2c69..19539fa 100644
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -98,7 +98,7 @@ for my $module ( sort @modules ) {
     my $trustme = [];
     if ( $trustme{$module} ) {
         my $methods = join '|', @{ $trustme{$module} };
-        $trustme = [qr/$methods/];
+        $trustme = [qr/^(?:$methods)$/];
     }
 
     pod_coverage_ok(