Better diagnostics for the tests for #20683.

p4raw-id: //depot/perl@32749

1 files changed, 2 insertions, 2 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 138e5b113a..821e6526d5 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -3138,13 +3138,13 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
     foreach (1,2,3,4) {
 	    $p++ if /(??{ $p })/
     }
-    ok ($p == 5, "[perl #20683] (??{ }) returns stale values");
+    iseq ($p, 5, "[perl #20683] (??{ }) returns stale values");
     { package P; $a=1; sub TIESCALAR { bless[] } sub FETCH { $a++ } }
     tie $p, P;
     foreach (1,2,3,4) {
 	    /(??{ $p })/
     }
-    ok ( $p == 5, "(??{ }) returns stale values");
+    iseq ( $p, 5, "(??{ }) returns stale values");
 }
 
 {