Change 27244 wasn't quite correct. XSUB is dumped as 0x0, not 0.

p4raw-id: //depot/perl@33206

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 24cac95..174d014 100644 (file)
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -36,7 +36,7 @@ sub do_test {
            $pattern =~ s/^(\s*)(SV =.* at )/(?:$1ALLOCATED at .*?\n)?$1$2/mg;
 
            $pattern =~ s/^ *\$XSUB *\n/
-               ($] < 5.009) ? "    XSUB = 0\n    XSUBANY = 0\n" : '';
+               ($] < 5.009) ? "    XSUB = 0x0\n    XSUBANY = 0\n" : '';
            /mge;
            $pattern =~ s/^ *\$ROOT *\n/
                ($] < 5.009) ? "    ROOT = 0x0\n" : '';