From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 15 Jan 2020 00:57:54 +0000 (-0800)
Subject: Improved error check for internal hash-bang
X-Git-Tag: 20200619~144
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=098888a02908d24150d2484154c4a292c4e0f283;p=perltidy.git

Improved error check for internal hash-bang
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 9718a97c..0c34201b 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -687,7 +687,7 @@ sub get_line {
             write_logfile_entry("Exiting POD section\n");
             $tokenizer_self->{_in_pod} = 0;
         }
-        if ( $input_line =~ /^\#\!.*perl\b/ ) {
+        if ( $input_line =~ /^\#\!.*perl\b/ && !$tokenizer_self->{_in_end} ) {
             warning(
                 "Hash-bang in pod can cause older versions of perl to fail! \n"
             );