VMS tweak (suggested by Craig A. Berry <craig.berry@metamor.com>)

[perl5.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 5ce8fb4..c2e621c 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -128,7 +128,7 @@
 #  define aTHX_                aTHX,
 #endif
 
-#if defined(PERL_CAPI)
+#if (defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)) && !defined(PERL_CORE)
 #  ifndef NO_XSLOCKS
 #    undef closedir
 #    undef opendir
@@ -203,7 +203,7 @@
 #    define read               PerlLIO_read
 #    define rename             PerlLIO_rename
 #    define setmode            PerlLIO_setmode
-#    define stat               PerlLIO_stat
+#    define stat(buf,sb)       PerlLIO_stat(buf,sb)
 #    define tmpnam             PerlLIO_tmpnam
 #    define umask              PerlLIO_umask
 #    define unlink             PerlLIO_unlink