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

[Rafael Garcia-Suarez]

Change 20938 by [EMAIL PROTECTED] on 2003/08/29 20:22:21

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

Affected files ...

... //depot/perl/pp.c#393 edit
... //depot/perl/pp_hot.c#326 edit

Differences ...

==== //depot/perl/pp.c#393 (text) ====
Index: perl/pp.c
--- perl/pp.c#392~20937~        Fri Aug 29 10:22:11 2003
+++ perl/pp.c   Fri Aug 29 13:22:21 2003
@@ -4434,7 +4434,7 @@
                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;
     }

==== //depot/perl/pp_hot.c#326 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#325~20933~    Fri Aug 29 06:25:18 2003
+++ perl/pp_hot.c       Fri Aug 29 13:22:21 2003
@@ -1234,7 +1234,7 @@
     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 @@
               ? 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;
     }
End of Patch.