From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 17 Oct 2013 19:43:54 +0000 (-0400)
Subject: fix compiler warning
X-Git-Tag: upstream/5.20.0~1541
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=80931db166568dce568bdcb2dea79a1dfebf1c15;p=platform%2Fupstream%2Fperl.git

fix compiler warning
---

diff --git a/toke.c b/toke.c
index f9977d2..28e3511 100644
--- a/toke.c
+++ b/toke.c
@@ -9427,7 +9427,7 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni)
     char *d = dest;
     char * const e = d + destlen - 3;    /* two-character token, ending NUL */
     bool is_utf8 = cBOOL(UTF);
-    I32 orig_copline, tmp_copline = 0;
+    I32 orig_copline = 0, tmp_copline = 0;
 
     PERL_ARGS_ASSERT_SCAN_IDENT;