From 5dbb2e9334e536644db3f76ee525a94a427d9268 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 8 Nov 2000 22:42:55 +0000
Subject: A missing aTHX_.

p4raw-id: //depot/perl@7614
---
 ext/IPC/SysV/SysV.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index 38062e028b..4a10eb90e3 100644
--- a/ext/IPC/SysV/SysV.xs
+++ b/ext/IPC/SysV/SysV.xs
@@ -203,7 +203,7 @@ ftok(path, id)
         key_t k = ftok(path, id);
         ST(0) = k == (key_t) -1 ? &PL_sv_undef : sv_2mortal(newSViv(k));
 #else
-        DIE(PL_no_func, "ftok");
+        DIE(aTHX_ PL_no_func, "ftok");
 #endif
 
 int
-- 
cgit v1.2.1