native-install needs updating

[Pavel Roskin <pavel_roskin@geocities.com>]

Hello!

Where can I get the current versions of "native-install", "dpkg-hurd" and
"native-install" script?
The scripts on alpha.gnu.org have some defects:

1) "cross-install" doesn't reflect the current naming and placement of
Perl (if I understand correctly). perl-5.004 is a fake. perl-5.005 cannot
be found.

2) inetutils is now net/inetutils, not base/inetutils

3) "dpkg-hurd" still contains "anti-RedHat" constructs. The patch is
attached. I sent it already, but it hasn't been applied. I hope, not
because of political reasons.

Pavel Roskin

--- dpkg-hurd.v0	Tue May  4 14:42:00 1999
+++ dpkg-hurd	Mon Aug  9 20:12:06 1999
@@ -65,7 +65,8 @@
 
 # [ "$#" == 2 ] || err "exactly two arguments, an action and a *.deb file or package name is required"
 
-if [ "${1}" == "-i" -o "${1}" == "--install" -o "${1}" == "--unpack" ] ; then
+case x"${1}" in
+x-i | x--install | x--unpack)
 
 	action="${1}"
 	file="${2}"
@@ -121,9 +122,11 @@
 	rm -fR temp_build
 	exit 0
 
-fi
+	;;
+esac
 
-if [ "${1}" == "-r" -o "${1}" == "--remove" -o "${1}" == "--purge" ] ; then
+case x"${1}" in
+x-r | x--remove | x--purge)
 
 	action="${1}"
 	name="${2}"
@@ -148,13 +151,16 @@
 	  fi
 	done
 	exit 0
+
+	;;	
+esac
 	
-fi
-	
-if [ "${1}" == "-s" -o "${1}" == "-S" -o "${1}" == "-l" -o "${1}" == "-L" ] ; then
+case x"${1}" in
+x-s | x-S | x-l | x-S)
 	dpkg --root=. --admindir=${vld} "${@}"
 	exit 0
-fi
+	;;
+esac
 
 
 # dpkg-hurd - end of file.