projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
aef36ea
)
t/op/caller.t: Comment magic number
author
Karl Williamson
<public@khwilliamson.com>
Thu, 17 Feb 2011 23:51:17 +0000
(16:51 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Fri, 18 Feb 2011 05:56:21 +0000
(22:56 -0700)
So that when it changes, it is easier to find.
t/op/caller.t
patch
|
blob
|
history
diff --git
a/t/op/caller.t
b/t/op/caller.t
index
44c5ae5
..
d08e143
100644
(file)
--- a/
t/op/caller.t
+++ b/
t/op/caller.t
@@
-108,6
+108,9
@@
sub testwarn {
$registered = $default;
vec($registered, $warnings::LAST_BIT/2, 2) = 1;
}
+
+ # The repetition number must be set to the value of $BYTES in
+ # lib/warnings.pm
BEGIN { check_bits( ${^WARNING_BITS}, "\0" x 12, 'all bits off via "no warnings"' ) }
testwarn("\0" x 12, 'no bits');