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 (file)
--- 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);