diff -Naurp usermin-1.150.orig/setup.sh usermin-1.150/setup.sh
--- usermin-1.150.orig/setup.sh	2005-09-03 16:19:50.000000000 -0700
+++ usermin-1.150/setup.sh	2005-09-03 16:21:01.000000000 -0700
@@ -342,12 +342,12 @@ else
 		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
 
 	# Ask the user if SSL should be used
 	if [ "$ssl" = "" ]; then