where's the Perlbal bug tracker [PATCH]

[Ask Bjørn Hansen]

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;



-- 
http://www.askbjoernhansen.com/