use new CWMP::Parser

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

diff --git a/lib/CWMP/Vendor.pm b/lib/CWMP/Vendor.pm
index fdbdc1e..071d7cb 100644 (file)
--- a/lib/CWMP/Vendor.pm
+++ b/lib/CWMP/Vendor.pm
@@ -58,7 +58,7 @@ my ( $last_ip, $last_serial );
 sub state2serial {
        my $state = shift;
 
-       my $serial = $state->{DeviceID}->{SerialNumber} || die "no DeviceID.SerialNumber in ",dump($state);
+       my $serial = $state->{DeviceId}->{SerialNumber} || die "no DeviceId.SerialNumber in ",dump($state);
        chomp($serial);
        my $ip =
                $state->{Parameter}->{'.ExternalIPAddress'} ||
@@ -84,6 +84,11 @@ Install all custom triggers
 =cut
 
 sub add_triggers {
+}
+
+1;
+
+__END__
 
        warn __PACKAGE__, "->add_triggers\n" if $debug;