… | |
… | |
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)) |
270 | SvGETMAGIC (sv); |
271 | croak ("Compress::LZF::sthaw(): argument must be a string"); |
|
|
272 | |
|
|
273 | if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
271 | if (SvPOK (sv) && IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) |
274 | { |
272 | { |
275 | switch (SvPVX (sv)[0]) |
273 | switch (SvPVX (sv)[0]) |
276 | { |
274 | { |
277 | case MAGIC_undef: |
275 | case MAGIC_undef: |
278 | XPUSHs (sv_2mortal (NEWSV (0, 0))); |
276 | XPUSHs (sv_2mortal (NEWSV (0, 0))); |