Socket.pm: Fix error messages when crashing.

When the module crashed (died) for some reasons, the provided details where
empty.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/modules/Socket.pm b/modules/Socket.pm
index ea1c723f806cc6908e365bdd02192a05e46c8c77..cdcca0016d35fbb14c6c222cb08f43af32543e48 100644 (file)
--- a/modules/Socket.pm
+++ b/modules/Socket.pm
@@ -33,7 +33,7 @@ sub Server () {
        # If the path for the socketfile does not exist, try to
        # create it.
        unless (-d "$socketpath") {
        # If the path for the socketfile does not exist, try to
        # create it.
        unless (-d "$socketpath") {

-               mkdir("$socketpath") or die "Could not create $socketpath: $@\n";
+               mkdir("$socketpath") or die "Could not create $socketpath: $!\n";

        }
 
        # Delete an existing socket file.
        }
 
        # Delete an existing socket file.


@@ -47,7 +47,7 @@ sub Server () {
                Local => $socketfile,
                Listen => SOMAXCONN,
                Type => SOCK_STREAM,
                Local => $socketfile,
                Listen => SOMAXCONN,
                Type => SOCK_STREAM,

-       ) or die "Could not create socket: $@\n";
+       ) or die "Could not create socket: $!\n";

 
        # Return the server object.
        return $server;
 
        # Return the server object.
        return $server;