[svn:ponie] rev 320 - in trunk/perl: . t/op

Author: nicholas
Date: Sat Jul  9 09:58:11 2005
New Revision: 320

Modified:
   trunk/perl/sv.c
   trunk/perl/t/op/inc.t
Log:
Integrate 25102 from blead


Modified: trunk/perl/sv.c
==============================================================================
--- trunk/perl/sv.c	(original)
+++ trunk/perl/sv.c	Sat Jul  9 09:58:11 2005
@@ -6336,7 +6336,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)

Modified: trunk/perl/t/op/inc.t
==============================================================================
--- trunk/perl/t/op/inc.t	(original)
+++ trunk/perl/t/op/inc.t	Sat Jul  9 09:58:11 2005
@@ -2,7 +2,7 @@
 
 # use strict;
 
-print "1..26\n";
+print "1..28\n";
 
 my $test = 1;
 
@@ -157,3 +157,11 @@ foreach (keys %postdec) {
 }
 
 check_same (\%orig, \%postdec);
+
+$a = 2147483648;
+$c=--$a;
+ok ($a == 2147483647, $a);
+
+$a = 2147483648;
+$c=$a--;
+ok ($a == 2147483647, $a);

• [svn:ponie] rev 320 - in trunk/perl: . t/op by nicholas