Initial import of FreeBSD lang ports into the NetBSD

packages system.

5 files changed, 128 insertions, 0 deletions

diff --git a/lang/perl5/patches/patch-aa b/lang/perl5/patches/patch-aa
new file mode 100644
index 00000000000..7beb8b7ec2e
--- /dev/null
+++ b/lang/perl5/patches/patch-aa
@@ -0,0 +1,19 @@
+--- Configure.ORIG	Tue May 13 19:20:34 1997
++++ Configure	Fri May 23 11:33:40 1997
+@@ -91,11 +91,11 @@
+ *)	CDPATH='' ;;
+ esac
+ 
+-: Sanity checks
+-if test ! -t 0; then
+-	echo "Say 'sh $me', not 'sh <$me'"
+-	exit 1
+-fi
++: Sanity checks Disabled for FreeBSD port building - MarkM - May 1997
++: if test ! -t 0; : then
++:	echo "Say 'sh $me', not 'sh <$me'"
++:	exit 1
++: fi
+ 
+ : Test and see if we are running under ksh, either blatantly or in disguise.
+ if (PATH=.; alias -x) >/dev/null 2>&1; then
diff --git a/lang/perl5/patches/patch-ab b/lang/perl5/patches/patch-ab
new file mode 100644
index 00000000000..e713b0655e9
--- /dev/null
+++ b/lang/perl5/patches/patch-ab
@@ -0,0 +1,29 @@
+--- installperl.ORIG	Mon May 12 05:22:27 1997
++++ installperl	Fri May 23 11:40:27 1997
+@@ -93,7 +93,7 @@
+ safe_unlink("$installbin/sperl$ver$exe_ext");
+ if ($d_dosuid) {
+     copy("suidperl$exe_ext", "$installbin/sperl$ver$exe_ext");
+-    chmod(04711, "$installbin/sperl$ver$exe_ext");
++    chmod(04111, "$installbin/sperl$ver$exe_ext");
+ }
+ 
+ # Install library files.
+@@ -156,11 +156,12 @@
+ 	      (-l $usrbinperl) &&
+ 	      ((readlink $usrbinperl) eq $expinstperl));
+     }
+-    if ((! $mainperl_is_instperl) &&
+-	(yn("Many scripts expect perl to be installed as $usrbinperl.\n" . 
+-	     "Do you wish to have $usrbinperl be the same as\n" .
+-	     "$expinstperl? [y] ")))
+-    {	
++#    if ((! $mainperl_is_instperl) &&
++#	(yn("Many scripts expect perl to be installed as $usrbinperl.\n" . 
++#	     "Do you wish to have $usrbinperl be the same as\n" .
++#	     "$expinstperl? [y] ")))
++#    {	
++    if ('') {  # MarkM - May 1997. Take the NO route always.
+ 	unlink($usrbinperl);
+ 	eval { CORE::link $instperl, $usrbinperl } ||
+ 	    eval { symlink $expinstperl, $usrbinperl } ||
diff --git a/lang/perl5/patches/patch-ac b/lang/perl5/patches/patch-ac
new file mode 100644
index 00000000000..b97fb42c955
--- /dev/null
+++ b/lang/perl5/patches/patch-ac
@@ -0,0 +1,29 @@
+--- hints/freebsd.sh.orig	Wed Apr 23 16:01:37 1997
++++ hints/freebsd.sh	Tue Jun  3 14:29:50 1997
+@@ -63,6 +63,7 @@
+ 	d_setreuid='define'
+ 	d_setegid='undef'
+ 	d_seteuid='undef'
++	d_dosuid='define'
+ 	test -r ./broken-db.msg && . ./broken-db.msg
+ 	;;
+ #
+@@ -76,12 +77,18 @@
+ 	d_setreuid='define'
+ 	d_setegid='undef'
+ 	d_seteuid='undef'
++	d_dosuid='define'
+ 	;;
+ #
+ # Guesses at what will be needed after 2.2
+ *)	usevfork='true'
+ 	usemymalloc='n'
+ 	libswanted=`echo $libswanted | sed 's/ malloc / /'`
++	d_setregid='define'
++	d_setreuid='define'
++	d_setegid='undef'
++	d_seteuid='undef'
++	d_dosuid='define'
+ 	;;
+ esac
+ 
diff --git a/lang/perl5/patches/patch-ad b/lang/perl5/patches/patch-ad
new file mode 100644
index 00000000000..e6863c22280
--- /dev/null
+++ b/lang/perl5/patches/patch-ad
@@ -0,0 +1,41 @@
+--- perl.h.ORIG	Mon Apr 28 17:36:10 1997
++++ perl.h	Fri May 23 11:56:49 1997
+@@ -223,6 +223,15 @@
+ #   include <sys/param.h>
+ #endif
+ 
++/* needed for IAMSUID case for 4.4BSD systems 
++ * XXX there should probably be a Configure variable
++ */
++
++#ifdef I_SYS_PARAM
++#if (defined (BSD) && (BSD >= 199306))
++#   include <sys/mount.h>
++#endif /* !BSD */
++#endif /* !I_SYS_PARAM */
+ 
+ /* Use all the "standard" definitions? */
+ #if defined(STANDARD_C) && defined(I_STDLIB)
+--- perl5.004/perl.c.ORIG	Fri May 16 00:14:03 1997
++++ perl.c	Fri May 23 11:56:49 1997
+@@ -1917,6 +1917,20 @@
+ 		croak("Can't swap uid and euid");	/* really paranoid */
+ 	    if (Stat(SvPVX(GvSV(curcop->cop_filegv)),&tmpstatbuf) < 0)
+ 		croak("Permission denied");	/* testing full pathname here */
++#if (defined(BSD) && (BSD >= 199306))
++#ifdef IAMSUID
++        {
++            struct statfs stfs;
++
++            if (fstatfs(fileno(rsfp),&stfs) < 0)
++                croak("Can't statfs filesystem of script \"%s\"",origfilename);
++
++            if (stfs.f_flags & MNT_NOSUID)
++                croak("Permission denied");
++        }
++#endif /* IAMSUID */
++#endif /* BSD */
++
+ 	    if (tmpstatbuf.st_dev != statbuf.st_dev ||
+ 		tmpstatbuf.st_ino != statbuf.st_ino) {
+ 		(void)PerlIO_close(rsfp);
diff --git a/lang/perl5/patches/patch-ae b/lang/perl5/patches/patch-ae
new file mode 100644
index 00000000000..1c95a05a5db
--- /dev/null
+++ b/lang/perl5/patches/patch-ae
@@ -0,0 +1,10 @@
+--- makedepend.SH.orig  Mon Sep  8 21:27:36 1997
++++ makedepend.SH       Mon Sep  8 21:29:04 1997
+@@ -60,6 +60,7 @@
+     # to be out of date.  I don't know if OS/2 has touch, so do this:
+     case "$osname" in
+     os2) ;;
++    freebsd) ;;
+     *) $touch $firstmakefile ;;
+     esac
+ fi