This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Silence win32 compiler warning.
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index f695265..f0a7dbc 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9467,7 +9467,8 @@ S_scan_subst(pTHX_ char *start)
          * spreads over */
         sv_upgrade(PL_parser->lex_sub_repl, SVt_PVNV);
         ((XPVNV*)SvANY(PL_parser->lex_sub_repl))->xnv_u.xnv_lines = 0;
-        ((XPVIV*)SvANY(PL_parser->lex_sub_repl))->xiv_u.xivu_eval_seen = es;
+        ((XPVIV*)SvANY(PL_parser->lex_sub_repl))->xiv_u.xivu_eval_seen =
+                                                                    cBOOL(es);
     }
 
     PL_lex_op = (OP*)pm;