From 24110a7693b1d1f2144e3c282a5f1ca329fc244d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:02:07 +0000
Subject: sync with upstream rpm.org: "Avoid emitting empty perl() module deps.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Test case from DOM.pm (perl-CSS-DOM 0.13):

use   # to keep CPANTS happy :-)
   strict;
use   # same here
   warnings;"
(Ville Skyttä , 2011-02-12)
---
 perl.req | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl.req')

diff --git a/perl.req b/perl.req
index 1b44ae1..fcba2fc 100755
--- a/perl.req
+++ b/perl.req
@@ -136,7 +136,7 @@ sub process_file {
 	(m/^(\s*)         # we hope the inclusion starts the line
 	 (require|use)\s+(?!\{)     # do not want 'do {' loops
 	 # quotes around name are always legal
-	 [\'\"]?([^\;\ \'\"\t]*)[\'\"]?[\t\;\ ]
+	 [\'\"]?([^\;\ \'\"\t]+)[\'\"]?[\t\;\ ]
 	 # the syntax for 'use' allows version requirements
 	 \s*([.0-9]*)
 	 /x)
-- 
cgit v1.2.1