Help to compile on VMS with UNLINK_ALL_VERSIONS

See :
Subject: bug@26347 embed.fnc/embed.h with unlnk macro
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <439F8F20.4050207@qsl.net>

p4raw-id: //depot/perl@27063

diff --git a/perl.h b/perl.h
index 37ba210..cf5e0bf 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3657,7 +3657,7 @@ char *getlogin (void);
 /* Also rename() is affected by this */
 #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
 #define UNLINK unlnk
-I32 unlnk (const char*);
+I32 unlnk (pTHX_ const char*);
 #else
 #define UNLINK PerlLIO_unlink
 #endif