D:P: Change to use modern skip functionality

[perl5.git] / dist / Devel-PPPort / parts / inc / newSVpv

diff --git a/dist/Devel-PPPort/parts/inc/newSVpv b/dist/Devel-PPPort/parts/inc/newSVpv
index 067f6eb..daf7c1b 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/newSVpv
+++ b/dist/Devel-PPPort/parts/inc/newSVpv
@@ -93,5 +93,5 @@ if ("$]" >= 5.008001) {
   ok(utf8::is_utf8($s[0]));
 }
 else {
-  skip("skip: no is_utf8()", 0);
+  skip("skip: no is_utf8()", 1);
 }