| Brad Fitzpatrick 2006-11-06, 7:11 pm |
|
On Mon, 6 Nov 2006, Ask Bj=F8rn Hansen wrote:
>
> On Nov 6, 2006, at 11:34 AM, Jay Buffington wrote:
>
>
> Here's a patch,
>
> Index: lib/Perlbal.pm
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
3D=3D=3D=3D=3D
> --- lib/Perlbal.pm (revision 598)
> +++ lib/Perlbal.pm (working copy)
> @@ -262,7 +262,7 @@
> if ($basecmd eq "crash") { die "Intentional crash." };
> no strict 'refs';
> - if (my $handler =3D *{"MANAGE_$basecmd"}{CODE}) {
> + if (my $handler =3D $Perlbal::{"MANAGE_$basecmd"} && *{"MANAGE_$base=
cmd"}{CODE}) {
> my $rv =3D eval { $handler->($mc); };
> return $mc->err($@) if $@;
> return $rv;
Thanks!
- Brad
|