From a320498f40b747b4b91b1899a08d34f05fe3dcaa Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 3 Mar 2005 18:02:59 +0000
Subject: [PATCH] should fix perist bug with expriable slot creation

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@164 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application/Persist.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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