1
0
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:
David Steele
2015-06-21 12:06:13 -04:00
parent 49f1a3e481
commit 61dfeca3c1
20 changed files with 216 additions and 58 deletions

View File

@ -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};
}