projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use new CWMP::Parser
[perl-cwmp.git]
/
lib
/
CWMP
/
Store.pm
diff --git
a/lib/CWMP/Store.pm
b/lib/CWMP/Store.pm
index
da8164e
..
b90fd62
100644
(file)
--- 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 );
my $CPE_uid = $store->ID_to_uid( $state );
-It uses C<< DeviceI
D
.SerialNumber >> from C<Inform> message as unique ID
+It uses C<< DeviceI
d
.SerialNumber >> from C<Inform> message as unique ID
for each CPE.
=cut
for each CPE.
=cut
@@
-150,8
+150,8
@@
sub state_to_uid {
warn "#### state_to_uid",dump( $state ),$/ if $self->debug > 4;
warn "#### state_to_uid",dump( $state ),$/ if $self->debug > 4;
- my $uid = $state->{DeviceI
D
}->{SerialNumber} ||
- confess "no DeviceI
D
.SerialNumber in ",dump( $state );
+ my $uid = $state->{DeviceI
d
}->{SerialNumber} ||
+ confess "no DeviceI
d
.SerialNumber in ",dump( $state );
chomp($uid);
return $uid;
chomp($uid);
return $uid;