From 7c8d054c1b596cd6fdfeec102516ead7b8fb3036 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Sun, 24 Jan 2010 13:28:44 +0200
Subject: [PATCH] Do not emit perl(#) dependencies for multiline use/require
 with comments.

For example:

    use # comment goes here
        Foo::Bar;
---
 scripts/perl.req | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/perl.req b/scripts/perl.req
index 4c08dcd..28ff782 100755
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -146,7 +146,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)
-- 
2.7.4