X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FVendor.pm;h=071d7cb41a3e1ab30404a01404d04380ce74b2de;hp=fdbdc1ede7259b5664511731d330f470a00f22e1;hb=a2544f1449c8b1f24a1f7ff0f8bcd79ab0eac977;hpb=5a4b3552e45171d6b5bbb478e06c107a2e9506ce;ds=sidebyside

diff --git a/lib/CWMP/Vendor.pm b/lib/CWMP/Vendor.pm
index fdbdc1e..071d7cb 100644
--- 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;