diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-28 21:36:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-28 21:36:36 +0000 |
| commit | 7d5888f83a256d0a7838cc636f157f82966e18d3 (patch) | |
| tree | f4cc73ea3f8adaae573fdfa8c0bae0da491070e0 /ext/IPC | |
| parent | 5cdb7193c99562e084aa84a8d7e591d45d76305a (diff) | |
| download | perl-7d5888f83a256d0a7838cc636f157f82966e18d3.tar.gz | |
Cannot DIE() in a void function,
from Richard Hatch <rhatch@austin.ibm.com>.
p4raw-id: //depot/perl@11012
Diffstat (limited to 'ext/IPC')
| -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 |