From 00b4b3a68a6e88f11b958c54101d2aea735645e4 Mon Sep 17 00:00:00 2001
From: Panu Matilainen <pmatilai@redhat.com>
Date: Sat, 21 Jul 2007 15:48:03 +0300
Subject: [PATCH] =?UTF-8?q?Support=20fully=20qualified=20$Foo::Bar::VERSIO?=
 =?UTF-8?q?N=20expressions=20(rhbz#249135).=20Patch=20from=20Ville=20Skytt?=
 =?UTF-8?q?=C3=A4.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 scripts/perl.prov | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/perl.prov b/scripts/perl.prov
index 328496ded..8db73f29e 100755
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -144,11 +144,12 @@ sub process_file {
     #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.9 $, 10;
     #CGI/Apache.pm:$VERSION = (qw$Revision: 1.9 $)[1];
     #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
+    #General.pm:$Config::General::VERSION = 2.33;
     # 
     # or with the new "our" pragma you could (read will) see:
     #
     #    our $VERSION = '1.00'
-    if (($package) && (m/^\s*(our\s+)?\$VERSION\s*=\s+/)) {
+    if (($package) && (m/^\s*(our\s+)?\$(\Q$package\E::)?VERSION\s*=\s+/)) {
 
       # first see if the version string contains the string
       # '$Revision' this often causes bizzare strings and is the most