]> git.donarmstrong.com Git - perltidy.git/commitdiff
projects / perltidy.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a73c3d9)
fix c236
authorSteve Hancock <perltidy@users.sourceforge.net>
Tue, 25 Jul 2023 03:12:18 +0000 (20:12 -0700)
committerSteve Hancock <perltidy@users.sourceforge.net>
Tue, 25 Jul 2023 03:12:18 +0000 (20:12 -0700)
lib/Perl/Tidy.pm patch | blob | history
lib/Perl/Tidy/HtmlWriter.pm patch | blob | history
lib/Perl/Tidy/LineSource.pm patch | blob | history
lib/Perl/Tidy/Tokenizer.pm patch | blob | history

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index c0caee43369f67ac39e3047650ddaa6849247362..47c547139398f3bcbe3615fff0e3e8c159fc58ae 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1513,7 +1513,7 @@ sub get_decoded_string_buffer {
     my $line_separator = $self->[_line_separator_default_];
     my $count          = 0;
 
-    while ( my $line = $fh->getline() ) {
+    while ( defined( my $line = $fh->getline() ) ) {
         $buf .= $line;
 
         # Find and change the line separator if requested with -ple
@@ -5023,7 +5023,7 @@ sub dump_config_file {
     print STDOUT "${$rconfig_file_chatter}";
     if ($fh) {
         print STDOUT "# Dump of file: '$config_file'\n";
-        while ( my $line = $fh->getline() ) { print STDOUT $line }
+        while ( defined( my $line = $fh->getline() ) ) { print STDOUT $line }
         my $ok = eval { $fh->close(); 1 };
         if ( !$ok && DEVEL_MODE ) {
             Fault("Could not close file handle(): $EVAL_ERROR\n");
@@ -5046,7 +5046,7 @@ sub read_config_file {
     my $name = undef;
     my $line_no;
     my $opening_brace_line;
-    while ( my $line = $fh->getline() ) {
+    while ( defined( my $line = $fh->getline() ) ) {
         $line_no++;
         chomp $line;
         ( $line, $death_message ) =
diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 073182dd8e79529e057bdd2491b23d6bfe491651..476dafde76bbc46d74e931d4455ad560eb9f6e14 100644 (file)
--- a/lib/Perl/Tidy/HtmlWriter.pm
+++ b/lib/Perl/Tidy/HtmlWriter.pm
@@ -791,7 +791,7 @@ sub pod_to_html {
         my $date = localtime;
         $timestamp = "on $date";
     }
-    while ( my $line = $fh_tmp->getline() ) {
+    while ( defined( my $line = $fh_tmp->getline() ) ) {
 
         if ( $line =~ /^\s*<html>\s*$/i ) {
             ##my $date = localtime;
diff --git a/lib/Perl/Tidy/LineSource.pm b/lib/Perl/Tidy/LineSource.pm
index 1688c4d87e1aa9113f061a3841073247da3e200a..64ba88d73cca6c0d4ec39c7fde352b2628622f0f 100644 (file)
--- a/lib/Perl/Tidy/LineSource.pm
+++ b/lib/Perl/Tidy/LineSource.pm
@@ -92,7 +92,7 @@ sub get_line {
 
         # patch to read raw mac files under unix, dos
         # see if the first line has embedded \r's
-        if ( $line && !$self->{_started} ) {
+        if ( defined($line) && !$self->{_started} ) {
             if ( $line =~ /[\015][^\015\012]/ ) {
 
                 # found one -- break the line up and store in a buffer
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index a692273e813c8b5960531109c01ded29850e4ed1..aa87d4c108f40dae9239b4f3968b20308dd90127 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -991,7 +991,7 @@ sub get_line {
     my $input_line = $self->get_next_line();
     $self->[_line_of_text_] = $input_line;
 
-    return unless ($input_line);
+    return unless ( defined($input_line) );
 
     my $input_line_number = ++$self->[_last_line_number_];
 
Debian packaging of perltidy (a perl script formatter)