Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Drop my debugging

  • Loading branch information...
commit 9ce82a17e306664b99f7a192e49c81afac0c3827 1 parent de0a828
Jonathan Steinert authored
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}});
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.