--- 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;
     }