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

Commit c9795579db61c900bacee2790bdceb7bad3dd45d introduced
an error in C++: it's missing a cast.

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;