There might be a comment on a "use base" line when computing perl requires

(bug #24193).

(re-sync after the big svn loss)

1 files changed, 1 insertions, 0 deletions

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