From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 2 Feb 2008 18:41:51 +0000 (+0000)
Subject: Change 27244 wasn't quite correct. XSUB is dumped as 0x0, not 0.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=349133794f77de879ecfb64dfb8a697273132fe6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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" : '';