Anchor the regex properly
Dave Rolsky [Wed, 18 Mar 2009 17:20:38 +0000 (12:20 -0500)]
xt/pod_coverage.t

index 24e2c69..19539fa 100644 (file)
@@ -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(