Deprecate Unicode code points above IV_MAX

[perl5.git] / t / op / ver.t

diff --git a/t/op/ver.t b/t/op/ver.t
index cbbebba..503efd7 100644 (file)
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -225,6 +225,7 @@ ok( abs($v - $]) < 10**-8 , "\$^V == \$] (numeric)" );
 
 {
 
+  no warnings 'deprecated'; # These are above IV_MAX on 32 bit machines
   # [ID 20010902.001] check if v-strings handle full UV range or not
   if ( $Config{'uvsize'} >= 4 ) {
     is(  sprintf("%vd", eval 'v2147483647.2147483648'),   '2147483647.2147483648', 'v-string > IV_MAX[32-bit]' );