implement rest of Name/Value unroll, fix Inform

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

diff --git a/lib/CWMP/Vendor.pm b/lib/CWMP/Vendor.pm
index 3d7a31b..fdbdc1e 100644 (file)
--- a/lib/CWMP/Vendor.pm
+++ b/lib/CWMP/Vendor.pm
@@ -39,7 +39,7 @@ sub new {
        return $self;
 }
 
-my $cpe_faulty;
+our $cpe_faulty;
 
 my $serial2ip = {
        'CP0636JT3SH' => '10.0.0.1',
@@ -59,6 +59,7 @@ sub state2serial {
        my $state = shift;
 
        my $serial = $state->{DeviceID}->{SerialNumber} || die "no DeviceID.SerialNumber in ",dump($state);
+       chomp($serial);
        my $ip =
                $state->{Parameter}->{'.ExternalIPAddress'} ||
                $state->{Parameter}->{