eureka!

it seems like i've sorted it out!

at first, I tried this:

#!/perl

@nomi = keys(%SIG);
for my $nomesig (@nomi) {$SIG{$nomesig} = 'IGNORE';}

but i found that this would be better:

#!/perl

sub handleruniversale
{
 print "\ngot a signal $_[0]\n";
 $SIG{$_[0]} = \&handleruniversale;
}

@nomi = keys(%SIG);
for my $nomesig (@nomi) {$SIG{$nomesig} = \&handleruniversale;}

so i discovered that i gotta put this on my script:

local $SIG{NUM13} = 'IGNORE';

what the hell is $SIG{NUM13} ???

see you guys!

Gaetano



Reply via email to