In perl.git, the branch smartmatch has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f1bef09e9115ebdc1c8818193d6c4cbb8bc050e6?hp=329802ba974fc09df2d12cae487624062c657883>
- Log ----------------------------------------------------------------- commit f1bef09e9115ebdc1c8818193d6c4cbb8bc050e6 Author: Rafael Garcia-Suarez <[email protected]> Date: Tue May 5 09:55:27 2009 +0200 Add tests for @array ~~ $string ----------------------------------------------------------------------- Summary of changes: t/op/smartmatch.t | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index b2a213e..cf819be 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -306,6 +306,10 @@ __DATA__ 12345 qr/3/ ! 12345 qr/7/ +# array against string + @fooormore "@fooormore" +! @keyandmore "@fooormore" + # Test the implicit referencing 7 @nums @nums \...@nums -- Perl5 Master Repository
