… | |
… | |
1197 | int unused_type; |
1197 | int unused_type; |
1198 | object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); |
1198 | object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); |
1199 | } |
1199 | } |
1200 | break; |
1200 | break; |
1201 | case CFAPI_STRING: |
1201 | case CFAPI_STRING: |
1202 | cf_object_set_string_property (obj, idx, SvPV_nolen (newval)); |
1202 | cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0); |
|
|
1203 | break; |
|
|
1204 | case CFAPI_POBJECT: |
|
|
1205 | { |
|
|
1206 | int unused_type; |
|
|
1207 | object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object")); |
|
|
1208 | } |
1203 | break; |
1209 | break; |
1204 | default: |
1210 | default: |
1205 | croak ("unhandled type '%d' in set_property '%d'", type, idx); |
1211 | croak ("unhandled type '%d' in set_property '%d'", type, idx); |
1206 | } |
1212 | } |
1207 | |
1213 | |