… | |
… | |
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: $ |