Mailing List Archive

Author: creamyg
Date: 2008-08-03 00:28:03 -0700 (Sun, 03 Aug 2008)
New Revision: 3698

Modified:
trunk/perl/lib/KinoSearch.pm
Log:
Fix commit glitch in ToolSet::to_perl XS binding. (typo zapped argument to
sv_isobject).


Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-08-03 04:57:26 UTC (rev 3697)
+++ trunk/perl/lib/KinoSearch.pm 2008-08-03 07:28:03 UTC (rev 3698)
@@ -1115,7 +1115,7 @@
SV *sv;
CODE:
{
- if (sv_isobject && sv_derived_from(sv, KINO_OBJ.name->ptr)) {
+ if (sv_isobject(sv) && sv_derived_from(sv, KINO_OBJ.name->ptr)) {
IV tmp = SvIV(SvRV(sv));
kino_Obj* obj = INT2PTR(kino_Obj*, tmp);
RETVAL = kobj_to_pobj(obj);


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits