diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-06-09 19:53:20 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-06-09 19:53:20 +0100 |
| commit | c2485e0c886f5e7d6fd27b65f085b0ba231ca557 (patch) | |
| tree | e904b255e76fcedf54f6467b5247d5668917e73d /ext/Devel-Peek | |
| parent | ede3a6167fdc98bf29305444db6ff93c33d8155d (diff) | |
| download | perl-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.t | 7 |
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\\)'); |