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

[perl-cwmp.git] / lib / CWMP / Session.pm

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