/* Interface to Perl from OCaml.
* Copyright (C) 2003 Merjis Ltd.
- * $Id: perl_c.c,v 1.15 2004-03-03 12:39:20 rich Exp $
+ * $Id: perl_c.c,v 1.16 2004-11-03 14:15:18 rich Exp $
*/
#include <stdio.h>
CAMLlocal1 (rsvv);
SV *sv = Sv_val (svv);
- if (SvROK (sv))
+ if (!SvROK (sv))
invalid_argument ("deref: SV is not a reference");
switch (SvTYPE (SvRV (sv))) {
case SVt_IV:
CAMLlocal1 (ravv);
SV *sv = Sv_val (svv);
- if (SvROK (sv))
+ if (!SvROK (sv))
invalid_argument ("deref_array: SV is not a reference");
switch (SvTYPE (SvRV (sv))) {
case SVt_PVAV:
CAMLlocal1 (rhvv);
SV *sv = Sv_val (svv);
- if (SvROK (sv))
+ if (!SvROK (sv))
invalid_argument ("deref_hash: SV is not a reference");
switch (SvTYPE (SvRV (sv))) {
case SVt_PVHV: