From 12041f73e2a4f4c91c068b7f43f7ff52f24c72f5 Mon Sep 17 00:00:00 2001
From: David Steele <david@pgmasters.net>
Date: Sun, 12 Feb 2017 21:09:34 -0500
Subject: [PATCH] Fixed syntax from d68b48d that was not backwards compatible
 to Perl 5.10.

---
 doc/lib/BackRestDoc/Common/DocRender.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/doc/lib/BackRestDoc/Common/DocRender.pm b/doc/lib/BackRestDoc/Common/DocRender.pm
index 5c7b584c4..000b38104 100644
--- a/doc/lib/BackRestDoc/Common/DocRender.pm
+++ b/doc/lib/BackRestDoc/Common/DocRender.pm
@@ -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;
                 }