ossp-pkg/cfg/perl/cfg.xs 1.3 -> 1.4
--- cfg.xs 2004/11/17 13:19:09 1.3
+++ cfg.xs 2004/11/17 13:20:29 1.4
@@ -602,7 +602,7 @@
case CFG_DATA_TYPE_PTR: {
void *arg;
RETVAL = cfg_data_get(data, attr, &arg);
- sv_setiv(va_arg1, PTR2INT(arg));
+ sv_setiv(va_arg1, PTR2IV(arg));
break;
}
case CFG_DATA_TYPE_STR: {
|
|