--- webmin-1.170/setup.sh.orig	2004-12-31 14:40:55.956541085 -0800
+++ webmin-1.170/setup.sh	2004-12-31 14:41:23.431018153 -0800
@@ -356,12 +356,12 @@
 		echo ""
 		exit 12
 	fi
-	$perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname("tcp")); setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); bind(FOO, pack_sockaddr_in($ARGV[0], INADDR_ANY)) || exit(1); exit(0);' $port
-	if [ $? != "0" ]; then
-		echo "ERROR: TCP port $port is already in use by another program"
-		echo ""
-		exit 13
-	fi
+	#$perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname("tcp")); setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); bind(FOO, pack_sockaddr_in($ARGV[0], INADDR_ANY)) || exit(1); exit(0);' $port
+	#if [ $? != "0" ]; then
+	#	echo "ERROR: TCP port $port is already in use by another program"
+	#	echo ""
+	#	exit 13
+	#fi
 	printf "Login name (default admin): "
 	if [ "$login" = "" ]; then
 		read login