shutdown added to client code to avoid hangs

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1508 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem.pl

@@ -294,6 +294,7 @@ if(int(@ARGV) == 2) {
   $server = IO::Socket::INET->new(PeerAddr => $addr);
   die "Can't connect to $addr\n" if(!$server);
   syswrite($server, "$ARGV[1] ; quit\n");
+  shutdown($server, 1);
   while(sysread($server, $buf, 256) > 0) {
     print($buf);
   }