summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjake <jake@jakes-mail.top>2022-09-22 13:40:39 -0400
committerjake <jake@jakes-mail.top>2022-09-22 13:40:39 -0400
commitc91dfeb17e33a56163c8970b6a86b313243f1025 (patch)
tree032df094f346582c1aee2709c666e47d567c56b1
parent60f0f0d97f58f62b842caf6397a757d2b59237a1 (diff)
remove useless comments
-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};