This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
357244a
)
Change 27244 wasn't quite correct. XSUB is dumped as 0x0, not 0.
author
Nicholas Clark
<nick@ccl4.org>
Sat, 2 Feb 2008 18:41:51 +0000
(18:41 +0000)
committer
Nicholas 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
patch
|
blob
|
blame
|
history
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 = 0
x0
\n XSUBANY = 0\n" : '';
/mge;
$pattern =~ s/^ *\$ROOT *\n/
($] < 5.009) ? " ROOT = 0x0\n" : '';