You've already forked pgbackrest
mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-07-15 01:04:37 +02:00
Remove code made obsolete by f3f0c64a
.
The code in DocExecute.pm appears to have been obsolete for a long time.
This commit is contained in:
@ -142,12 +142,6 @@ use constant CFGDEF_DEFAULT => 'default'
|
||||
push @EXPORT, qw(CFGDEF_DEFAULT);
|
||||
use constant CFGDEF_DEFAULT_LITERAL => 'default-literal';
|
||||
push @EXPORT, qw(CFGDEF_DEFAULT_LITERAL);
|
||||
use constant CFGDEF_DEPEND => 'depend';
|
||||
push @EXPORT, qw(CFGDEF_DEPEND);
|
||||
use constant CFGDEF_DEPEND_OPTION => 'option';
|
||||
push @EXPORT, qw(CFGDEF_DEPEND_OPTION);
|
||||
use constant CFGDEF_DEPEND_LIST => 'list';
|
||||
push @EXPORT, qw(CFGDEF_DEPEND_LIST);
|
||||
|
||||
# Group options together to share common configuration
|
||||
use constant CFGDEF_GROUP => 'group';
|
||||
@ -248,28 +242,6 @@ my $rhConfigDefine = $rhConfig->{'option'};
|
||||
# delete($rhDefine->{&CFGDEF_DEFAULT});
|
||||
# $rhDefine->{&CFGDEF_DEFAULT} = false;
|
||||
# }
|
||||
#
|
||||
# # If a depend list value is an empty string set it to false. This must be a mangled boolean since empty strings are not valid
|
||||
# # depend list values.
|
||||
# if (ref($rhDefine->{&CFGDEF_DEPEND}) && defined($rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST}))
|
||||
# {
|
||||
# my @stryList;
|
||||
#
|
||||
# for (my $iDependListIdx = 0; $iDependListIdx < @{$rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST}}; $iDependListIdx++)
|
||||
# {
|
||||
# if ($rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST}[$iDependListIdx] eq '')
|
||||
# {
|
||||
# push(@stryList, false);
|
||||
# }
|
||||
# else
|
||||
# {
|
||||
# push(@stryList, $rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST}[$iDependListIdx]);
|
||||
# }
|
||||
# }
|
||||
#
|
||||
# delete($rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST});
|
||||
# $rhDefine->{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_LIST} = \@stryList;
|
||||
# }
|
||||
# }
|
||||
#
|
||||
# # Fix all options
|
||||
@ -441,13 +413,6 @@ foreach my $strKey (sort(keys(%{$rhConfigDefine})))
|
||||
dclone($rhConfigDefine->{$rhConfigDefine->{$strKey}{&CFGDEF_COMMAND}}{&CFGDEF_COMMAND});
|
||||
}
|
||||
|
||||
# If the required section is a scalar then copy the section from the referenced option
|
||||
if (defined($rhConfigDefine->{$strKey}{&CFGDEF_DEPEND}) && !ref($rhConfigDefine->{$strKey}{&CFGDEF_DEPEND}))
|
||||
{
|
||||
$rhConfigDefine->{$strKey}{&CFGDEF_DEPEND} =
|
||||
dclone($rhConfigDefine->{$rhConfigDefine->{$strKey}{&CFGDEF_DEPEND}}{&CFGDEF_DEPEND});
|
||||
}
|
||||
|
||||
# If the allow list is a scalar then copy the list from the referenced option
|
||||
if (defined($rhConfigDefine->{$strKey}{&CFGDEF_ALLOW_LIST}) && !ref($rhConfigDefine->{$strKey}{&CFGDEF_ALLOW_LIST}))
|
||||
{
|
||||
|
@ -60,16 +60,6 @@ foreach my $strKey (sort(keys(%{$rhConfigDefineIndex})))
|
||||
{
|
||||
$rhConfigDefineIndex->{$strKeyNew}{&CFGDEF_REQUIRED} = false;
|
||||
}
|
||||
|
||||
if (defined($rhConfigDefineIndex->{$strKeyNew}{&CFGDEF_DEPEND}) &&
|
||||
defined($rhConfigDefineIndex->{$strKeyNew}{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_OPTION}))
|
||||
{
|
||||
$rhConfigDefineIndex->{$strKeyNew}{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_OPTION} =
|
||||
"${strPrefix}${iIndex}" .
|
||||
substr(
|
||||
$rhConfigDefineIndex->{$strKeyNew}{&CFGDEF_DEPEND}{&CFGDEF_DEPEND_OPTION},
|
||||
length($strPrefix));
|
||||
}
|
||||
}
|
||||
|
||||
delete($rhConfigDefineIndex->{$strKey});
|
||||
|
Reference in New Issue
Block a user