In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dd90e537d39b34eadaee8ce4df4561bd428f0f9d?hp=8f8135cdff76dd70a053d47afbf3708bbacee96e>
- Log ----------------------------------------------------------------- commit dd90e537d39b34eadaee8ce4df4561bd428f0f9d Author: Father Chrysostomos <[email protected]> Date: Sun Nov 16 18:49:29 2014 -0800 lex_assign.t: Make store count test stricter If â$foo = some opâ croaks and $foo has not been made read-only, then it must be becasue âsome opâ croaked, in which case the assignment must not have happened. We can make this test stricter and make sure the assignment doesnât happen, to avoid the possibility of buggy ops that write to their targets before croaking. ----------------------------------------------------------------------- Summary of changes: t/op/lex_assign.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index e937885..311d5e9 100644 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -132,7 +132,7 @@ EOE $sc = 0; local $SIG{__WARN__} = \&wrn; eval "\$m = $op"; - like $sc, $@ ? qr/^[01]\z/ : qr/^1\z/, "STORE count for $comment"; + is $sc, $@ ? 0 : 1, "STORE count for $comment"; } } -- Perl5 Master Repository
