Cannot DIE() in a void function,

from Richard Hatch <rhatch@austin.ibm.com>.

p4raw-id: //depot/perl@11012

diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index c7985f9..39e932d 100644 (file)
--- 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(aTHX_ PL_no_func, "ftok");
+       Perl_die(aTHX_ PL_no_func, "ftok"); return;
 #endif
 
 void