From owner-freebsd-current Sun Jan 14 01:46:57 1996 Return-Path: owner-current Received: (from root@localhost) by freefall.freebsd.org (8.7.3/8.7.3) id BAA25015 for current-outgoing; Sun, 14 Jan 1996 01:46:57 -0800 (PST) Received: from ibp.ibp.fr (ibp.ibp.fr [132.227.60.30]) by freefall.freebsd.org (8.7.3/8.7.3) with ESMTP id BAA25010 for ; Sun, 14 Jan 1996 01:46:51 -0800 (PST) Received: from blaise.ibp.fr (blaise.ibp.fr [132.227.60.1]) by ibp.ibp.fr (8.6.12/jtpda-5.0) with ESMTP id KAA14026 ; Sun, 14 Jan 1996 10:46:49 +0100 Received: from (uucp@localhost) by blaise.ibp.fr (8.6.12/jtpda-5.0) with UUCP id KAA05139 ; Sun, 14 Jan 1996 10:46:48 +0100 Received: (from roberto@localhost) by keltia.freenix.fr (8.7.3/keltia-uucp-2.7) id KAA01223; Sun, 14 Jan 1996 10:40:45 +0100 (MET) From: Ollivier Robert Message-Id: <199601140940.KAA01223@keltia.freenix.fr> Subject: Re: perl on -current does not setuid To: sa2c@and.or.jp (NIIMI Satoshi) Date: Sun, 14 Jan 1996 10:40:45 +0100 (MET) Cc: current@freebsd.org In-Reply-To: <199601140832.RAA23716@us.and.or.jp> from "NIIMI Satoshi" at Jan 14, 96 05:32:04 pm X-Operating-System: FreeBSD 2.2-CURRENT ctm#1530 X-Mailer: ELM [version 2.4 PL24 ME8b] MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Sender: owner-current@freebsd.org Precedence: bulk It seems that NIIMI Satoshi said: > Perl on -current does not setuid if executed as setuid script. Perl5 > in ports does. gnu/usr.bin/perl/perl doesn't. gnu/usr.bin/perl/sperl does. In the latter's Makefile you'll find this: CFLAGS+= -I${.CURDIR}/../perl -DIAMSUID -DTAINT suidperl works. -rwsr-xr-x 1 root staff 296 May 6 1995 setu* 216 [10:39] roberto@keltia:~/tmp> more setu #!/usr/bin/suidperl print "$0 $^X\n"; print "real uid = $<\n effective uid = $>\n"; print "real gid = $(\n effective gid = $)\n"; # $> = $<; $) = $(; print "real uid = $<\n effective uid = $>\n"; print "real gid = $(\n effective gid = $)\n"; $> = 0; print "real uid = $<\n effective uid = $>\n"; 217 [10:39] roberto@keltia:~/tmp> ./setu ./setu /usr/bin/suidperl real uid = 101 effective uid = 0 real gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10 effective gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10 real uid = 101 effective uid = 101 real gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10 effective gid = 10 2001 2000 117 100 21 20 15 8 6 5 2 0 10 10 real uid = 101 effective uid = 0 -- Ollivier ROBERT -=- The daemon is FREE! -=- roberto@keltia.frmug.fr.net FreeBSD keltia.freenix.fr 2.2-CURRENT #13: Sat Jan 6 20:08:04 MET 1996