Remove all those subroutine redefined warnings.

[dbsrgits/SQL-Translator.git] / t / 01load.t

diff --git a/t/01load.t b/t/01load.t
index 64e14ac..5381e10 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -17,7 +17,7 @@ unless (open MANIFH, "MANIFEST") {
 
 while (<MANIFH>) {
     chomp;
-    if (s/\.pm$//) {
+    if (s,^lib/,, && s/\.pm$//) {
         s,/,::,g;
         push @perlmods, $_
     }