Return to BSD News archive
Path: euryale.cc.adfa.oz.au!newshost.carno.net.au!harbinger.cc.monash.edu.au!munnari.OZ.AU!news.ecn.uoknor.edu!feed1.news.erols.com!howland.erols.net!rill.news.pipex.net!pipex!tank.news.pipex.net!pipex!news.utell.co.uk!ui-gate.utell.co.uk!brian
From: brian@ui-gate.utell.co.uk (Brian Somers)
Newsgroups: comp.unix.bsd.freebsd.misc
Subject: Re: Note! 2 versions of Perl in Release 2.1.6-Release
Date: 14 Feb 1997 10:31:08 GMT
Organization: Utell International
Lines: 66
Message-ID: <5e1etc$djj@ui-gate.utell.co.uk>
References: <5doo2u$b64@lester.appstate.edu> <33019138.710D@visigenic.com> <33040791.178910154@news.diac.com>
NNTP-Posting-Host: ui-gate.utell.net
X-Newsreader: TIN [version 1.2 PL2]
Xref: euryale.cc.adfa.oz.au comp.unix.bsd.freebsd.misc:35373
Sitaram Chamarty (sitaram@diac.com) wrote:
: Tim O'Neil <toneil@visigenic.com> wrote:
: >> "/usr/bin" appears to be an older version, version 4.0 perhaps (and
: >> incompatible with Majordomo). The one in "/usr/local/bin" is version
: >> 5.002 and compatible.
: [snip]
: >This is a useful bit of info Kinney, thanks. Being new to
: >freeBSD, this is good to know. I wonder what would break
: >if I simply changed my path order to reflect /usr/local/bin
: >earlier on than /usr/bin?
: Why bother keeping perl 4 hanging around? Delete it. Give me one good reason
: why it should be kept...
: Sitaram.
Well, in my case, for the following reasons:
$ ls -li /usr/bin/*perl* /usr/local/bin/*perl*
7747 -r-xr-xr-x 1 bin bin 307200 Oct 15 02:12 /usr/bin/curseperl
7744 -r-xr-xr-x 1 bin bin 274432 Oct 15 02:12 /usr/bin/perl
7746 ---s--x--x 2 root bin 282624 Oct 15 02:12 /usr/bin/sperl4.036
7746 ---s--x--x 2 root bin 282624 Oct 15 02:12 /usr/bin/suidperl
7745 -r-xr-xr-x 2 bin bin 282624 Oct 15 02:12 /usr/bin/tperl
7745 -r-xr-xr-x 2 bin bin 282624 Oct 15 02:12 /usr/bin/tperl4.036
86191 -rwxr-xr-x 1 root bin 12187 Jan 15 11:39 /usr/local/bin/find2perl
86181 -rwxr-xr-x 2 root bin 413696 Jan 15 11:43 /usr/local/bin/perl
86181 -rwxr-xr-x 2 root bin 413696 Jan 15 11:43 /usr/local/bin/perl5.003
86188 -rwxr-xr-x 1 root bin 13855 Jan 15 11:39 /usr/local/bin/perlbug
86189 -rwxr-xr-x 1 root bin 8984 Jan 15 11:39 /usr/local/bin/perldoc
86182 ---s--x--x 2 root bin 413696 Jan 15 11:43 /usr/local/bin/sperl5.003
86182 ---s--x--x 2 root bin 413696 Jan 15 11:43 /usr/local/bin/suidperl
Looks ok to me....
$ cat >/usr/local/bin/tst <<eof
#! /usr/bin/perl
exec id;
eof
$ su
# chown root /usr/local/bin/tst; chmod 4755 /usr/local/bin/tst; exit
$ /usr/local/bin/tst
Insecure PATH at /usr/local/bin/tst line 2.
This is correct :)
$ rm -f /usr/local/bin/tst
$ cat >/usr/local/bin/tst <<eof
#! /usr/local/bin/perl
exec id;
eof
$ su
# chown root /usr/local/bin/tst; chmod 4755 /usr/local/bin/tst; exit
$ /usr/local/bin/tst
$
This isn't - the script just doesn't do anything - no matter how
big it is :(
Can some kind soul show me where I'm being dim ? Thanks.
--
Brian <brian@awfulhak.demon.co.uk> <brian@utell.co.uk> <brian@freebsd.org>
<http://www.awfulhak.demon.co.uk>
Don't _EVER_ lose your sense of humour !