1
0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-10-30 23:37:45 +02:00

Compensate for numeric auto conversion in newer Perls.

This commit is contained in:
David Steele
2021-01-19 12:07:05 -05:00
parent d9fae09848
commit 4e56948128

View File

@@ -2151,6 +2151,10 @@ sub restoreCompare
$self->manifestDefault($oExpectedManifestRef);
# Newer Perls will change this variable to a number whenever a numeric comparison is performed. It is expected to be a string so
# make sure it is one before saving.
$oExpectedManifestRef->{&MANIFEST_SECTION_BACKUP_DB}{&MANIFEST_KEY_DB_VERSION} .= '';
storageTest()->put("${strTestPath}/actual.manifest", iniRender($oActualManifest->{oContent}));
storageTest()->put("${strTestPath}/expected.manifest", iniRender($oExpectedManifestRef));