From 2853a8dbf610ad23f780be7c67f7987551bf9424 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 13 Jul 2005 20:07:04 +0000 Subject: [PATCH] ooops... segfault git-svn-id: svn://svn.open-ils.org/ILS/trunk@1172 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm index c58868281e..c88351eefb 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm @@ -4,8 +4,8 @@ our $VERSION = 1; use Digest::MD5 qw/md5_hex/; use OpenSRF::EX qw/:try/;; -use OpenSRF::Utils::Logger qw/:level/; use OpenSRF::Utils; +use OpenSRF::Utils::Logger qw/:level/; use OpenILS::Utils::Fieldmapper; my $log = 'OpenSRF::Utils::Logger'; @@ -97,7 +97,7 @@ sub cachable_wrapper { OpenSRF::Utils::Cache->new->put_cache( $cache_key => [@res[int($cache_page * $cache_args{cache_page_size}) .. int(($cache_page + 1) * $cache_args{cache_page_size}) ]] => - OpenSRF::Utils->interval_to_seconds( $cache_args{timeout} ); + OpenSRF::Utils->interval_to_seconds( $cache_args{timeout} ) ); } catch Error with { my $e = shift; -- 2.43.2