From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 22 Apr 1999 23:12:08 +0000 (+0100)
Subject: PATCH for small bug in scan_bin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6529e8bd3873e81beaa033cdb009d1440aded463;p=p5sagit%2Fp5-mst-13.2.git

PATCH for small bug in scan_bin

	Message-ID: <5104D4DBC598D211B5FE0000F8FE7EB29C6B45@mbtlipnt02.btlabs.bt.co.uk>

p4raw-id: //depot/perl@3354
---

diff --git a/util.c b/util.c
index 31e9c39..d69b084 100644
--- a/util.c
+++ b/util.c
@@ -2440,7 +2440,7 @@ scan_bin(char *start, I32 len, I32 *retlen)
       retval = n | (*s++ - '0');
       len--;
     }
-    if (len && (*s >= '2' || *s <= '9')) {
+    if (len && (*s >= '2' && *s <= '9')) {
       dTHR;
       if (ckWARN(WARN_UNSAFE))
           warner(WARN_UNSAFE, "Illegal binary digit '%c' ignored", *s);