X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl_c.c;h=f11a2b5535553a588d81bdfcbd2f8d5c4c3cacdc;hb=f71f13bd5e85b5cca4e9c2e63bf9d9c3283d66cf;hp=20d4299f818ffd1ecec669b4ded127dfbb318ce9;hpb=7e4c9fd14a6ece5941cadec586daaf4ab8f02d39;p=perl4caml.git

diff --git a/perl_c.c b/perl_c.c
index 20d4299..f11a2b5 100644
--- a/perl_c.c
+++ b/perl_c.c
@@ -1,6 +1,6 @@
 /* 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>
@@ -233,7 +233,7 @@ perl4caml_deref (value svv)
   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:
@@ -256,7 +256,7 @@ perl4caml_deref_array (value svv)
   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:
@@ -275,7 +275,7 @@ perl4caml_deref_hash (value svv)
   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: