lvref.t: Test \$foo = \*bar
authorFather Chrysostomos <sprout@cpan.org>
Sun, 21 Sep 2014 23:04:23 +0000 (16:04 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 04:54:10 +0000 (21:54 -0700)
t/op/lvref.t

index 312caef..5fb6303 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     set_up_inc("../lib");
 }
 
-plan 26;
+plan 27;
 
 sub on { $::TODO = ' ' }
 sub off{ $::TODO = ''  }
@@ -53,6 +53,8 @@ is \$b, \$c, 'lex scalar in (\$foo, \$bar)';
 is eval '\local $l = \3; $l', 3, '\local $scalar assignment';
 off;
 is $l, undef, 'localisation unwound';
+\$foo = \*bar;
+is *foo{SCALAR}, *bar{GLOB}, 'globref-to-scalarref assignment';
 on;
 
 # Array Elements