diff options
| author | Paul Traina <pst@FreeBSD.org> | 1996-06-08 20:18:56 +0000 |
|---|---|---|
| committer | Paul Traina <pst@FreeBSD.org> | 1996-06-08 20:18:56 +0000 |
| commit | b1a7e10b62f13386064e7dea67b0d592a91150da (patch) | |
| tree | 5e5a87bd1f06bb58cd61066edc26a5d0ea4aa464 /gnu | |
| parent | 1a69aa9f141996a0eae2c9b4893f5b27070d32b7 (diff) | |
Notes
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/perl/perl/perl.c | 11 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/sperl/Makefile | 2 |
2 files changed, 8 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/perl/perl.c b/gnu/usr.bin/perl/perl/perl.c index 4d1a7ae6bd4c..3d87cb48f2bc 100644 --- a/gnu/usr.bin/perl/perl/perl.c +++ b/gnu/usr.bin/perl/perl/perl.c @@ -1,4 +1,4 @@ -char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.3 $$Date: 1995/05/28 19:21:54 $\nPatch level: ###\n"; +char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.4 $$Date: 1995/05/30 05:03:10 $\nPatch level: ###\n"; /* * Copyright (c) 1991, Larry Wall * @@ -6,6 +6,9 @@ char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.3 $$Date: 1995/05/28 19:21:54 $ * License or the Artistic License, as specified in the README file. * * $Log: perl.c,v $ + * Revision 1.4 1995/05/30 05:03:10 rgrimes + * Remove trailing whitespace. + * * Revision 1.3 1995/05/28 19:21:54 ache * Fix $] variable value (version number), close PR 449 * Submitted by: Bill Fenner <fenner@parc.xerox.com> @@ -588,7 +591,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); (void)setegid(statbuf.st_gid); #else #ifdef HAS_SETREGID - (void)setregid((GIDTYPE)-1,statbuf.st_gid); + (void)setregid((GIDTYPE)gid,statbuf.st_gid); #else setgid(statbuf.st_gid); #endif @@ -602,7 +605,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); (void)seteuid(statbuf.st_uid); /* all that for this */ #else #ifdef HAS_SETREUID - (void)setreuid((UIDTYPE)-1,statbuf.st_uid); + (void)setreuid((UIDTYPE)uid,statbuf.st_uid); #else setuid(statbuf.st_uid); #endif @@ -615,7 +618,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); (void)seteuid((UIDTYPE)uid); #else #ifdef HAS_SETREUID - (void)setreuid((UIDTYPE)-1,(UIDTYPE)uid); + (void)setreuid((UIDTYPE)uid,(UIDTYPE)uid); #else setuid((UIDTYPE)uid); #endif diff --git a/gnu/usr.bin/perl/sperl/Makefile b/gnu/usr.bin/perl/sperl/Makefile index af19d479ff3b..466c76787f75 100644 --- a/gnu/usr.bin/perl/sperl/Makefile +++ b/gnu/usr.bin/perl/sperl/Makefile @@ -24,7 +24,7 @@ MAN1= MLINKS+= perl.1 suidperl.1 BINOWN= root -BINMODE=4711 +BINMODE=4111 .include "../../Makefile.inc" .include <bsd.prog.mk> |