From 5035f5baef6787af89521cd9d62bcaf9a3946d5f Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 11 Mar 2023 18:16:58 -0800 Subject: [PATCH] fix git #115 (Destination incorrectly set to stdout when source is set). The fix proposed in git #115 is correct, but I decided to pass $source_stream as a new arg so that the input hash can remain unchanged for possible diagnostic use. --- lib/Perl/Tidy.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm index 63cfdb33..9695ea48 100644 --- a/lib/Perl/Tidy.pm +++ b/lib/Perl/Tidy.pm @@ -3,7 +3,7 @@ # # perltidy - a perl script indenter and formatter # -# Copyright (c) 2000-2022 by Steve Hancock +# Copyright (c) 2000-2023 by Steve Hancock # Distributed under the GPL license agreement; see file COPYING # # This program is free software; you can redistribute it and/or modify @@ -985,6 +985,7 @@ EOM \@Arg_files, # filename stuff... + $source_stream, $output_extension, $forbidden_file_extensions, $in_place_modify, @@ -1707,6 +1708,7 @@ sub process_all_files { $rinput_hash, $rfiles, + $source_stream, $output_extension, $forbidden_file_extensions, $in_place_modify, @@ -1737,7 +1739,6 @@ sub process_all_files { my $logfile_stream = $rinput_hash->{'logfile'}; my $teefile_stream = $rinput_hash->{'teefile'}; my $debugfile_stream = $rinput_hash->{'debugfile'}; - my $source_stream = $rinput_hash->{'source'}; my $stderr_stream = $rinput_hash->{'stderr'}; my $number_of_files = @{$rfiles}; @@ -5308,7 +5309,7 @@ sub show_version { print STDOUT <<"EOM"; This is perltidy, v$VERSION -Copyright 2000-2022, Steve Hancock +Copyright 2000-2023, Steve Hancock Perltidy is free software and may be copied under the terms of the GNU General Public License, which is included in the distribution files. -- 2.39.5