From 4f7733e401e2e9d8f95382c6e4b6794919db645c Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 13 Sep 2020 07:38:14 -0700 Subject: [PATCH] prevent unnecessary hash-bang warning message --- lib/Perl/Tidy/Tokenizer.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 894156b5..f2a92e56 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -814,7 +814,7 @@ sub get_line { } if ( - ( $input_line_number > 1 ) + $input_line_number > 1 # leave any hash bang in a BEGIN block alone # i.e. see 'debugger-duck_type.t' @@ -822,7 +822,11 @@ sub get_line { $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN' ) - && ( !$tokenizer_self->[_look_for_hash_bang_] ) + && !$tokenizer_self->[_look_for_hash_bang_] + + # Patch: be sure there is a slash after the #! before giving a + # warning + && $input_line =~ /^\#\!\s*\/.*perl\b/ ) { -- 2.39.5