diff options
| author | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | fc75d0664419eb8c8f264d8f298df2cd155c8966 (patch) | |
| tree | 4cf1274fa3ca68f7ecf6a3051e0c2243e378afc5 /contrib/perl5/ext/IPC/SysV/SysV.xs | |
| parent | 8947993a910c7e5d244200623325b9fcb54a9eee (diff) | |
Vendor import Perl 5.6.1
Notes
Notes:
svn path=/vendor/perl5/dist/; revision=92442
Diffstat (limited to 'contrib/perl5/ext/IPC/SysV/SysV.xs')
| -rw-r--r-- | contrib/perl5/ext/IPC/SysV/SysV.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/perl5/ext/IPC/SysV/SysV.xs b/contrib/perl5/ext/IPC/SysV/SysV.xs index 38062e028b5e..c7985f99fe3e 100644 --- a/contrib/perl5/ext/IPC/SysV/SysV.xs +++ b/contrib/perl5/ext/IPC/SysV/SysV.xs @@ -194,7 +194,7 @@ PPCODE: MODULE=IPC::SysV PACKAGE=IPC::SysV -int +void ftok(path, id) char * path int id @@ -203,10 +203,10 @@ ftok(path, id) key_t k = ftok(path, id); ST(0) = k == (key_t) -1 ? &PL_sv_undef : sv_2mortal(newSViv(k)); #else - DIE(PL_no_func, "ftok"); + DIE(aTHX_ PL_no_func, "ftok"); #endif -int +void SHMLBA() CODE: #ifdef SHMLBA @@ -436,7 +436,7 @@ BOOT: char *name; int i; - for(i = 0 ; name = IPC__SysV__const[i].n ; i++) { + for(i = 0 ; (name = IPC__SysV__const[i].n) ; i++) { newCONSTSUB(stash,name, newSViv(IPC__SysV__const[i].v)); } } |