Path: utzoo!attcan!uunet!cs.utexas.edu!sdd.hp.com!wuarchive!emory!rsiatl!pda
From: pda@rsiatl.UUCP (Paul D. Anderson)
Newsgroups: comp.lang.perl
Subject: Has anyone tested $< and $> ?
Message-ID: <4520@rsiatl.UUCP>
Date: 28 Oct 90 06:48:44 GMT
Reply-To: pda@rsiatl.UUCP (Paul D. Anderson)
Organization: Radiation Systems, Inc. (a thinktank, motorcycle, car and gun works facility)
Lines: 32

I appear to misunderstand $< with a setuid program.  Could someone
please help me clarify it's use?

I have a set uid program as follows:

	-rwsrwsr-x   1 jgd      hackers      137 Oct 28 01:42 sid

The text is as follows:

	#!/usr/bin/perl -S $0 ${1+"$@"}
	eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
		if $0;

	printf STDOUT "uid is %d going to %d \n", $<, $>;

	1;


When I run the program, the output is as follows:

	uid is 140 going to 140 


I think that the output should read 'uid is 110 going to 140'.  (jgd=140,
my uid=110.)  Anyone got a clue?  Since I want to validate who uses the
program, I need to be able to find out who the true invoker is.

Thanks.
-paul
-- 
* Paul Anderson * Crossroads Computing * (404) 565-0761 * emory!rsiatl!pda * 
              "SCCS: The condom of promiscuous programmers"