… | |
… | |
265 | sthaw(sv) |
265 | sthaw(sv) |
266 | SV * sv |
266 | SV * sv |
267 | PROTOTYPE: $ |
267 | PROTOTYPE: $ |
268 | PPCODE: |
268 | PPCODE: |
269 | |
269 | |
|
|
270 | if (!SvPOK (sv)) |
|
|
271 | croak ("Compress::LZF::sthaw(): argument must be a string"); |
|
|
272 | |
270 | if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
273 | if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
271 | { |
274 | { |
272 | switch (SvPVX (sv)[0]) |
275 | switch (SvPVX (sv)[0]) |
273 | { |
276 | { |
274 | case MAGIC_undef: |
277 | case MAGIC_undef: |
… | |
… | |
296 | if (1 != call_sv ((SV *)storable_mretrieve, G_SCALAR)) |
299 | if (1 != call_sv ((SV *)storable_mretrieve, G_SCALAR)) |
297 | croak ("Storable::mstore didn't return a single scalar"); |
300 | croak ("Storable::mstore didn't return a single scalar"); |
298 | |
301 | |
299 | SPAGAIN; |
302 | SPAGAIN; |
300 | |
303 | |
301 | XPUSHs (POPs); /* this is a nop, hope the compiler also knows this */ |
304 | /*XPUSHs (POPs); this is a nop, hopefully */ |
302 | |
305 | |
303 | break; |
306 | break; |
304 | |
307 | |
305 | default: |
308 | default: |
306 | croak ("Compress::LZF::sthaw(): invalid data, maybe you need a newer version of Compress::LZF?"); |
309 | croak ("Compress::LZF::sthaw(): invalid data, maybe you need a newer version of Compress::LZF?"); |