--- Compress-LZF/LZF.xs 2002/09/05 22:00:54 1.15 +++ 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; @@ -376,3 +379,4 @@ } else XPUSHs (sv_2mortal (newSVsv (sv))); +