--- Compress-LZF/LZF.xs 2001/09/27 20:08:05 1.5 +++ Compress-LZF/LZF.xs 2001/09/27 20:09:02 1.6 @@ -267,10 +267,7 @@ PROTOTYPE: $ PPCODE: - if (!SvPOK (sv)) - croak ("Compress::LZF::sthaw(): argument must be a string"); - - if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) + if (SvPOK (sv) && IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI)) { switch (SvPVX (sv)[0]) {