1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 464f1813c0..492e35191d 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;
 		}