Do not emit perl(#) dependencies for multiline use/require with comments.
authorVille Skyttä <ville.skytta@iki.fi>
Sun, 24 Jan 2010 11:28:44 +0000 (13:28 +0200)
committerPanu Matilainen <pmatilai@redhat.com>
Mon, 25 Jan 2010 10:29:13 +0000 (12:29 +0200)
For example:

    use # comment goes here
        Foo::Bar;

scripts/perl.req

index 4c08dcd..28ff782 100755 (executable)
@@ -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)