You've already forked pgbackrest
							
							
				mirror of
				https://github.com/pgbackrest/pgbackrest.git
				synced 2025-10-30 23:37:45 +02:00 
			
		
		
		
	Silence some perl critic warnings.
* Variables::RequireNegativeIndice * Variables::ProhibitUnusedVariables * Variables::ProhibitAugmentedAssignmentInDeclaration * Modules::ProhibitConditionalUseStatements
This commit is contained in:
		
				
					committed by
					
						 David Steele
						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