Rewrite Error message Address in use #485

"Can't create listen socket: Address already in use" is rewriten as "Can't create listen socket on port $port: Address already in use" Signed-off-by: Jose Luis Perez Diez <[email protected]>
preaction · Apr 7, 2016 · a520cbd · a520cbd
1 parent cadad73
commit a520cbd
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/Statocles/Command.pm b/lib/Statocles/Command.pm
@@ -170,7 +170,12 @@ sub main {
         }
 
         # Using start() instead of run() so we can stop() inside the tests
-        $daemon->start;
+        eval {$daemon->start};
+        if ($@) {
+           my $port = $opt{port} ||$ENV{MOJO_LISTEN} || 3000;
+           $@ =~ s/socket:/socket on port $port:/;
+           die $@;
+        }
 
         # Find the port we're listening on
         my $id = $daemon->acceptors->[0];