Fix some compilation warnings

p4raw-id: //depot/perl@26643

diff --git a/pp_hot.c b/pp_hot.c
index 7b12cec..dd4bdad 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -201,8 +201,8 @@ PP(pp_concat)
     dPOPTOPssrl;
     bool lbyte;
     STRLEN rlen;
-    const char *rpv;
-    bool rbyte;
+    const char *rpv = 0;
+    bool rbyte = FALSE;
     bool rcopied = FALSE;
 
     if (TARG == right && right != left) {