diff options
| -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) ], |