diff --git a/check.pl b/check.pl index bcd164f3..86194aa1 100755 --- a/check.pl +++ b/check.pl @@ -161,7 +161,7 @@ for my $f (readdir $dh) $tmp_solution = my_crypt($sol, $filh) if ($filh); - say STDERR "check $type: $solution{$type} vs $tmp_solution"; + #say STDERR "check $type: $solution{$type} vs $tmp_solution"; if ($solution{$type} ne $tmp_solution) { diff --git a/gen_site.pl b/gen_site.pl index 64334da4..4f58c888 100755 --- a/gen_site.pl +++ b/gen_site.pl @@ -425,7 +425,7 @@ sub create_socket while(my $connection = $socket->accept) { - say "New connexion, new thread ready for parsing actions!"; + #say "New connexion, new thread ready for parsing actions!"; threads->create(\&socket_run, $m, $connection); } } @@ -445,7 +445,7 @@ sub socket_run print $connection "\n"; $connection->flush; } - say "Closing socket connection; stopping thread."; + #say "Closing socket connection; stopping thread."; close $connection; }