Whitespace fixes

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

View file

@ -1598,14 +1598,12 @@ 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