where's the Perlbal bug tracker [PATCH]
Brad Fitzpatrick
brad at danga.com
Mon Nov 6 20:43:44 UTC 2006
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
More information about the perlbal
mailing list