From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 27 Jul 1999 13:49:39 +0000 (+0000)
Subject: Minuscule cleanup of the integer overflow patch.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f84f607d3bf7b1437267d801d5d0f1950b3d8adf;p=p5sagit%2Fp5-mst-13.2.git

Minuscule cleanup of the integer overflow patch.

p4raw-id: //depot/cfgperl@3801
---

diff --git a/util.c b/util.c
index b4ba50e..6fc3d8f 100644
--- a/util.c
+++ b/util.c
@@ -2827,7 +2827,6 @@ Perl_scan_oct(pTHX_ char *start, I32 len, I32 *retlen)
     register UV retval = 0;
     register UV n;
     register I32 d = 0;
-    register bool seeno = FALSE;
     register bool overflow = FALSE;
 
     for (; len-- && *s; s++) {
@@ -2835,9 +2834,9 @@ Perl_scan_oct(pTHX_ char *start, I32 len, I32 *retlen)
 	    if (*s == '_')
 		continue;
 	    else {
-		/* Allow \octal to work DWIM way (that is, stop scanning
-		 * as soon as non-octal characters seen, complain only iff
-		 * someone seems to want to use the eight and nine. */
+		/* Allow \octal to work the DWIM way (that is, stop scanning
+		 * as soon as non-octal characters are seen, complain only iff
+		 * someone seems to want to use the digits eight and nine). */
 		if (*s == '8' || *s == '9') {
 		    dTHR;
 		    if (ckWARN(WARN_OCTAL))