From fa84904c04d887e5148c7b7b833877612ae88a48 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 13 Sep 2020 19:05:32 -0700 Subject: [PATCH] improved hash-bang warning filter --- lib/Perl/Tidy/Tokenizer.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 99dd2619..c48abc14 100644 --- 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)/ ) { -- 2.39.5