Revert "[perl #62646] Maximum string length with substr"

This reverts commit b6d1426f94a845fb8fece8b6ad0b7d9f35f2d62e.

Conflicts:

	pp.c

1 files changed, 1 insertions, 16 deletions

diff --git a/t/re/substr.t b/t/re/substr.t
index 49fd97bea7..c3fa6e10e7 100644
--- a/t/re/substr.t
+++ b/t/re/substr.t
@@ -24,7 +24,7 @@ $SIG{__WARN__} = sub {
 
 require './test.pl';
 
-plan(338);
+plan(334);
 
 run_tests() unless caller;
 
@@ -682,19 +682,4 @@ is($x, "\x{100}\x{200}\xFFb");
     is(substr($a,1,1), 'b');
 }
 
-# [perl #62646] offsets exceeding 32 bits on 64-bit system
-SKIP: {
-    skip("32-bit system", 4) unless ~0 > 0xffffffff;
-    my $a = "abc";
-    my $r;
-    $w = 0;
-    $r = substr($a, 0xffffffff, 1);
-    is($r, undef);
-    is($w, 1);
-    $w = 0;
-    $r = substr($a, 0xffffffff+1, 1);
-    is($r, undef);
-    is($w, 1);
-}
-
 }