pp_ctl.c:pp_goto: Cast a boolean properly

Otherwise we might end up using AvARRAY on a tied array.

diff --git a/pp_ctl.c b/pp_ctl.c
index bab301e..5eebe24 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2896,7 +2896,7 @@ PP(pp_goto) /* also pp_dump */
                SV **newsp;
                I32 gimme;
                const SSize_t items = arg ? AvFILL(arg) + 1 : 0;
-               const bool m = arg ? SvRMAGICAL(arg) : 0;
+               const bool m = arg ? cBOOL(SvRMAGICAL(arg)) : 0;
                SV** mark;
 
                 PERL_UNUSED_VAR(newsp);