From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 18 Nov 2007 17:18:54 +0000 (+0000)
Subject:  r234@brr:  dpavlin | 2007-11-18 18:18:38 +0100
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=754104b1f0c2fed597f95045801bc15601d3aba8

 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
--- 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