Logged In: NO

This prevents the debugger from working correktly with Tk.

Workarround: modify dbTemplate.txt as follows:

sub try (&@) {

# my ($try, $catch) = @_;

# eval { &$try };

# if ($@) {

# local $_ = $@;

# &$catch;

# }

# Replaced by following Code to protect $@ 9.5.2003 TDi

my ($try, $catch) = @_;

my $save = $@;

eval { &$try };

my $a = $@;

$@ = $save;

if ($a) {

local $_ = $a;

&$catch;

}

}

and

sub InternalEvalCode {

# return eval shift;

# replaced by following code to protect $@ 9.5.2003 TDi

my $save = $@;

my $r = (eval shift);

$@ = $save;

return $r;

}

This does the trick.

ThDiller@AOL.Com (Thomas Diller)