small fix for __DIE__ handling

2011-04-12 16:28:17 +02:00
parent 693512722e
commit 171bae3ac6
1 changed files with 1 additions and 0 deletions
@@ -106,6 +106,7 @@ my $rsa = Crypt::OpenSSL::RSA->new_private_key($airport_pem) || die "RSA private
 my $listen;
 {
    eval {
+			local $SIG{'__DIE__'};
            $listen = new IO::Socket::INET6(Listen => 1,
                            Domain => AF_INET6,
                            LocalPort => 5000,