*
* Author : Paul Marquess
* Date : 2014-12-09 02:48:44 rurban
- * Version : 1.54
+ * Version : 1.55
*
* Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
* Copyright (c) 2011-2014 Reini Urban. All rights reserved.
DEFSV_set(newSVpv("", 0)) ;
PUSHMARK(sp) ;
-
if (CODE_REF(my_sv)) {
/* if (SvROK(PERL_OBJECT(my_sv)) && SvTYPE(SvRV(PERL_OBJECT(my_sv))) == SVt_PVCV) { */
count = perl_call_sv((SV*)PERL_OBJECT(my_sv), G_SCALAR);
}
else {
XPUSHs((SV*)PERL_OBJECT(my_sv)) ;
-
PUTBACK ;
-
count = perl_call_method("filter", G_SCALAR);
}
-
SPAGAIN ;
if (count != 1)