where's the Perlbal bug tracker [PATCH]

[Brad Fitzpatrick]

On Mon, 6 Nov 2006, Ask Bjørn Hansen wrote:

>
> On Nov 6, 2006, at 11:34 AM, Jay Buffington wrote:
>
> > I wanted to report this bug before I forget it.
> >
> > telnet management tracker
> > type 'help'
> > type invalid command such as 'xxxxxx'
> > type help
> > xxxxxx now appears in the list of valid commands
>
> Here's a patch,
>
> Index: lib/Perlbal.pm
> ===================================================================
> --- 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 = *{"MANAGE_$basecmd"}{CODE}) {
> +    if (my $handler = $Perlbal::{"MANAGE_$basecmd"} && *{"MANAGE_$basecmd"}{CODE}) {
>           my $rv = eval { $handler->($mc); };
>           return $mc->err($@) if $@;
>           return $rv;

Thanks!

- Brad