Change 11012 by jhi@alpha on 2001/06/28 21:36:36
Cannot DIE() in a void function,
from Richard Hatch <[EMAIL PROTECTED]>.
Affected files ...
... //depot/perl/ext/IPC/SysV/SysV.xs#15 edit
Differences ...
==== //depot/perl/ext/IPC/SysV/SysV.xs#15 (text) ====
Index: perl/ext/IPC/SysV/SysV.xs
--- perl/ext/IPC/SysV/SysV.xs.~1~ Thu Jun 28 15:45:05 2001
+++ perl/ext/IPC/SysV/SysV.xs Thu Jun 28 15:45:05 2001
@@ -203,7 +203,7 @@
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
End of Patch.
