Date: Mon, 15 Jan 1996 03:54:42 +0900 From: NIIMI Satoshi <sa2c@and.or.jp> To: Ollivier Robert <roberto@keltia.freenix.fr> Cc: current@freebsd.org Subject: Re: perl on -current does not setuid Message-ID: <199601141854.DAA24897@us.and.or.jp> In-Reply-To: "Ollivier Robert"'s message of "Sun, 14 Jan 1996 10:40:45 %2B0100." <199601140940.KAA01223@keltia.freenix.fr>
next in thread | previous in thread | raw e-mail | index | archive | help
> 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. Yes, I know. What I wanted to say is: In perl5: sa2c@us:~/tmp> cat setu-5 #!/usr/local/bin/perl5.001 print "ruid = $<, euid = $>\n"; sa2c@us:~/tmp> ls -l setu-5 -rwxr-xr-x 1 root user 59 Jan 15 03:30 setu-5* sa2c@us:~/tmp> ./setu-5 ruid = 1000, euid = 1000 sa2c@us:~/tmp# chmod u+s setu-5 sa2c@us:~/tmp> ls -l setu-5 -rwsr-xr-x 1 root user 59 Jan 15 03:30 setu-5* sa2c@us:~/tmp> ./setu-5 ruid = 1000, euid = 0 ~ But in perl4: sa2c@us:~/tmp> cat setu-4 #!/usr/bin/perl print "ruid = $<, euid = $>\n"; sa2c@us:~/tmp> ls -l setu-4 -rwxr-xr-x 1 root user 48 Jan 15 03:36 setu-4* sa2c@us:~/tmp> ./setu-4 ruid = 1000, euid = 1000 sa2c@us:~/tmp# chmod u+s setu-4 sa2c@us:~/tmp> ls -l setu-4 -rwsr-xr-x 1 root user 48 Jan 15 03:36 setu-4* sa2c@us:~/tmp> ./setu-4 ruid = 1000, euid = 1000 ~~~~ Perl compiled with DOSUID executes suidperl (/usr/bin/sperl4.036) if script is setuid or setgid. This feature is worth for me because I can test a script without setuid and install it by "install -c -m 4511". I must be a root only on installation. Sorry for my English. -- NIIMI Satoshi
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199601141854.DAA24897>