Skip to content
Browse files

Drop my debugging

  • Loading branch information...
1 parent de0a828 commit 9ce82a17e306664b99f7a192e49c81afac0c3827 Jonathan Steinert committed
Showing with 0 additions and 5 deletions.
  1. +0 −5 lib/Perlbal/SocketSSL.pm
View
5 lib/Perlbal/SocketSSL.pm
@@ -148,16 +148,11 @@ sub close {
# really could use a safe way to know if this handle is being called from the post-
# event-loop cleanup code in Danga::Socket.
if (my $ds = ${*$self}->{_danga_socket}) {
- use Devel::StackTrace;
- print STDERR Devel::StackTrace->new->as_string;
${*$self}->{__close_args} = [ @_ ];
delete ${*$self}->{_danga_socket};
$ds->close('intercepted_ssl_close')
if $ds->sock;
} else {
- warn "Processing second call of SSL close\n";
- use Devel::StackTrace;
- print STDERR Devel::StackTrace->new->as_string;
return $self->SUPER::close(@{${*$self}->{__close_args}});
}
}

0 comments on commit 9ce82a1

Please sign in to comment.
Something went wrong with that request. Please try again.