From fc41baeb28af25f1d1f05a9ee8e27dd57a42f093 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Jul 2007 12:22:49 +0000
Subject: There might be a comment on a "use base" line when computing perl
 requires (bug #24193).

(re-sync after the big svn loss)
---
 perl.req | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.req')

diff --git a/perl.req b/perl.req
index 6e9a7ee..2a4a320 100755
--- a/perl.req
+++ b/perl.req
@@ -184,6 +184,7 @@ sub process_file {
 	  $module =~ s/qw\((.*)\)\s*;/$1/;
 	  $module =~ s/qw(.)(.*)\1\s*;/$2/;
 	  $module =~ s/\s*;$//;
+	  $module =~ s/#.*//;
 	  $usebase = 1;
       }
       # sometimes people do use POSIX qw(foo), or use POSIX(qw(foo)) etc
-- 
cgit v1.2.1