r266@brr: dpavlin | 2007-11-25 19:50:35 +0100

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

diff --git a/lib/CWMP/Store/HASH.pm b/lib/CWMP/Store/HASH.pm
index d79466c..87bec30 100644 (file)
--- a/lib/CWMP/Store/HASH.pm
+++ b/lib/CWMP/Store/HASH.pm
@@ -55,7 +55,7 @@ sub open {
 
 =head2 update_uid_state
 
-  $store->update_uid_state( $uid, $state );
+  my $new_state = $store->update_uid_state( $uid, $state );
 
 =cut
 
@@ -72,6 +72,7 @@ sub update_uid_state {
 
        $self->save_hash( $file, $combined ) || die "can't write $file: $!";
 
+       return $combined;
 }
 
 =head2 get_state