From: John E. Malmberg <wb8tyw@qsl.net>
Date: Tue, 13 Dec 2005 22:18:56 +0000 (-0500)
Subject: Help to compile on VMS with UNLINK_ALL_VERSIONS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=083639a9a1e6ddf46741c03c887e509293dde4c0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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