- permit args to be hidden within %%__find_{requires,provides}.

- a couple more perl.{prov,req} fiddles.

CVS patchset: 5289
CVS date: 2002/02/01 15:19:44

2 files changed, 7 insertions, 3 deletions

diff --git a/scripts/perl.prov b/scripts/perl.prov
index 8235539e0..1bdfa095e 100755
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -100,6 +100,7 @@ sub process_file {
 
     if (m/^=(cut)/) {
       $incomment = 0;
+      $inover = 0;
     }
     
     if (m/^=(over)/) {
@@ -135,9 +136,9 @@ sub process_file {
 
     # here are examples of VERSION lines from the perl distribution
 
-    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/);
-    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.6 $, 10;
-    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.6 $)[1];
+    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/);
+    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.7 $, 10;
+    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.7 $)[1];
     #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
 
     if ( 
diff --git a/scripts/perl.req b/scripts/perl.req
index 77787fc42..df3a1649b 100755
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -142,6 +142,9 @@ sub process_file {
    
       ($module =~ m/\$/) && next;
 
+      # skip if the phrase was "use of" -- shows up in gimp-perl, et al
+      next if $module eq 'of';
+
       # if the module ends in a comma we probaly caught some
       # documentation of the form 'check stuff,\n do stuff, clean
       # stuff.' there are several of these in the perl distribution