summaryrefslogtreecommitdiff
path: root/ext/Devel-Peek
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-06-09 19:53:20 +0100
committerNicholas Clark <nick@ccl4.org>2010-06-09 19:53:20 +0100
commitc2485e0c886f5e7d6fd27b65f085b0ba231ca557 (patch)
treee904b255e76fcedf54f6467b5247d5668917e73d /ext/Devel-Peek
parentede3a6167fdc98bf29305444db6ff93c33d8155d (diff)
downloadperl-c2485e0c886f5e7d6fd27b65f085b0ba231ca557.tar.gz
Reorder CVf_* flags to be numerically contiguous again.
The removal of CVf_ASSERTION in 584420f022db5722 and CVf_LOCKED in e95ab0c0d2aa1b35 left two gaps in the sequence of bits in use.
Diffstat (limited to 'ext/Devel-Peek')
-rw-r--r--ext/Devel-Peek/t/Peek.t7
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index e4ccbf589d..699afd6898 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -56,10 +56,11 @@ sub do_test {
# legitimate regexp, it still isn't true. Seems easier and clearer
# things that look like comments.
+ my $version_condition = qr/\$] [<>]=? 5\.\d\d\d/;
# Could do this is in a s///mge but seems clearer like this:
$pattern = join '', map {
# If we identify the version condition, take *it* out whatever
- s/\s*# (\$] [<>]=? 5\.\d\d\d)$//
+ s/\s*# ($version_condition(?: && $version_condition)?)$//
? (eval $1 ? $_ : '')
: $_ # Didn't match, so this line is in
} split /^/, $pattern;
@@ -311,6 +312,7 @@ do_test(14,
\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$todo"
\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$repeat_todo"
\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$pattern"
+ \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$version_condition"
\\d+\\. $ADDR<\\d+> FAKE "\\$DEBUG" # $] < 5.009
\\d+\\. $ADDR<\\d+> FAKE "\\$DEBUG" flags=0x0 index=0 # $] >= 5.009
\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$dump"
@@ -591,7 +593,8 @@ do_test(23,
MUTEXP = $ADDR
OWNER = $ADDR)?
FLAGS = 0x200 # $] < 5.009
- FLAGS = 0xc00 # $] >= 5.009
+ FLAGS = 0xc00 # $] >= 5.009 && $] < 5.013
+ FLAGS = 0xc # $] >= 5.013
OUTSIDE_SEQ = 0
PADLIST = 0x0
OUTSIDE = 0x0 \\(null\\)');