From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 28 Jun 2001 21:36:36 +0000 (+0000)
Subject: Cannot DIE() in a void function,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d5888f83a256d0a7838cc636f157f82966e18d3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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