… | |
… | |
67 | CALL_BEGIN (2); |
67 | CALL_BEGIN (2); |
68 | CALL_ARG_SV (newRV_noinc (newSVpvn ((char *)linearise (), size ()))); |
68 | CALL_ARG_SV (newRV_noinc (newSVpvn ((char *)linearise (), size ()))); |
69 | CALL_ARG_SV (newRV_inc ((SV *)av)); |
69 | CALL_ARG_SV (newRV_inc ((SV *)av)); |
70 | CALL_CALL ("cf::object_freezer_as_string", G_SCALAR); |
70 | CALL_CALL ("cf::object_freezer_as_string", G_SCALAR); |
71 | |
71 | |
72 | STRLEN len; |
|
|
73 | |
|
|
74 | char *res = count > 0 |
72 | char *res = count > 0 |
75 | ? strdup (SvPVx (POPs, len)) |
73 | ? strdup (SvPVX (POPs)) |
76 | : strdup ("[fatal error]"); |
74 | : strdup ("[fatal error]"); |
77 | |
75 | |
78 | CALL_END; |
76 | CALL_END; |
79 | |
77 | |
80 | return res; |
78 | return res; |