Change 27244 wasn't quite correct. XSUB is dumped as 0x0, not 0.
authorNicholas Clark <nick@ccl4.org>
Sat, 2 Feb 2008 18:41:51 +0000 (18:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 2 Feb 2008 18:41:51 +0000 (18:41 +0000)
p4raw-id: //depot/perl@33206

ext/Devel/Peek/t/Peek.t

index 24cac95..174d014 100644 (file)
@@ -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" : '';