Change 32749 by [EMAIL PROTECTED] on 2007/12/27 23:28:31
Better diagnostics for the tests for #20683.
Affected files ...
... //depot/perl/t/op/pat.t#299 edit
Differences ...
==== //depot/perl/t/op/pat.t#299 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#298~32748~ 2007-12-27 13:41:03.000000000 -0800
+++ perl/t/op/pat.t 2007-12-27 15:28:31.000000000 -0800
@@ -3138,13 +3138,13 @@
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");
}
{
End of Patch.
