A type change that apparently works around a compiler bug

(gcc 4.1.1 on Solaris) (by Robin Barker)

p4raw-id: //depot/perl@28735

diff --git a/pp_hot.c b/pp_hot.c
index aa792bf..32274ff 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -417,7 +417,7 @@ PP(pp_defined)
     register SV* sv;
     bool defined;
     const int op_type = PL_op->op_type;
-    const int is_dor = (op_type == OP_DOR || op_type == OP_DORASSIGN);
+    const bool is_dor = (op_type == OP_DOR || op_type == OP_DORASSIGN);
 
     if (is_dor) {
         sv = TOPs;