Re: Inconsistent arithmetics on refs

	Message-ID: <13729.33816.311236.995647@alias-2.pr.mcs.net>

p4raw-id: //depot/perl@1361

diff --git a/sv.c b/sv.c
index 0ff19a2..f37989e 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3442,10 +3442,13 @@ sv_inc(register SV *sv)
                croak(no_modify);
        }
        if (SvROK(sv)) {
+           IV i;
 #ifdef OVERLOAD
-         if (SvAMAGIC(sv) && AMG_CALLun(sv,inc)) return;
+           if (SvAMAGIC(sv) && AMG_CALLun(sv,inc)) return;
 #endif /* OVERLOAD */
-         sv_unref(sv);
+           i = (IV)SvRV(sv);
+           sv_unref(sv);
+           sv_setiv(sv, i);
        }
     }
     if (SvGMAGICAL(sv))
@@ -3519,10 +3522,13 @@ sv_dec(register SV *sv)
                croak(no_modify);
        }
        if (SvROK(sv)) {
+           IV i;
 #ifdef OVERLOAD
-         if (SvAMAGIC(sv) && AMG_CALLun(sv,dec)) return;
+           if (SvAMAGIC(sv) && AMG_CALLun(sv,dec)) return;
 #endif /* OVERLOAD */
-         sv_unref(sv);
+           i = (IV)SvRV(sv);
+           sv_unref(sv);
+           sv_setiv(sv, i);
        }
     }
     if (SvGMAGICAL(sv))