projects
/
perl.git
/ commitdiff
free
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
3bc366b
)
Avoid overflow warning in chop.t.
author
Craig A. Berry <craigberry@mac.com>
Fri, 4 Jun 2010 03:17:39 +0000 (22:17 -0500)
committer
Father Chrysostomos <sprout@cpan.org>
Sat, 3 Sep 2011 21:00:18 +0000 (14:00 -0700)
It overflows at compile time on 32-bit architectures, so the skip
isn't enough.
(cherry picked from commit
dfae30232f1b277231b0dee813acbeca0b958afd
)
t/op/chop.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/chop.t
b/t/op/chop.t
index
83e5d71
..
1d66af9
100644
(file)
--- a/
t/op/chop.t
+++ b/
t/op/chop.t
@@
-253,6
+253,7
@@
foreach my $start (@chars) {
is($result, "\x{80000000}", "chopping high 'unicode' - result");
SKIP: {
+ no warnings 'overflow'; # avoid compile-time warnings below on 32-bit architectures
use Config;
$Config{ivsize} >= 8
or skip("this build can't handle very large characters", 2);