Fwd: [PATCH] segmention fault. Use of uninitialized value in string eq at /usr/lib/perl5/SVN/Core.pm line 410 during global destruction.

This bug on svn 1.4.2 was reported to the Debian bug tracker,
http://bugs.debian.org/401340:

[Jari Aalto]
> Running following command
>
> perl -cw perl-program.pl
>
> Which uses the SVN:: package produces error:
>
> Use of uninitialized value in string eq at /usr/lib/perl5/SVN/Core.pm line 410 during global destruction.
> Segmentation fault

He provides a patch, but it looks to me as though it fixes a symptom
rather than the real bug.

> --- Core.pm 2006-12-02 20:29:37+02 1.1
> +++ Core.pm 2006-12-02 20:32:27+02 1.2
> @@ -407,6 +407,10 @@
> sub DESTROY {
> return if $globaldestroy;
> my $self = shift;
> +
> + defined $$self or return;
> + defined $SVN::_Core::current_pool or return;
> +
> if ($$self eq $SVN::_Core::current_pool) {
> $SVN::_Core::current_pool = pop @POOLSTACK;
> }