avoid PerlCritic complaint

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a8ca592d16c211fe833b3976f0a9ea7d83d7f2f9..76f5480837294a593258469b9a7149c52c21b75a 100644 (file)
--- 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;
         }
     }