… | |
… | |
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 | |
|
|
273 | if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
270 | if (SvPOK (sv) && IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
274 | { |
271 | { |
275 | switch (SvPVX (sv)[0]) |
272 | switch (SvPVX (sv)[0]) |
276 | { |
273 | { |
277 | case MAGIC_undef: |
274 | case MAGIC_undef: |
278 | XPUSHs (sv_2mortal (NEWSV (0, 0))); |
275 | XPUSHs (sv_2mortal (NEWSV (0, 0))); |