Change 33207 by [EMAIL PROTECTED] on 2008/02/02 18:43:10
Integrate:
[ 33206]
Change 27244 wasn't quite correct. XSUB is dumped as 0x0, not 0.
Affected files ...
... //depot/maint-5.10/perl/ext/Devel/Peek/t/Peek.t#4 integrate
Differences ...
==== //depot/maint-5.10/perl/ext/Devel/Peek/t/Peek.t#4 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#3~33128~ 2008-01-30 08:40:00.000000000
-0800
+++ perl/ext/Devel/Peek/t/Peek.t 2008-02-02 10:43:10.000000000 -0800
@@ -36,7 +36,7 @@
$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" : '';
End of Patch.
