A missing aTHX_.
Jarkko Hietaniemi [Wed, 8 Nov 2000 22:42:55 +0000 (22:42 +0000)]
p4raw-id: //depot/perl@7614

ext/IPC/SysV/SysV.xs

index 38062e0..4a10eb9 100644 (file)
@@ -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