head	1.6;
access;
symbols
	old_old_RELEASE_4_6_1:1.4
	old_old_RELEASE_4_6_0:1.4
	old_old_RELEASE_5_0_DP1:1.4
	old_old_RELEASE_4_5_0:1.4
	old_old_RELEASE_4_4_0:1.4
	old_old_RELEASE_4_3_0:1.4
	old_old_RELEASE_4_2_0:1.4
	old_old_RELEASE_4_1_1:1.4
	old_old_RELEASE_4_1_0:1.4
	old_old_RELEASE_3_5_0:1.4
	old_old_RELEASE_4_0_0:1.4
	old_old_RELEASE_3_4_0:1.4
	old_old_RELEASE_3_3_0:1.4
	old_old_RELEASE_3_2_0:1.4
	old_old_RELEASE_3_1_0:1.4
	old_old_RELEASE_2_2_8:1.4
	old_old_RELEASE_3_0_0:1.4
	old_old_RELEASE_2_2_7:1.3
	old_old_RELEASE_2_2_6:1.3
	old_old_RELEASE_2_2_5:1.3
	old_old_RELEASE_2_2_1:1.2
	old_old_RELEASE_2_2_2:1.2;
locks; strict;
comment	@# @;


1.6
date	2002.07.21.17.09.12;	author tobez;	state dead;
branches;
next	1.5;

1.5
date	2002.06.02.21.22.25;	author tobez;	state Exp;
branches;
next	1.4;

1.4
date	98.08.06.10.43.21;	author markm;	state Exp;
branches;
next	1.3;

1.3
date	97.05.23.20.07.00;	author markm;	state Exp;
branches;
next	1.2;

1.2
date	96.11.01.19.00.22;	author markm;	state Exp;
branches;
next	1.1;

1.1
date	96.06.02.19.59.28;	author gpalmer;	state Exp;
branches;
next	;


desc
@@


1.6
log
@Update to 5.8.0 (after repocopy).
@
text
@$FreeBSD: ports/lang/perl5.8/files/patch-ab,v 1.5 2002/06/02 21:22:25 tobez Exp $

--- installperl.ORIG	Thu Jul 30 15:58:50 1998
+++ installperl	Thu Jul 30 16:02:16 1998
@@@@ -269,7 +269,7 @@@@
 	      (-l $usrbinperl) &&
 	      ((readlink $usrbinperl) eq $expinstperl));
     }
-    if ((! $mainperl_is_instperl) &&
+    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] ")))
@


1.5
log
@Put SITEARCH and SITELIB paths in front of ARCHLIB and PRIVLIB in the
@@INC array. This takes care of the infamous problem of updating the
packages already in the perl distribution. With this change, no tricks
are any longer necessary for such p5 ports, except the usual tweaking of
INSTALLDIRS in Makefile.PL. This last one can also be taken care of by
an appropriate BSDPAN modifications, but until we have the `natural'
@@INC order in the 4.X base system perl, it is meaningless.

Do not include iconv.h and do not link with libiconv. Iconv is not used
by perl in any way currently, but it used to link it if found.

Fix perl on freebsd/sparc64.

PR:		33212 (iconv), 37605 (iconv), 38813 (sparc64)
Reported by:	Vivek Khera <khera@@kciLink.com> (iconv),
		Martin Nilsson <martin@@gneto.com> (iconv)
Submitted by:	jake (sparc64)
@
text
@d1 1
a1 1
$FreeBSD$
@


1.4
log
@Update to Perl 5.005_01.
@
text
@d1 2
@


1.3
log
@Upgrade to Perl5.004. SUID Perl Works for 3.0-current and 2.2.2!
@
text
@d1 3
a3 12
--- 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 @@@@
d8 4
a11 13
-	(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 } ||
@


1.2
log
@Use phkmalloc instead of Perl's own malloc. Also clean up the FreeBSD
hints file for future releases. This will be submitted to the Perl
maintainers.
@
text
@d1 29
a29 41
--- perl.c.orig	Tue Feb 27 13:30:44 1996
+++ perl.c	Sun Jun  2 09:22:34 1996
@@@@ -1606,10 +1606,10 @@@@
 	    (void)setegid(statbuf.st_gid);
 #else
 #ifdef HAS_SETREGID
-           (void)setregid((Gid_t)-1,statbuf.st_gid);
+           (void)setregid((Gid_t)gid,statbuf.st_gid);
 #else
 #ifdef HAS_SETRESGID
-           (void)setresgid((Gid_t)-1,statbuf.st_gid,(Gid_t)-1);
+           (void)setresgid((Gid_t)gid,statbuf.st_gid,(Gid_t)gid);
 #else
 	    setgid(statbuf.st_gid);
 #endif
@@@@ -1624,10 +1624,10 @@@@
 		(void)seteuid(statbuf.st_uid);	/* all that for this */
 #else
 #ifdef HAS_SETREUID
-                (void)setreuid((Uid_t)-1,statbuf.st_uid);
+                (void)setreuid((Uid_t)uid,statbuf.st_uid);
 #else
 #ifdef HAS_SETRESUID
-                (void)setresuid((Uid_t)-1,statbuf.st_uid,(Uid_t)-1);
+                (void)setresuid((Uid_t)uid,statbuf.st_uid,(Uid_t)uid);
 #else
 		setuid(statbuf.st_uid);
 #endif
@@@@ -1641,10 +1641,10 @@@@
           (void)seteuid((Uid_t)uid);
 #else
 #ifdef HAS_SETREUID
-          (void)setreuid((Uid_t)-1,(Uid_t)uid);
+          (void)setreuid((Uid_t)uid,(Uid_t)uid);
 #else
 #ifdef HAS_SETRESUID
-          (void)setresuid((Uid_t)-1,(Uid_t)uid,(Uid_t)-1);
+          (void)setresuid((Uid_t)uid,(Uid_t)uid,(Uid_t)uid);
 #else
           setuid((Uid_t)uid);
 #endif
@


1.1
log
@Use setreuid instead of seteuid for permissions management
@
text
@a0 31
*** hints/freebsd.sh	Mon Feb 12 11:52:51 1996
--- hints/freebsd.sh	Sat Jun  1 19:08:28 1996
***************
*** 47,54 ****
  # It does not covert all 2.1-current versions as the output of uname
  # changed a few times.
  #
! 2.0.5*|2.0-built*|2.1*)
   	usevfork='true'
  	;;
  #
  # Guesses at what will be needed after 2.1
--- 47,64 ----
  # It does not covert all 2.1-current versions as the output of uname
  # changed a few times.
  #
! # Even though seteuid/setegid are available, they've been turned off
! # because perl isn't coded with saved set[ug]id variables in mind.
! # In addition, a small patch is requried to suidperl to avoid a security
! # problem with FreeBSD.
! #
! 2.0.5*|2.0-built*|2.1*|2.2*)
   	usevfork='true'
+ 	d_dosuid='define'
+ 	d_setregid='define'
+ 	d_setreuid='define'
+ 	d_setegid='undef'
+ 	d_seteuid='undef'
  	;;
  #
  # Guesses at what will be needed after 2.1
@
