From bc600c50e38ad8b3ab4385c2c5bbb8073024fbd7 Mon Sep 17 00:00:00 2001
From: joden <devnull@localhost>
Date: Tue, 29 Jun 2004 01:05:27 +0000
Subject: [PATCH] Allowed for "our" in from front of $RPM_Provides.

CVS patchset: 7351
CVS date: 2004/06/29 01:05:27
---
 scripts/perl.req | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/scripts/perl.req b/scripts/perl.req
index 09614fd..31bbb8b 100755
--- 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";
       }
     }
-- 
2.7.4