From e83abefc6f6674d6c3fdead69a090d51dbb13221 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 21 Sep 2020 12:13:42 -0700
Subject: [PATCH] fixed false warning on deprecated empty here target

---
 lib/Perl/Tidy/Tokenizer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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(
-- 
2.39.5