Fix warning in Perl 5.14.x, hopefully.
This commit is contained in:
		
							parent
							
								
									eceb9d2d50
								
							
						
					
					
						commit
						737aeb3740
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		|  | @ -242,7 +242,7 @@ sub getBasic { | |||
| 
 | ||||
|     return unless $som; | ||||
| 
 | ||||
|     for my $field qw( Ack Timestamp CorrelationID Version Build ) { | ||||
|     for my $field qw/ Ack Timestamp CorrelationID Version Build / { | ||||
|         $details->{$field} = $som->valueof("$path/$field") || ''; | ||||
|     } | ||||
| 
 | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Dave Lambley
						Dave Lambley