diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-10 22:35:44 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-10 22:35:44 -0800 |
| commit | 1c1cfb84a5eec12e6b2129ecb9cf95e00b3311f5 (patch) | |
| tree | fc38b1d2e2f5d48e63c32a30cd2287974b309c93 | |
| parent | a1b22abd29aa292b3a30da993984fc76d6d2e3aa (diff) | |
| download | perl-1c1cfb84a5eec12e6b2129ecb9cf95e00b3311f5.tar.gz | |
lex_assign.t fix-up
Duh.
If an operator fails (e.g., due to platform incompatibility), the
assignment won’t happen. So allow a STORE count of 0 if the eval
fails.
| -rw-r--r-- | t/op/lex_assign.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index 1c6e9f3825..bd0c2792eb 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"; - is $sc, 1, "STORE count for $comment"; + like $sc, $@ ? qr/^[01]\z/ : qr/^1\z/, "STORE count for $comment"; } } |