---- rpm-4.0/scripts/perl.req Wed Jul 5 14:26:37 2000
-+++ rpm-4.0.new/scripts/perl.req Wed Nov 15 21:31:03 2000
-@@ -82,6 +82,53 @@
+--- rpm-4.0/scripts/perl.req Mon Dec 16 11:36:15 2000
++++ rpm-4.0.mis/scripts/perl.req Mon Dec 16 11:46:28 2000
+@@ -61,6 +61,11 @@
+ }
+ }
+
++foreach (sort keys %provide) {
++ delete $require{$_};
++}
++delete $require{the}; # don't count "use the sth" as perl module
++
+
+ foreach $module (sort keys %require) {
+ if (length($require{$module}) == 0) {
+@@ -82,6 +86,53 @@
exit 0;
sub process_file {
-@@ -90,6 +137,8 @@
+@@ -90,6 +141,8 @@
open(FILE, "<$file")||
die("$0: Could not open file: '$file' : $!\n");
while (<FILE>) {
-@@ -209,6 +258,10 @@
+@@ -112,6 +165,10 @@
+ last;
+ }
+
++ if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
++ $provide{$1} = 1;
++ }
++
+ # Each keyword can appear multiple times. Don't
+ # bother with datastructures to store these strings,
+ # if we need to print it print it now.
+@@ -209,6 +266,10 @@
# if the module name starts in a dot it is not a module name.
($module =~ m/^\./) && next;