From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 14 Aug 2000 14:09:34 +0000 (+0000)
Subject: For now remove the mail code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=872d03d52aa0dfd2af3675af67374cd390dba7ce;p=p5sagit%2Fp5-mst-13.2.git

For now remove the mail code.

p4raw-id: //depot/perl@6618
---

diff --git a/perl.c b/perl.c
index aa80993..197e737 100644
--- a/perl.c
+++ b/perl.c
@@ -2867,18 +2867,6 @@ S_validate_suid(pTHX_ char *validarg, char *scriptname, int fdscript)
 	    if (tmpstatbuf.st_dev != PL_statbuf.st_dev ||
 		tmpstatbuf.st_ino != PL_statbuf.st_ino) {
 		(void)PerlIO_close(PL_rsfp);
-#ifdef MAIL_CAN_BE_USED_SAFELY /* No, it can't.  As of Aug 05 200, there's bugtraq exploit.  */
-		if (PL_rsfp = PerlProc_popen("/bin/mail root","w")) {	/* heh, heh */
-		    PerlIO_printf(PL_rsfp,
-"User %"Uid_t_f" tried to run dev %ld ino %ld in place of dev %ld ino %ld!\n\
-(Filename of set-id script was %s, uid %"Uid_t_f" gid %"Gid_t_f".)\n\nSincerely,\nperl\n",
-			PL_uid,(long)tmpstatbuf.st_dev, (long)tmpstatbuf.st_ino,
-			(long)PL_statbuf.st_dev, (long)PL_statbuf.st_ino,
-			CopFILE(PL_curcop),
-			PL_statbuf.st_uid, PL_statbuf.st_gid);
-		    (void)PerlProc_pclose(PL_rsfp);
-		}
-#endif
 		Perl_croak(aTHX_ "Permission denied\n");
 	    }
 	    if (