-# $Id: Pod.pm,v 1.17 2006-07-21 11:25:43 mike Exp $
+# $Id: Pod.pm,v 1.19 2006-09-26 08:52:21 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");
}
}
}
+ last if @conn == 0;
my $i0 = ZOOM::event(\@conn);
last if $i0 == 0;
my $i = 1+$idxmap[$i0-1];