From b91fe531b483d09ca47fd9435de3cde20ace1858 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 31 Jul 2008 16:28:30 +0000 Subject: [PATCH] added explicit DESTROY methods to each package so AUTOLOAD won't attempt to use it git-svn-id: svn://svn.open-ils.org/ILS/trunk@10223 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm index 6fa48a5cd5..10080de1a3 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm @@ -1,6 +1,8 @@ package OpenILS::Utils::ZClient; use UNIVERSAL::require; +sub DESTROY {}; + use overload 'bool' => sub { return $_[0]->{connection} ? 1 : 0 }; sub EVENT_NONE { 0 } @@ -85,6 +87,7 @@ sub AUTOLOAD { #------------------------------------------------------------------------------- package OpenILS::Utils::ZClient::ResultSet; +sub DESTROY {}; our $AUTOLOAD; sub new { @@ -128,6 +131,7 @@ sub AUTOLOAD { #------------------------------------------------------------------------------- package OpenILS::Utils::ZClient::Record; +sub DESTROY {}; our $AUTOLOAD; sub new { -- 2.11.0