Fix perl version provide for packages defined in multiple blocks (#rhbz214496)

Successive definitions of the same package shouldn't stomp on previously
found $VERSION, this is how perl itself behaves.
Patch from James Ralston.

1 files changed, 5 insertions, 1 deletions

diff --git a/scripts/perl.prov b/scripts/perl.prov
index 8db73f29e..103488cf0 100755
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -130,7 +130,11 @@ sub process_file {
       if ($package eq 'main') {
         undef $package;
       } else {
-        $require{$package}=undef;
+        # If $package already exists in the $require hash, it means
+        # the package definition is broken up over multiple blocks.
+        # In that case, don't stomp a previous $VERSION we might have
+        # found.  (See BZ#214496.)
+        $require{$package}=undef unless (exists $require{$package});
       }
     }