Article 11272 of comp.lang.perl:
Path: feenix.metronet.com!news.utdallas.edu!wupost!crcnis1.unl.edu!ns.ccsn.edu!ns.ccsn.edu!not-for-mail
From: mose@ns.ccsn.edu (Russell Mosemann)
Newsgroups: comp.lang.perl
Subject: Re: Trying to use SUID curseperl script as login shell
Date: 7 Mar 1994 19:24:35 -0600
Organization: Concordia College, Seward, NE
Lines: 37
Message-ID: <2lgk4jINN499@ns.ccsn.edu>
References: <1994Feb28.170503.8974@mcshub.dcss.mcmaster.ca> <2kvuotINNp16@ns.ccsn.edu> <ward-070394155707@muddy.apple.com>
NNTP-Posting-Host: ccsn.edu

ward@newton.apple.com (William R. Ward) writes:

>I tried "make superl.o" in the perl source directory, and it didn't know
>how to make it.  Are you sure that's the right method?

   Heh, heh.  It's the right method if you put the right changes in your
makefile.  :-)  I left that part out.  Change the following line:

all: $(public) $(private) $(util) uperl.o tuperl.o superl.o $(scripts)

   And add a couple more lines after uperl.o to be:

uperl.o: $& perly.o $(obj) hash.o
        -ld $(LARGE) $(LDFLAGS) -r $(obj) hash.o perly.o -o uperl.o

tuperl.o: $& tperly.o $(tobj) tperl.o
        -ld $(LARGE) $(LDFLAGS) -r $(tobj) tperl.o tperly.o -o tuperl.o

superl.o: $& tperly.o $(tobj) sperl.o
        -ld $(LARGE) $(LDFLAGS) -r $(tobj) sperl.o tperly.o -o superl.o

   Then add a line to the Makefile in usub to read something like:

scurseperl: $(SRC)/superl.o usersub.o curses.o
        $(CC) $(SRC)/superl.o usersub.o curses.o $(LIBS) -o scurseperl


>(I was trying to use your idea to generate a suid version of oraperl... I'm
>having an analagous problem to Russell's, it can't find the oraperl
>functions)

   Hey, the problem is not mine.  The suggestion is.
-- 
Russell Mosemann     Concordia College      Voice: (402) 643-7445
Computing Center     Seward, NE 68434       Fax:   (402) 643-4073
"One missionary survived the cannibals.  When asked how, he said,
 'Those particular cannibals boil their victims.  I'm a friar.'"