From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 3 Mar 2005 18:02:59 +0000 (+0000)
Subject: should fix perist bug with expriable slot creation
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a320498f40b747b4b91b1899a08d34f05fe3dcaa;p=opensrf%2Fbjwebb.git

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
--- 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);