From: Winfried König <win@in.rhein-main.de>
Date: Mon, 27 Jul 1998 21:13:00 +0000 (+0100)
Subject: stray s/foo/PL_foo/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3654eb6c94c503df3bbf29cfeb2429609f7a0879;p=p5sagit%2Fp5-mst-13.2.git

stray s/foo/PL_foo/
	Message-Id: <m0z0teW-00019aC@incom.rhein-main.de>
	Subject: Bug in pp_rename and ISC hint

p4raw-id: //depot/maint-5.005/perl@1676
---

diff --git a/pp_sys.c b/pp_sys.c
index 7ac2d98..5e57075 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2739,7 +2739,7 @@ PP(pp_rename)
 	if (same_dirent(tmps2, tmps))	/* can always rename to same name */
 	    anum = 1;
 	else {
-	    if (euid || PerlLIO_stat(tmps2, &PL_statbuf) < 0 || !S_ISDIR(PL_statbuf.st_mode))
+	    if (PL_euid || PerlLIO_stat(tmps2, &PL_statbuf) < 0 || !S_ISDIR(PL_statbuf.st_mode))
 		(void)UNLINK(tmps2);
 	    if (!(anum = link(tmps, tmps2)))
 		anum = UNLINK(tmps);