#17842 was only half the story

Subject: [PATCH deb.c] Re: HiRes failure is success?
Message-ID: <20020904161115.E27603@fdgroup.com>

p4raw-id: //depot/perl@17843

diff --git a/deb.c b/deb.c
index 873e2be..413e9ff 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -198,7 +198,7 @@ Perl_deb_stack_all(pTHX)
            cx = &(si->si_cxstack[ix]);
            PerlIO_printf(Perl_debug_log,
                    "  CX %"IVdf": %-6s => ",
-                   ix, PL_block_type[CxTYPE(cx)]
+                   (IV)ix, PL_block_type[CxTYPE(cx)]
            );
            /* substitution contexts don't save stack pointers etc) */
            if (CxTYPE(cx) == CXt_SUBST)