This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/utf8: Don't use postfix for in D:P tests
authorKarl Williamson <khw@cpan.org>
Sun, 15 Sep 2019 16:21:06 +0000 (10:21 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:28 +0000 (16:39 -0600)
Devel::PPPort goes back further than this construct.
(cherry picked from commit f5c4f171dfbd4ead0b9a9dd191c9709f9fedcbd5)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/utf8
dist/Devel-PPPort/t/utf8.t

index 1b9e523..a9c166f 100644 (file)
@@ -638,7 +638,9 @@ if ("$]" ge '5.008') {
     ok(tied($scalar)->{fetch}, 3);
     ok(tied($scalar)->{store}, 0);
 } else {
-    skip 'skip: no SV_NOSTEAL support', 0 for 1..23;
+    for (1..23) {
+        skip 'skip: no SV_NOSTEAL support', 0;
+    }
 }
 
 package TieScalarCounter;
index 7703880..119553d 100644 (file)
@@ -232,7 +232,9 @@ if ("$]" ge '5.008') {
     ok(tied($scalar)->{fetch}, 3);
     ok(tied($scalar)->{store}, 0);
 } else {
-    skip 'skip: no SV_NOSTEAL support', 0 for 1..23;
+    for (1..23) {
+        skip 'skip: no SV_NOSTEAL support', 0;
+    }
 }
 
 package TieScalarCounter;