should fix perist bug with expriable slot creation

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@164 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application/Persist.pm b/src/perlmods/OpenSRF/Application/Persist.pm
index 82bc7b8..e829829 100644 (file)
--- a/src/perlmods/OpenSRF/Application/Persist.pm
+++ b/src/perlmods/OpenSRF/Application/Persist.pm
@@ -116,7 +116,7 @@ sub create_expirable_store {
        my $time = shift || $default_expire_time;
 
        try {
-               $name = $self->method_lookup( 'opensrf.persist.slot.create' )->run( $name );
+               ($name) = $self->method_lookup( 'opensrf.persist.slot.create' )->run( $name );
                return undef unless $name;
 
                $self->method_lookup('opensrf.persist.slot.set_expire')->run($name, $time);