From afb23be27ff61c76dd415a64614dd42a5d3c69b0 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 14 Jul 2023 07:19:44 -0700
Subject: [PATCH] avoid PerlCritic complaint

---
 lib/Perl/Tidy.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a8ca592d..76f54808 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1530,7 +1530,7 @@ sub get_decoded_string_buffer {
     if ( $count == 1 && $buf =~ /[\015][^\015\012]/ ) {
         my @lines = map { $_ . "\n" } split /\015/, $buf;
         if ( @lines > 1 ) {
-            $buf = join "", @lines;
+            $buf = join EMPTY_STRING, @lines;
         }
     }
 
-- 
2.39.5