database/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-09-02 12:41:14 +03:00
Code Activity

Fixed syntax from d68b48d that was not backwards compatible to Perl 5.10.

Browse Source
This commit is contained in:
David Steele
2017-02-12 21:09:34 -05:00
parent d68b48d19b
commit 12041f73e2
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
doc/lib/BackRestDoc/Common/DocRender.pm
View File

@@ -560,7 +560,9 @@ sub required
{
if (!defined(${$self->{oSectionRequired}}{$strChildPath}))
{
&log(INFO, (' ' x (scalar(split('/', $strChildPath)) - 2)) . " require section: ${strChildPath}");
my @stryChildPath = split('/', $strChildPath);
&log(INFO, (' ' x (scalar(@stryChildPath) - 2)) . " require section: ${strChildPath}");
${$self->{oSectionRequired}}{$strChildPath} = true;
}