diff options
| -rw-r--r-- | ext/IPC/SysV/SysV.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs index c7985f99fe..39e932da04 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 |