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 /util.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 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2352,13 +2352,13 @@ char *b; sv_setpv(tmpsv, "."); else sv_setpvn(tmpsv, a, fa - a); - if (Stat(SvPVX(tmpsv), &tmpstatbuf1) < 0) + if (PerlLIO_stat(SvPVX(tmpsv), &tmpstatbuf1) < 0) return FALSE; if (fb == b) sv_setpv(tmpsv, "."); else sv_setpvn(tmpsv, b, fb - b); - if (Stat(SvPVX(tmpsv), &tmpstatbuf2) < 0) + if (PerlLIO_stat(SvPVX(tmpsv), &tmpstatbuf2) < 0) return FALSE; return tmpstatbuf1.st_dev == tmpstatbuf2.st_dev && tmpstatbuf1.st_ino == tmpstatbuf2.st_ino; |