diff options
| author | Winfried König <win@in.rhein-main.de> | 1998-07-27 22:13:00 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-01 19:37:13 +0000 |
| commit | 3654eb6c94c503df3bbf29cfeb2429609f7a0879 (patch) | |
| tree | 069f52c5bfec818601c2f4148f10676b98ac3e5c /pp_sys.c | |
| parent | b73f56772c75866d31e08a5f5c123e238222b74d (diff) | |
| download | perl-3654eb6c94c503df3bbf29cfeb2429609f7a0879.tar.gz | |
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
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |