diff options
-rwxr-xr-x | gmi.pl | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -7,7 +7,7 @@ use warnings; use 5.010; #use diagnostics; -our $VERSION = 'v0.18.2'; +our $VERSION = 'v0.18.3'; # Modules use IO::Socket::SSL; # CPAN @@ -138,14 +138,8 @@ while (my @ready = $sel->can_read) { my $fh = shift @ready; $cl = $fh->accept; - #my ($fh_sockhost, $fh_port, $clhost, $clport) = get_fh_data($fh, $cl); get_fh_data($fh, $cl, \%data); - ### $fh_sockhost - ### $fh_port - ### $clhost - ### $clport - maybe_fork() and next; ### before start_SSL @@ -208,9 +202,7 @@ while (my @ready = $sel->can_read) { goto CLOSE; }; $data{cl_path} = $url->{path}; - ### $data ### $url - # ## $path $data{cl_vhost} = $url->{host}; |