1 files changed, 1 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 37ba21022e..cf5e0bfcdd 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