fix warning
git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@210
836a5e1a-633d-0410-964b-
294494ad4392
my $uid = $self->store->state_to_uid( $state );
my $uid = $self->store->state_to_uid( $state );
- my $to_uid = join(" ", "to $uid",
+ my $to_uid = join(" ", grep { defined($_) } "to $uid",
# board
$state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.HardwareVersion'},
# version
# board
$state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.HardwareVersion'},
# version