From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 21 Sep 2020 19:13:42 +0000 (-0700)
Subject: fixed false warning on deprecated empty here target
X-Git-Tag: 20201001~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e83abefc6f6674d6c3fdead69a090d51dbb13221;p=perltidy.git

fixed false warning on deprecated empty here target
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 4fbb54d6..a55970f7 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -2443,8 +2443,8 @@ sub prepare_for_a_new_file {
                         complain("Long here-target: '$truncated' ...\n");
                     }
                     elsif ( !$here_doc_target ) {
-                        warning(
-                            'Use of bare << to mean <<"" is deprecated\n');
+                        warning('Use of bare << to mean <<"" is deprecated\n')
+                          unless ($here_quote_character);
                     }
                     elsif ( $here_doc_target !~ /^[A-Z_]\w+$/ ) {
                         complain(