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

Silence some perl critic warnings.

* Variables::RequireNegativeIndice
* Variables::ProhibitUnusedVariables
* Variables::ProhibitAugmentedAssignmentInDeclaration
* Modules::ProhibitConditionalUseStatements
This commit is contained in:
Cynthia Shang
2017-04-10 17:23:39 -04:00
committed by David Steele
parent 8546571461
commit 21a000d002
10 changed files with 21 additions and 29 deletions

View File

@@ -318,7 +318,7 @@ sub execute
}
else
{
$strOutput .= (defined($strOutput) ? "\n" : '') . $stryOutput[@stryOutput - 1];
$strOutput .= (defined($strOutput) ? "\n" : '') . $stryOutput[-1];
}
}
}

View File

@@ -644,7 +644,7 @@ sub processTag
if (!defined($strTag))
{
use Data::Dumper;
require Data::Dumper;
confess Dumper($oTag);
}

View File

@@ -275,7 +275,6 @@ sub sectionProcess
my $oSectionBodyElement = $oSectionElement->addNew(HTML_DIV, "section-body");
# Process each child
my $oSectionBodyExe;
my $iSectionNo = 1;
foreach my $oChild ($oSection->nodeList())