Don't display so many useless string in prod

This commit is contained in:
Némunaire 2015-01-18 09:29:50 +01:00 committed by Nemunaire
commit 2f4feb3082
2 changed files with 3 additions and 3 deletions

View file

@ -161,7 +161,7 @@ for my $f (readdir $dh)
$tmp_solution = my_crypt($sol, $filh) if ($filh); $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) if ($solution{$type} ne $tmp_solution)
{ {

View file

@ -425,7 +425,7 @@ sub create_socket
while(my $connection = $socket->accept) 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); threads->create(\&socket_run, $m, $connection);
} }
} }
@ -445,7 +445,7 @@ sub socket_run
print $connection "\n"; print $connection "\n";
$connection->flush; $connection->flush;
} }
say "Closing socket connection; stopping thread."; #say "Closing socket connection; stopping thread.";
close $connection; close $connection;
} }