You've already forked pgbackrest
mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-07-17 01:12:23 +02:00
Fixed issue #108: Incompatibility with Perl 5.10.1
This commit is contained in:
@ -965,7 +965,7 @@ sub BackRestTestCommon_ConfigRemap
|
||||
# Rewrite remap section
|
||||
delete($oConfig{"${strStanza}:restore:tablespace-map"});
|
||||
|
||||
foreach my $strRemap (sort(keys $oRemapHashRef))
|
||||
foreach my $strRemap (sort(keys(%$oRemapHashRef)))
|
||||
{
|
||||
my $strRemapPath = ${$oRemapHashRef}{$strRemap};
|
||||
|
||||
@ -1028,7 +1028,7 @@ sub BackRestTestCommon_ConfigRecovery
|
||||
# Rewrite remap section
|
||||
delete($oConfig{"${strStanza}:restore:recovery-setting"});
|
||||
|
||||
foreach my $strOption (sort(keys $oRecoveryHashRef))
|
||||
foreach my $strOption (sort(keys(%$oRecoveryHashRef)))
|
||||
{
|
||||
$oConfig{"${strStanza}:restore:recovery-setting"}{$strOption} = ${$oRecoveryHashRef}{$strOption};
|
||||
}
|
||||
|
Reference in New Issue
Block a user