You've already forked pgbackrest
mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-07-17 01:12:23 +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);
|
push @EXPORT, qw(CFGDEF_DEFAULT);
|
||||||
use constant CFGDEF_DEFAULT_LITERAL => 'default-literal';
|
use constant CFGDEF_DEFAULT_LITERAL => 'default-literal';
|
||||||
push @EXPORT, qw(CFGDEF_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
|
# Group options together to share common configuration
|
||||||
use constant CFGDEF_GROUP => 'group';
|
use constant CFGDEF_GROUP => 'group';
|
||||||
@ -248,28 +242,6 @@ my $rhConfigDefine = $rhConfig->{'option'};
|
|||||||
# delete($rhDefine->{&CFGDEF_DEFAULT});
|
# delete($rhDefine->{&CFGDEF_DEFAULT});
|
||||||
# $rhDefine->{&CFGDEF_DEFAULT} = false;
|
# $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
|
# # Fix all options
|
||||||
@ -441,13 +413,6 @@ foreach my $strKey (sort(keys(%{$rhConfigDefine})))
|
|||||||
dclone($rhConfigDefine->{$rhConfigDefine->{$strKey}{&CFGDEF_COMMAND}}{&CFGDEF_COMMAND});
|
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 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}))
|
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;
|
$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});
|
delete($rhConfigDefineIndex->{$strKey});
|
||||||
|
Reference in New Issue
Block a user