Fix warning in Perl 5.14.x, hopefully.

This commit is contained in:
Dave Lambley 2011-11-11 17:30:10 +00:00
parent eceb9d2d50
commit 737aeb3740

View file

@ -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") || '';
}