diff options
| author | Stephen Potter <spp@psasolar.colltech.com> | 1998-03-18 04:06:55 -0600 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 14:22:41 +0000 |
| commit | c6ed36e16dcdd4c25349e4f9d5c84061095ccffb (patch) | |
| tree | 30ed83cb461f3a83dd16266d0fb96f01d449da6e /pp_sys.c | |
| parent | 2a26e2f19442b809001f7cd459852d056a3d645b (diff) | |
| download | perl-c6ed36e16dcdd4c25349e4f9d5c84061095ccffb.tar.gz | |
Re: doc: perlrun typo
Date: Wed, 18 Mar 1998 10:06:55 -0600
Subject: Re: [PATCH 5.004_63] PerlLIO abstraction cleanup
Date: Tue, 24 Mar 1998 21:20:51 -0600
p4raw-id: //depot/perl@842
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2093,7 +2093,7 @@ PP(pp_stat) laststatval = PerlLIO_lstat(SvPV(statname, na), &statcache); else #endif - laststatval = Stat(SvPV(statname, na), &statcache); + laststatval = PerlLIO_stat(SvPV(statname, na), &statcache); if (laststatval < 0) { if (dowarn && strchr(SvPV(statname, na), '\n')) warn(warn_nl, "stat"); @@ -2664,11 +2664,11 @@ PP(pp_rename) #ifdef HAS_RENAME anum = rename(tmps, tmps2); #else - if (!(anum = Stat(tmps, &statbuf))) { + if (!(anum = PerlLIO_stat(tmps, &statbuf))) { if (same_dirent(tmps2, tmps)) /* can always rename to same name */ anum = 1; else { - if (euid || Stat(tmps2, &statbuf) < 0 || !S_ISDIR(statbuf.st_mode)) + if (euid || PerlLIO_stat(tmps2, &statbuf) < 0 || !S_ISDIR(statbuf.st_mode)) (void)UNLINK(tmps2); if (!(anum = link(tmps, tmps2))) anum = UNLINK(tmps); @@ -2805,7 +2805,7 @@ char *filename; return 0; } else { /* some mkdirs return no failure indication */ - anum = (Stat(save_filename, &statbuf) >= 0); + anum = (PerlLIO_stat(save_filename, &statbuf) >= 0); if (op->op_type == OP_RMDIR) anum = !anum; if (anum) |