[inseparable changes from match from perl-5.003_97b to perl-5.003_97c]
[perl.git] / pp_sys.c
index fe11f85..bc22763 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2728,7 +2728,7 @@ PP(pp_mkdir)
 
     TAINT_PROPER("mkdir");
 #ifdef HAS_MKDIR
-    SETi( mkdir(tmps, mode) >= 0 );
+    SETi( Mkdir(tmps, mode) >= 0 );
 #else
     SETi( dooneliner("mkdir", tmps) );
     oldumask = umask(0);