various small tweaks (still fails a few taint tests in {taint,locale}.t)

[p5sagit/p5-mst-13.2.git] / sv.c

diff --git a/sv.c b/sv.c
index d4cac52..f60e820 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3609,7 +3609,7 @@ sv_2mortal(register SV *sv)
     if (!sv)
        return sv;
     if (SvREADONLY(sv) && SvIMMORTAL(sv))
-       return;
+       return sv;
     if (++tmps_ix >= tmps_max)
        sv_mortalgrow();
     tmps_stack[tmps_ix] = sv;