sv_dec is supposed to go *down*, m'kay.

p4raw-id: //depot/perl@25102

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 268cb3a3b4..99e456e8ee 100644
--- a/sv.c
+++ b/sv.c
@@ -7067,7 +7067,7 @@ Perl_sv_dec(pTHX_ register SV *sv)
 	    }
 	    else {
 		(void)SvIOK_only_UV(sv);
-		SvUV_set(sv, SvUVX(sv) + 1);
+		SvUV_set(sv, SvUVX(sv) - 1);
 	    }	
 	} else {
 	    if (SvIVX(sv) == IV_MIN)