Whitespace fixes

This commit is contained in:
Richard Hansen 2024-08-22 02:29:42 -04:00
parent 3dafdbf604
commit c2db690efb

View file

@ -1595,17 +1595,15 @@ sub write_recap {
## read_recap($file) - called before reading the .conf ## read_recap($file) - called before reading the .conf
###################################################################### ######################################################################
sub read_recap { sub read_recap {
my $file = shift; my $file = shift;
my $config = shift; my $config = shift;
my $globals = {}; my $globals = {};
%{$config} = (); %{$config} = ();
if (-e $file) { if (-e $file) {
my %saved = %opt; my %saved = %opt;
%opt = (); %opt = ();
$saved_recap = _read_config($config, $globals, "##\\s*$program-$version\\s*", $file); $saved_recap = _read_config($config, $globals, "##\\s*$program-$version\\s*", $file);
%opt = %saved; %opt = %saved;
for my $h (keys(%recap)) { for my $h (keys(%recap)) {
next if !exists($config->{$h}); next if !exists($config->{$h});
# TODO: Why is this limited to this set of variables? Why not copy every recap var # TODO: Why is this limited to this set of variables? Why not copy every recap var
@ -1846,7 +1844,7 @@ sub _read_config {
%locals = (%globals, %locals); %locals = (%globals, %locals);
## override login and password if specified the old way. ## override login and password if specified the old way.
$locals{'login'} = $login if defined $login; $locals{'login'} = $login if defined $login;
$locals{'password'} = $password if defined $password; $locals{'password'} = $password if defined $password;
## allow {host} to be a comma separated list of hosts ## allow {host} to be a comma separated list of hosts