perl5db: Avoid trailing ifs with 2 expressions.

[perl5.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index a29f70c..e19b24c 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -804,8 +804,10 @@ Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
     PERL_ARGS_ASSERT_SAVE_LIST;
 
     for (i = 1; i <= maxsarg; i++) {
-       SV * const sv = newSV(0);
-       sv_setsv(sv,sarg[i]);
+       SV *sv;
+       SvGETMAGIC(sarg[i]);
+       sv = newSV(0);
+       sv_setsv_nomg(sv,sarg[i]);
        SSCHECK(3);
        SSPUSHPTR(sarg[i]);             /* remember the pointer */
        SSPUSHPTR(sv);                  /* remember the value */
@@ -1206,7 +1208,7 @@ Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
 SV *
 Perl_sv_mortalcopy(pTHX_ SV *const oldstr)
 {
-    Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
+    return Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
 }
 
 END_EXTERN_C