diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-17 16:51:17 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-17 22:56:21 -0700 |
| commit | 3a3294736cca38f33952338fa20bc02cffd21550 (patch) | |
| tree | de44edfc5c2abdd8a989512e6cbbe09cc78fa6ef /t/op/caller.t | |
| parent | aef36ea3f34172c62cfa67b1f3809b2873f79b3f (diff) | |
| download | perl-3a3294736cca38f33952338fa20bc02cffd21550.tar.gz | |
t/op/caller.t: Comment magic number
So that when it changes, it is easier to find.
Diffstat (limited to 't/op/caller.t')
| -rw-r--r-- | t/op/caller.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/caller.t b/t/op/caller.t index 44c5ae5310..d08e143324 100644 --- 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'); |