--- subversion-1.2.3/subversion/bindings/swig/perl/native/Core.pm.orig	2005-08-16 20:43:24 +0000

+++ subversion-1.2.3/subversion/bindings/swig/perl/native/Core.pm	2005-11-26 16:10:18 +0000

@@ -407,6 +407,7 @@

 sub DESTROY {

     return if $globaldestroy;

     my $self = shift;

+    return unless ($$self && $SVN::_Core::current_pool);

     if ($$self eq $SVN::_Core::current_pool) {

 	$SVN::_Core::current_pool = pop @POOLSTACK;

     }