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…
Reference in a new issue