Also remove package if file didn't match regexp

it's pretty hard not to match the regexp, but just in case
rwstauner · Jun 12, 2012 · 810f9b1 · 810f9b1
1 parent d7f7e3c
commit 810f9b1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Dist/Metadata.pm b/lib/Dist/Metadata.pm
@@ -235,8 +235,9 @@ sub determine_packages {
 
       # capture file basename (without the extension)
       my ($base) = ($packages->{$pack}->{file} =~ m!([^/]+)\.pm(?:\.PL)?$!);
+      # remove if file didn't match regexp or package doesn't match basename
       delete $packages->{$pack}
-        if $pack !~ m{\b\Q$base\E$};
+        if !$base || $pack !~ m{\b\Q$base\E$};
     }
   }