be stricter in when finding packages in files

This will prevent us from finding a package in this line of code: my $x = "package Foo;"; This manifested in the wild in PRBRENAN/Math-Algebra-Symbols-1.21.tar.gz
andk · Apr 25, 2024 · 0daf9c3 · 0daf9c3
1 parent a0a7c5e
commit 0daf9c3
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/lib/PAUSE/pmfile.pm b/lib/PAUSE/pmfile.pm
@@ -225,15 +225,16 @@ sub packages_per_pmfile {
 
         if (
             $pline =~ m{
-                      (.*)
-                      (?<![*\$\\@%&]) # no sigils
-                      \bpackage\s+
+                      ^
+                      [\s\{;]*
+                      package
+                      \s+
                       ([\w\:\']+)
                       \s*
                       (?: $ | [\}\;] | \{ | \s+($version::STRICT) )
                     }x) {
-            $pkg = $2;
-            $strict_version = $3;
+            $pkg = $1;
+            $strict_version = $2;
             if ($pkg eq "DB"){
                 # XXX if pumpkin and perl make him comaintainer! I
                 # think I always made the pumpkins comaint on DB