X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FStore.pm;fp=lib%2FCWMP%2FStore.pm;h=b90fd62e2a0c6f5a577d66924edac9caf29e6e04;hp=da8164ec4739edb87247268e2131422681b432d1;hb=a2544f1449c8b1f24a1f7ff0f8bcd79ab0eac977;hpb=5a4b3552e45171d6b5bbb478e06c107a2e9506ce

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index da8164e..b90fd62 100644
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -139,7 +139,7 @@ sub all_uids {
 
   my $CPE_uid = $store->ID_to_uid( $state );
 
-It uses C<< DeviceID.SerialNumber >> from C<Inform> message as unique ID
+It uses C<< DeviceId.SerialNumber >> from C<Inform> message as unique ID
 for each CPE.
 
 =cut
@@ -150,8 +150,8 @@ sub state_to_uid {
 
 	warn "#### state_to_uid",dump( $state ),$/ if $self->debug > 4;
 
-	my $uid = $state->{DeviceID}->{SerialNumber} ||
-		confess "no DeviceID.SerialNumber in ",dump( $state );
+	my $uid = $state->{DeviceId}->{SerialNumber} ||
+		confess "no DeviceId.SerialNumber in ",dump( $state );
 	chomp($uid);
 
 	return $uid;