1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Devel-PPPort/parts/inc/strlfuncs b/dist/Devel-PPPort/parts/inc/strlfuncs
index 82b5e43541..b58d5e0103 100644
--- a/dist/Devel-PPPort/parts/inc/strlfuncs
+++ b/dist/Devel-PPPort/parts/inc/strlfuncs
@@ -103,5 +103,5 @@ my @r = Devel::PPPort::my_strlfunc();
 ok(@e == @r);
 
 for (0 .. $#e) {
-  ok($r[$_], $e[$_]);
+  is($r[$_], $e[$_]);
 }