[Moscow.pm] Net::Patricia и handling croak

[Eugene Kaltashkin]

Спасибо. разобрался.
$SIG{__DIE__} оказывается можно игнорировать только внутри конкретного
блока программы, в глобальном контексте нельзя, что несомненно грустно
:( пример текста внизу.

use Carp(croak);

eval {
local $SIG{__DIE__} = $SIG{DIE} = sub { my $sig = shift; print "Dying
Signal Arrived\n $sig"; };
for($i=0;$i<1000000;$i++) { if ($i > 999997) { croak "Cycle Dying\n"; } }
};
$SIG{__DIE__} = 'DEFAULT';
print "Exiting from Cycle\n";
die "aaaaaaaa dying\n";

-- 
Best Regards
ZHECKA-RIPN