From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 5 Oct 2023 14:39:54 +0000 (-0700)
Subject: add note on zero-length input stream
X-Git-Tag: 20230912.03~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e9ac84a613a1549c235e91ddcd6d947b2741288b;p=perltidy.git

add note on zero-length input stream
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index c4d68aed..c1fc82ac 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1562,6 +1562,17 @@ sub get_decoded_string_buffer {
     my $rinput_string = stream_slurp($input_file);
     return unless ( defined($rinput_string) );
 
+    # Note that we could have a zero size input string here if it
+    # arrived from standard input or from a string ref. For example
+    # 'perltidy <null.pl'.  If we issue a warning and stop, as we would
+    # for a zero length file ('perltidy null.pl'), then we could cause
+    # a call to the perltidy module to mis-behave as a filter. So we will
+    # process this as any other file in this case without any warning (c286).
+    if ( !length( ${$rinput_string} ) ) {
+
+        # zero length, but keep going
+    }
+
     $rinput_string = $self->set_line_separator($rinput_string);
 
     my $encoding_in              = EMPTY_STRING;