summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorStephen Potter <spp@psasolar.colltech.com>1998-03-18 04:06:55 -0600
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-04-02 14:22:41 +0000
commitc6ed36e16dcdd4c25349e4f9d5c84061095ccffb (patch)
tree30ed83cb461f3a83dd16266d0fb96f01d449da6e /mg.c
parent2a26e2f19442b809001f7cd459852d056a3d645b (diff)
downloadperl-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 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 71cfa36329..4a8b88cad7 100644
--- a/mg.c
+++ b/mg.c
@@ -684,7 +684,7 @@ magic_setenv(SV *sv, MAGIC *mg)
s++;
if (i >= sizeof tmpbuf /* too long -- assume the worst */
|| *tmpbuf != '/'
- || (Stat(tmpbuf, &st) == 0 && (st.st_mode & 2)) ) {
+ || (PerlLIO_stat(tmpbuf, &st) == 0 && (st.st_mode & 2)) ) {
MgTAINTEDDIR_on(mg);
return 0;
}