r234@brr: dpavlin | 2007-11-18 18:18:38 +0100

 fix warning

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@210 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 527914e..3cd9a78 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -161,7 +161,7 @@ sub process_request {
 
        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