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;
|
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") || '';
|
$details->{$field} = $som->valueof("$path/$field") || '';
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue