From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 Jan 2002 00:03:27 +0000 (+0000)
Subject: -Wall silencing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f052c252aae9b0ee4c2e0248b24590df50414a11;p=p5sagit%2Fp5-mst-13.2.git

-Wall silencing.

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

diff --git a/utf8.c b/utf8.c
index 5d42efd..81711e7 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1722,8 +1722,8 @@ http://www.unicode.org/unicode/reports/tr21/ (Case Mappings).
 I32
 Perl_ibcmp_utf8(pTHX_ const char *s1, bool u1, register I32 len1, const char *s2, bool u2, register I32 len2)
 {
-     register U8 *p1  = (U8*)s1, *q1;
-     register U8 *p2  = (U8*)s2, *q2;
+     register U8 *p1  = (U8*)s1, *q1 = 0;
+     register U8 *p2  = (U8*)s2, *q2 = 0;
      register U8 *e1 = p1 + len1;
      register U8 *e2 = p2 + len2;
      STRLEN l1 = 0, l2 = 0;