You've already forked pgbackrest
							
							
				mirror of
				https://github.com/pgbackrest/pgbackrest.git
				synced 2025-10-30 23:37:45 +02:00 
			
		
		
		
	Fixed syntax from d68b48d that was not backwards compatible to Perl 5.10.
				
					
				
			This commit is contained in:
		| @@ -560,7 +560,9 @@ sub required | ||||
|             { | ||||
|                 if (!defined(${$self->{oSectionRequired}}{$strChildPath})) | ||||
|                 { | ||||
|                     &log(INFO, ('    ' x (scalar(split('/', $strChildPath)) - 2)) . "        require section: ${strChildPath}"); | ||||
|                     my @stryChildPath = split('/', $strChildPath); | ||||
|  | ||||
|                     &log(INFO, ('    ' x (scalar(@stryChildPath) - 2)) . "        require section: ${strChildPath}"); | ||||
|  | ||||
|                     ${$self->{oSectionRequired}}{$strChildPath} = true; | ||||
|                 } | ||||
|   | ||||
		Reference in New Issue
	
	Block a user