From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 27 Dec 2007 23:28:31 +0000 (+0000)
Subject: Better diagnostics for the tests for #20683.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96704b718ce99c204c7abe57a0c70fd20f6584fd;p=p5sagit%2Fp5-mst-13.2.git

Better diagnostics for the tests for #20683.

p4raw-id: //depot/perl@32749
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 138e5b1..821e652 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");
 }
 
 {