summaryrefslogtreecommitdiff
path: root/gmi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'gmi.pl')
-rwxr-xr-xgmi.pl10
1 files changed, 1 insertions, 9 deletions
diff --git a/gmi.pl b/gmi.pl
index d8e88a9..a7610a1 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -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};