From b19143b6eaf0a04f921c791a7e62e2aa4f367547 Mon Sep 17 00:00:00 2001
From: Adrian Vondendriesch <adrian.vondendriesch@credativ.de>
Date: Thu, 26 May 2016 14:07:29 -0400
Subject: [PATCH] Fixed syntax in doc code that was not compatible with Perl
 5.2X.

---
 doc/lib/BackRestDoc/Custom/DocCustomRelease.pm | 10 +++++-----
 doc/xml/release.xml                            |  1 +
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/doc/lib/BackRestDoc/Custom/DocCustomRelease.pm b/doc/lib/BackRestDoc/Custom/DocCustomRelease.pm
index e97a6b47c1..b99d6d8149 100644
--- a/doc/lib/BackRestDoc/Custom/DocCustomRelease.pm
+++ b/doc/lib/BackRestDoc/Custom/DocCustomRelease.pm
@@ -120,13 +120,13 @@ sub contributorTextGet
             foreach my $oContributor ($oReleaseItem->nodeGet(XML_RELEASE_ITEM_CONTRIBUTOR_LIST)->
                                       nodeList($strContributorType, false))
             {
-                push $stryItemContributor, $oContributor->paramGet(XML_PARAM_ID);
+                push @{$stryItemContributor}, $oContributor->paramGet(XML_PARAM_ID);
             }
         }
 
         if (@$stryItemContributor == 0 && $strContributorType eq XML_RELEASE_ITEM_CONTRIBUTOR)
         {
-            push $stryItemContributor, $self->{strContributorDefault}
+            push @{$stryItemContributor}, $self->{strContributorDefault}
         }
 
         $$hItemContributorType{$strContributorType} = $stryItemContributor;
@@ -372,10 +372,10 @@ sub docGet
 
                             if (defined($strContributorText))
                             {
-                                push($oReleaseItemText->{oDoc}{children}, ' (');
-                                push($oReleaseItemText->{oDoc}{children},
+                                push(@{$oReleaseItemText->{oDoc}{children}}, ' (');
+                                push(@{$oReleaseItemText->{oDoc}{children}},
                                      {name => 'i', value => $strContributorText});
-                                push($oReleaseItemText->{oDoc}{children}, ')');
+                                push(@{$oReleaseItemText->{oDoc}{children}}, ')');
                             }
 
                             $oList->nodeAdd('list-item')->textSet($oReleaseItemText);
diff --git a/doc/xml/release.xml b/doc/xml/release.xml
index aa80aaa743..6aaa5ac765 100644
--- a/doc/xml/release.xml
+++ b/doc/xml/release.xml
@@ -103,6 +103,7 @@
                     <release-item>
                         <release-item-contributor-list>
                             <release-item-contributor id="berg.christoph"/>
+                            <release-item-contributor id="vondendriesch.adrian"/>
                             <release-item-reviewer id="steele.david"/>
                         </release-item-contributor-list>