From owner-cvs-all Tue Mar 10 19:07:51 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id TAA02303 for cvs-all-outgoing; Tue, 10 Mar 1998 19:07:51 -0800 (PST) (envelope-from owner-cvs-all@FreeBSD.ORG) Received: from frmug.org (frmug-gw.frmug.org [193.56.58.252]) by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id TAA02282 for ; Tue, 10 Mar 1998 19:07:38 -0800 (PST) (envelope-from roberto@keltia.freenix.fr) Received: (from uucp@localhost) by frmug.org (8.8.8/frmug-2.2/nospam) with UUCP id EAA02573 for cvs-committers@FreeBSD.ORG; Wed, 11 Mar 1998 04:07:35 +0100 (CET) (envelope-from roberto@keltia.freenix.fr) Received: (from roberto@localhost) by keltia.freenix.fr (8.8.8/keltia-2.13/nospam) id XAA06960; Tue, 10 Mar 1998 23:26:20 +0100 (CET) (envelope-from roberto) Message-ID: <19980310232620.A6489@keltia.freenix.fr> Date: Tue, 10 Mar 1998 23:26:20 +0100 From: Ollivier Robert To: cvs-committers@FreeBSD.ORG Subject: Re: cvs commit: src/gnu/usr.bin/perl/perl perl.c Mail-Followup-To: cvs-committers@FreeBSD.ORG References: <199803101943.LAA05883@freefall.freebsd.org> <19980310230034.40398@nagual.pp.ru> Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Mailer: Mutt 0.90.4i In-Reply-To: =?iso-8859-1?Q?=3C19980310230034=2E40398=40nagual=2Epp=2Eru=3E=3B_from_?= =?iso-8859-1?Q?=E1=CE=C4=D2=C5=CA_=FE=C5=D2=CE=CF=D7_on_Tue=2C_Mar_10=2C?= =?iso-8859-1?Q?_1998_at_11=3A00=3A34PM_+0300?= X-Operating-System: FreeBSD 3.0-CURRENT ctm#4121 AMD-K6 MMX @ 225 MHz Sender: owner-cvs-all@FreeBSD.ORG Precedence: bulk According to Андрей Чернов: > Similar patch is needed for perl5 port too. Here it is: --- perl.c.old Tue Oct 14 20:09:18 1997 +++ perl.c Tue Mar 10 23:19:37 1998 @@ -588,13 +588,15 @@ if (euid != uid || egid != gid) croak("No -e allowed in setuid scripts"); if (!e_fp) { + int e_fd; + e_tmpname = savepv(TMPPATH); - (void)mktemp(e_tmpname); - if (!*e_tmpname) - croak("Can't mktemp()"); - e_fp = PerlIO_open(e_tmpname,"w"); + e_fd = mkstemp(e_tmpname); + if (e_fd == EOF) + croak("Can't mkstemp()"); + e_fp = PerlIO_fdopen(e_fd,"w"); if (!e_fp) - croak("Cannot open temporary file"); + croak("Cannot fdopen temporary file"); } if (*++s) PerlIO_puts(e_fp,s); It is not suitable for official inclusion in Perl because one will have to test for mkstemp(3) in Configure but it should be enough for the port. -- Ollivier ROBERT -=- FreeBSD: The Power to Serve! -=- roberto@keltia.freenix.fr FreeBSD keltia.freenix.fr 3.0-CURRENT #0: Sun Mar 1 18:50:39 CET 1998 To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe cvs-all" in the body of the message