--- Compress-LZF/LZF.xs 2004/04/20 02:37:29 1.16 +++ Compress-LZF/LZF.xs 2004/08/03 15:04:05 1.18 @@ -14,6 +14,9 @@ # define call_sv perl_call_sv #endif +#define HLOG 15 +#define ULTRA_FAST 0 + #include "lzf_c.c" #include "lzf_d.c" @@ -366,7 +369,7 @@ SvPVX (sv)[0] = MAGIC_R_deref; } else - XPUSHs (POPs); /* this is a nop, hopefully */ + SETs (sv_2mortal (newSVsv (TOPs))); break;