Allowed for "our" in from front of $RPM_Provides.

CVS patchset: 7351
CVS date: 2004/06/29 01:05:27

diff --git a/scripts/perl.req b/scripts/perl.req
index 09614fd..31bbb8b 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -112,9 +112,10 @@ sub process_file {
     # Each keyword can appear multiple times.  Don't
     #  bother with datastructures to store these strings,
     #  if we need to print it print it now.
-    
-    if ( m/^\s*\$RPM_Requires\s*=\s*["'](.*)['"]/i) {
-      foreach $_ (split(/\s+/, $1)) {
+    #
+       # Again allow for "our".
+    if ( m/^\s*(our\s+)?\$RPM_Requires\s*=\s*["'](.*)['"]/i) {
+      foreach $_ (split(/\s+/, $2)) {
        print "$_\n";
       }
     }