You've already forked pgbackrest
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:
committed by
David Steele
parent
8546571461
commit
21a000d002
@@ -318,7 +318,7 @@ sub execute
|
||||
}
|
||||
else
|
||||
{
|
||||
$strOutput .= (defined($strOutput) ? "\n" : '') . $stryOutput[@stryOutput - 1];
|
||||
$strOutput .= (defined($strOutput) ? "\n" : '') . $stryOutput[-1];
|
||||
}
|
||||
}
|
||||
}
|
||||
|
@@ -644,7 +644,7 @@ sub processTag
|
||||
|
||||
if (!defined($strTag))
|
||||
{
|
||||
use Data::Dumper;
|
||||
require Data::Dumper;
|
||||
confess Dumper($oTag);
|
||||
}
|
||||
|
||||
|
@@ -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())
|
||||
|
Reference in New Issue
Block a user