improved hash-bang warning filter

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 99dd2619a254a6c306b2127714b76a8e9980c801..c48abc1437bea4a5be777ac5a790c2f21ed0dbed 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -824,9 +824,9 @@ sub get_line {
                 )
                 && !$tokenizer_self->[_look_for_hash_bang_]
 
-                # Patch: be sure there is a slash after the #! before giving a
-                # warning
-                && $input_line =~ /^\#\!\s*\/.*perl\b/
+               # Patch: be sure there is either a slash or the word 'perl'
+               # after the #! before giving a warning.
+                && $input_line =~ /^\#\!\s*(\/|perl)/ 
               )
             {