From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 14 Jul 2023 14:19:44 +0000 (-0700)
Subject: avoid PerlCritic complaint
X-Git-Tag: 20230701.01~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=afb23be27ff61c76dd415a64614dd42a5d3c69b0;p=perltidy.git

avoid PerlCritic complaint
---

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;
         }
     }