This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Help to compile on VMS with UNLINK_ALL_VERSIONS
authorJohn E. Malmberg <wb8tyw@qsl.net>
Tue, 13 Dec 2005 22:18:56 +0000 (17:18 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 3 Feb 2006 14:06:40 +0000 (14:06 +0000)
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

perl.h

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