| … | |
… | |
| 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?"); |
