Just as said multi times before, I'm not a PERL programmer (and hopefully I'm 
not wrong) but

['DoPenaltyMakeTraps','Do Heavy Used Invalid Addresses as PenaltyBox Trap 
Addresses','0:disabled|1:make traps and use them|2:just make traps|2:use these 
traps',\&listbox,2,'(.*)',undef, 

in combination with

sub pbTrapAdd {
    return if !$DoPenaltyMakeTraps && !$UseTrapToCollect;
    return if !$DoPenaltyMakeTraps == 3;
    my ( $fh, $address ) = @_;
......

is a bug.

The list is wrong it should be 

"...|3:use these traps" and the code should be

sub pbTrapAdd {
    return if !$DoPenaltyMakeTraps && !$UseTrapToCollect;
    return if !$DoPenaltyMakeTraps < 3;
tk


------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image 
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
Assp-test mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-test

Reply via email to