This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/utf8: Fix for loops to work on early perls
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jul 2019 04:23:59 +0000 (22:23 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
You can't use a for statement modifier, nor declare a variable as part
of the for statement.

(cherry picked from commit 5ebfad4758132f28a11b3a5c1e58c9c0c8bc3a30)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/utf8
dist/Devel-PPPort/t/utf8.t

index ff37b9d..c8e9a09 100644 (file)
@@ -483,7 +483,9 @@ ok(&Devel::PPPort::isUTF8_CHAR("\x{100}",  -1), 0);
 ok(&Devel::PPPort::isUTF8_CHAR("\x{100}",  0), 2);
 
 if ("$]" lt '5.008') {
-    ok(1, 1) for 1 ..3
+    for (1 ..3) {
+        ok(1, 1)
+    }
 }
 else {
     ok(&Devel::PPPort::foldEQ_utf8("A\x{100}", 3, 1, "a\x{101}", 3, 1), 1);
@@ -508,7 +510,9 @@ ok($ret->[0], 0);
 ok($ret->[1], 1);
 
 if (ord("A") != 65) {   # tests not valid for EBCDIC
-    ok(1, 1) for 1 .. (2 + 4 + (7 * 5));
+    for (1 .. (2 + 4 + (7 * 5))) {
+        ok(1, 1);
+    }
 }
 else {
     $ret = &Devel::PPPort::utf8_to_uvchr_buf("\xc4\x80", 0);
@@ -581,14 +585,18 @@ else {
     use vars '%Config';
     if ($Config{ccflags} =~ /-DDEBUGGING/) {
         shift @buf_tests;
-        ok(1, 1) for 1..5;
+        for (1..5) {
+            ok(1, 1);
+        }
     }
 
-    for my $test (@buf_tests) {
+    my $test;
+    for $test (@buf_tests) {
         my $input = $test->{'input'};
         my $adjustment = $test->{'adjustment'};
         my $display = 'utf8_to_uvchr_buf("';
-        for (my $i = 0; $i < length($input) + $adjustment; $i++) {
+        my $i;
+        for ($i = 0; $i < length($input) + $adjustment; $i++) {
             $display .= sprintf "\\x%02x", ord substr($input, $i, 1);
         }
 
index d9d149b..84e38f8 100644 (file)
@@ -67,7 +67,9 @@ ok(&Devel::PPPort::isUTF8_CHAR("\x{100}",  -1), 0);
 ok(&Devel::PPPort::isUTF8_CHAR("\x{100}",  0), 2);
 
 if ("$]" lt '5.008') {
-    ok(1, 1) for 1 ..3
+    for (1 ..3) {
+        ok(1, 1)
+    }
 }
 else {
     ok(&Devel::PPPort::foldEQ_utf8("A\x{100}", 3, 1, "a\x{101}", 3, 1), 1);
@@ -92,7 +94,9 @@ ok($ret->[0], 0);
 ok($ret->[1], 1);
 
 if (ord("A") != 65) {   # tests not valid for EBCDIC
-    ok(1, 1) for 1 .. (2 + 4 + (7 * 5));
+    for (1 .. (2 + 4 + (7 * 5))) {
+        ok(1, 1);
+    }
 }
 else {
     $ret = &Devel::PPPort::utf8_to_uvchr_buf("\xc4\x80", 0);
@@ -165,14 +169,18 @@ else {
     use vars '%Config';
     if ($Config{ccflags} =~ /-DDEBUGGING/) {
         shift @buf_tests;
-        ok(1, 1) for 1..5;
+        for (1..5) {
+            ok(1, 1);
+        }
     }
 
-    for my $test (@buf_tests) {
+    my $test;
+    for $test (@buf_tests) {
         my $input = $test->{'input'};
         my $adjustment = $test->{'adjustment'};
         my $display = 'utf8_to_uvchr_buf("';
-        for (my $i = 0; $i < length($input) + $adjustment; $i++) {
+        my $i;
+        for ($i = 0; $i < length($input) + $adjustment; $i++) {
             $display .= sprintf "\\x%02x", ord substr($input, $i, 1);
         }