aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl.req1
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