diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-18 10:43:25 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-18 11:15:00 -0800 |
| commit | 544303ee2c02a7b1a482fbe23470d24904ac1f0e (patch) | |
| tree | 9137cc7d07aa95470331cb622b7e406f3370d918 /t/op/ref.t | |
| parent | a6d5f32180c6c2bee892290361a69780806e6339 (diff) | |
| download | perl-544303ee2c02a7b1a482fbe23470d24904ac1f0e.tar.gz | |
[perl #106288] Tests for \scalar @array
Diffstat (limited to 't/op/ref.t')
| -rw-r--r-- | t/op/ref.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index e2ba10fca2..299ccdb5bf 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -8,7 +8,7 @@ BEGIN { use strict qw(refs subs); -plan(224); +plan(228); # Test glob operations. @@ -185,6 +185,8 @@ for ( [ 'PVNV', SCALAR => \$pvnv ], [ 'PVMG', SCALAR => \$0 ], [ 'PVBM', SCALAR => \PVBM ], + [ 'scalar @array', SCALAR => \scalar @array ], + [ 'scalar %hash', SCALAR => \scalar %hash ], [ 'vstring', VSTRING => \v1 ], [ 'ref', REF => \\1 ], [ 'substr lvalue', LVALUE => \substr($x, 0, 0) ], |