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:
be108a0
)
Peek.t needs to know about the prev. change
author
Father Chrysostomos
<sprout@cpan.org>
Mon, 15 Sep 2014 16:35:50 +0000
(09:35 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Mon, 15 Sep 2014 21:49:17 +0000
(14:49 -0700)
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
492b8ed
..
643ff45
100644
(file)
--- a/
ext/Devel-Peek/t/Peek.t
+++ b/
ext/Devel-Peek/t/Peek.t
@@
-493,6
+493,7
@@
do_test('typeglob',
NAME = "a"
NAMELEN = 1
GvSTASH = $ADDR\\t"main"
+ FLAGS = $ADDR # $] >=5.021004
GP = $ADDR
SV = $ADDR
REFCNT = 1
@@
-505,7
+506,7
@@
do_test('typeglob',
GPFLAGS = 0x0 # $] < 5.009
LINE = \\d+
FILE = ".*\\b(?i:peek\\.t)"
- FLAGS = $ADDR
+ FLAGS = $ADDR
# $] < 5.021004
EGV = $ADDR\\t"a"');
if (ord('A') == 193) {