[Patch] Mon::Client -- don't leak info

[Ian Holsman]

this patch fixes the case where you have multiple services in a single 
watch, and the first one has something defined (eg exclude hosts) which 
the following don't.

--- /Library/Perl/5.8.1/Mon/Client.pm   Fri Jan 12 03:42:17 2001
+++ Mon/Client.pm       Tue Nov 11 11:06:56 2003
@@ -452,7 +452,7 @@
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%OPSTAT $VERSION);
-$VERSION = "0.11";
+$VERSION = "0.12";
 my ($STAT_FAIL, $STAT_OK, $STAT_COLDSTART, $STAT_WARMSTART, 
$STAT_LINKDOWN,
 $STAT_UNKNOWN, $STAT_TIMEOUT, $STAT_UNTESTED, $STAT_DEPEND, 
$STAT_WARN) = (0..9);
@@ -1908,7 +1908,7 @@

 sub _list_opstatus {
     my ($self, $cmd) = @_;
-    my (%op, $o, %opstatus);
+    my ($o, %opstatus);
     my ($group, $service, $last, $timer, $summary);
     undef $self->{"ERROR"};
@@ -1929,6 +1929,7 @@
     }
     foreach $o (@op) {
+        my %op;
        foreach my $w (quotewords ('\s+', 0, $o)) {
            my ($var, $val) = split (/=/, $w, 2);
            $op{$var} = _un_esc_str ($val);
_______________________________________________
mon mailing list
[EMAIL PROTECTED]
http://linux.kernel.org/mailman/listinfo/mon