fix first GetParameterNames

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

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index 6d9a784..da8164e 100644 (file)
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -109,6 +109,19 @@ sub get_state {
 
 }
 
+
+=head2 set_state
+
+  $store->set_state( $uid, $state );
+
+=cut
+
+sub set_state {
+       my $self = shift;
+       return $self->current_store->set_state( @_ );
+}
+
+
 =head2 all_uids
 
   my @cpe = $store->all_uids;
@@ -139,6 +152,7 @@ sub state_to_uid {
 
        my $uid = $state->{DeviceID}->{SerialNumber} ||
                confess "no DeviceID.SerialNumber in ",dump( $state );
+       chomp($uid);
 
        return $uid;
 }