From: erickson Date: Thu, 31 Jul 2008 16:28:01 +0000 (+0000) Subject: added explicit DESTROY methods to each package so AUTOLOAD won't attempt to use it X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d24a0010027bd19d8bea460f482260eeb6504098;p=Evergreen.git added explicit DESTROY methods to each package so AUTOLOAD won't attempt to use it git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@10222 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ZClient.pm index 137d1c5670..df3667e683 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 }; our $conn_class = 'ZOOM::Connection'; @@ -59,6 +61,7 @@ sub AUTOLOAD { #------------------------------------------------------------------------------- package OpenILS::Utils::ZClient::ResultSet; +sub DESTROY {}; our $AUTOLOAD; sub new { @@ -96,6 +99,7 @@ sub AUTOLOAD { #------------------------------------------------------------------------------- package OpenILS::Utils::ZClient::Record; +sub DESTROY {}; our $AUTOLOAD; sub new {