Improved error check for internal hash-bang

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 9718a97c2222219d5d069061832ea8e1358624b8..0c34201b3263575e1e0f4a4704dfc3626daf33d8 100644 (file)
--- 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"
             );