| … | |
… | |
| 218 | else |
218 | else |
| 219 | return newSVpvn ("", 0); |
219 | return newSVpvn ("", 0); |
| 220 | } |
220 | } |
| 221 | |
221 | |
| 222 | static void |
222 | static void |
| 223 | need_storable(void) |
223 | need_storable (void) |
| 224 | { |
224 | { |
| 225 | load_module (PERL_LOADMOD_NOIMPORT, serializer_package, Nullsv); |
225 | require_pv (SvPVbyte_nolen (serializer_package)); |
| 226 | |
226 | |
| 227 | storable_mstore = GvCV (gv_fetchpv (SvPVbyte_nolen (serializer_mstore ), TRUE, SVt_PVCV)); |
227 | storable_mstore = (CV *)SvREFCNT_inc (GvCV (gv_fetchpv (SvPVbyte_nolen (serializer_mstore ), TRUE, SVt_PVCV))); |
| 228 | storable_mretrieve = GvCV (gv_fetchpv (SvPVbyte_nolen (serializer_mretrieve), TRUE, SVt_PVCV)); |
228 | storable_mretrieve = (CV *)SvREFCNT_inc (GvCV (gv_fetchpv (SvPVbyte_nolen (serializer_mretrieve), TRUE, SVt_PVCV))); |
| 229 | } |
229 | } |
| 230 | |
230 | |
| 231 | MODULE = Compress::LZF PACKAGE = Compress::LZF |
231 | MODULE = Compress::LZF PACKAGE = Compress::LZF |
| 232 | |
232 | |
| 233 | BOOT: |
233 | BOOT: |
| … | |
… | |
| 243 | PROTOTYPE: $$$ |
243 | PROTOTYPE: $$$ |
| 244 | PPCODE: |
244 | PPCODE: |
| 245 | SvSetSV (serializer_package , package ); |
245 | SvSetSV (serializer_package , package ); |
| 246 | SvSetSV (serializer_mstore , mstore ); |
246 | SvSetSV (serializer_mstore , mstore ); |
| 247 | SvSetSV (serializer_mretrieve, mretrieve); |
247 | SvSetSV (serializer_mretrieve, mretrieve); |
| 248 | storable_mstore = |
248 | SvREFCNT_dec (storable_mstore ); storable_mstore = 0; |
| 249 | storable_mretrieve = 0; |
249 | SvREFCNT_dec (storable_mretrieve); storable_mretrieve = 0; |
| 250 | |
250 | |
| 251 | void |
251 | void |
| 252 | compress(data) |
252 | compress(data) |
| 253 | SV * data |
253 | SV * data |
| 254 | PROTOTYPE: $ |
254 | PROTOTYPE: $ |
