sync with upstream rpm.org:

"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."
(Panu Matilainen, 2007-08-28)

1 files changed, 5 insertions, 1 deletions

diff --git a/perl.prov b/perl.prov
index 7ac8c16..1668d29 100755
--- a/perl.prov
+++ b/perl.prov
@@ -139,7 +139,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});
       }
 	}
     }