This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
613a9ec
)
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
Craig A. Berry
<craigberry@mac.com>
Fri, 4 Jun 2010 21:26:54 +0000
(16:26 -0500)
It overflows at compile time on 32-bit architectures, so the skip
isn't enough.
t/op/chop.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/chop.t
b/t/op/chop.t
index
36f8cad
..
4aa8db3
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);