diff --git a/CPAN/AnyEvent/Handle.pm b/lib/AnyEvent/Handle.pm similarity index 99% rename from CPAN/AnyEvent/Handle.pm rename to lib/AnyEvent/Handle.pm index 58cc24ca1e5..4af8409743d 100644 --- a/CPAN/AnyEvent/Handle.pm +++ b/lib/AnyEvent/Handle.pm @@ -1770,7 +1770,7 @@ sub _tls_error { return $self->_error ($!, 1) if $err == Net::SSLeay::ERROR_SYSCALL (); - my $err =Net::SSLeay::ERR_error_string (Net::SSLeay::ERR_get_error ()); + $err =Net::SSLeay::ERR_error_string (Net::SSLeay::ERR_get_error ()); # reduce error string to look less scary $err =~ s/^error:[0-9a-fA-F]{8}:[^:]+:([^:]+):/\L$1: /;