From aea80e083a099b220851c3e48aba99223ef6feb4 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 2 Sep 2024 14:35:23 -0700 Subject: [PATCH] fix error in Perl::Tidy::Logger (see pr #163) --- lib/Perl/Tidy/Logger.pm | 2 +- local-docs/Release-Checklist.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index f08e6f0f..0db8e8d6 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -516,7 +516,7 @@ sub finish { my $routput_array = $self->{_output_array}; foreach my $line ( @{$routput_array} ) { $fh->print($line) } if ( $fh->can('close') - && !ref($log_file) ne '-' + && !ref($log_file) && $log_file ne '-' ) { $fh->close() diff --git a/local-docs/Release-Checklist.md b/local-docs/Release-Checklist.md index e9e9452f..c1ff82fa 100644 --- a/local-docs/Release-Checklist.md +++ b/local-docs/Release-Checklist.md @@ -29,7 +29,7 @@ - install the latest RPerl [currently RPerl-7.000000] - perl Makefile.PL, make, make test - should complete ok - Review code, especially any ## commented out sections and "FIXME's" -- run perlver on all modules to check minimum version; should be 5.8.0 +- run perlver on all modules to check minimum version; should be 5.8.1 - The first line in Tidy.pm has the required version of Perl - use perlbrew to do local checks and debugging on earlier versions of perl - perlbrew list [show installed versions] -- 2.39.5