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

p4raw-id: //depot/perl@1309

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index d4cac52e9a..f60e8206ca 100644
--- 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;