-# $Id: Pod.pm,v 1.17 2006-07-21 11:25:43 mike Exp $
+# $Id: Pod.pm,v 1.20 2006-09-27 12:40:44 mike Exp $
package ZOOM::Pod;
use ZOOM;
BEGIN {
- # Just register the name
+ # Just register the names: this doesn't turn the levels on
ZOOM::Log::mask_str("pod");
ZOOM::Log::mask_str("pod_unhandled");
}
my($event, $sub) = @_;
my $old = $this->{callback}->{$event};
- $this->{callback}->{$event} = $sub
- if defined $sub;
+ $this->{callback}->{$event} = $sub;
return $old;
}
}
}
+ last if @conn == 0;
my $i0 = ZOOM::event(\@conn);
last if $i0 == 0;
my $i = 1+$idxmap[$i0-1];