From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 29 Aug 2003 20:22:21 +0000 (+0000)
Subject: Don't cast PL_multiline to bool : you may loose important bits.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8f49695ec8338ebf4a555064783fc9db1320cdd;p=p5sagit%2Fp5-mst-13.2.git

Don't cast PL_multiline to bool : you may loose important bits.

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

diff --git a/pp.c b/pp.c
index 5cb176f..c431ffa 100644
--- a/pp.c
+++ b/pp.c
@@ -4434,7 +4434,7 @@ PP(pp_split)
 		s++;
 	}
     }
-    if ((bool)(pm->op_pmflags & PMf_MULTILINE) != (bool)PL_multiline) {
+    if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) {
 	SAVEINT(PL_multiline);
 	PL_multiline = pm->op_pmflags & PMf_MULTILINE;
     }
diff --git a/pp_hot.c b/pp_hot.c
index c70b227..0851ab8 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1234,7 +1234,7 @@ PP(pp_match)
     if (SvSCREAM(TARG))
 	r_flags |= REXEC_SCREAM;
 
-    if ((bool)(pm->op_pmflags & PMf_MULTILINE) != (bool)PL_multiline) {
+    if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) {
 	SAVEINT(PL_multiline);
 	PL_multiline = pm->op_pmflags & PMf_MULTILINE;
     }
@@ -1979,7 +1979,7 @@ PP(pp_subst)
 	       ? REXEC_COPY_STR : 0;
     if (SvSCREAM(TARG))
 	r_flags |= REXEC_SCREAM;
-    if ((bool)(pm->op_pmflags & PMf_MULTILINE) != (bool)PL_multiline) {
+    if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) {
 	SAVEINT(PL_multiline);
 	PL_multiline = pm->op_pmflags & PMf_MULTILINE;
     }