Skip to content

Commit

Permalink
Fixed syntax in doc code that was not compatible with Perl 5.2X.
Browse files Browse the repository at this point in the history
  • Loading branch information
disco-stu authored and dwsteele committed May 26, 2016
1 parent 28f1c92 commit b19143b
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 5 deletions.
10 changes: 5 additions & 5 deletions doc/lib/BackRestDoc/Custom/DocCustomRelease.pm
Expand Up @@ -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;
Expand Down Expand Up @@ -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);
Expand Down
1 change: 1 addition & 0 deletions doc/xml/release.xml
Expand Up @@ -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>

Expand Down

0 comments on commit b19143b

Please sign in to comment.