From 0daf9c31224d127ae38354d7f7ea644db92bf7b5 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Thu, 7 May 2015 22:29:02 -0400
Subject: [PATCH] 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
---
 lib/PAUSE/pmfile.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/PAUSE/pmfile.pm b/lib/PAUSE/pmfile.pm
index a637e04d6..eeb0310a6 100644
--- 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