PATCH: Devel::Peek doesn't compile under C++

[perl5.git] / ext / Devel-Peek / Peek.xs

diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
index 027a4e8..28e0e83 100644 (file)
--- a/ext/Devel-Peek/Peek.xs
+++ b/ext/Devel-Peek/Peek.xs
@@ -54,7 +54,7 @@ DeadCode(pTHX)
                    PerlIO_printf(Perl_debug_log, "  busy\n");
                    continue;
                }
-               svp = PADLIST_ARRAY(padlist);
+               svp = (SV**) PADLIST_ARRAY(padlist);
                while (++i <= PADLIST_MAX(padlist)) { /* Depth. */
                    SV **args;