t/op/localref.t

8 $aa = 1;
9 { local $aa;     $aa = 2; is($aa,2); }
10 is($aa,1);
11 { local ${aa};   $aa = 3; is($aa,3); }
12 is($aa,1);
13 { local ${"aa"}; $aa = 4; is($aa,4); }
14 is($aa,1);
15 $x = "aa";
16 { local ${$x};   $aa = 5; is($aa,5); undef $x; is($aa,5); }
17 is($aa,1);
19 { local ${$x x2};$aa = 6; is($aa,6); undef $x; is($aa,6); }
20 is($aa,1);
21 $x = "aa";
22 { local $$x;     $aa = 7; is($aa,7); undef $x; is($aa,7); }
23 is($aa,1);
25 @aa = qw/a b/;
26 { local @aa;     @aa = qw/c d/; is("@aa","c d"); }
27 is("@aa","a b");
28 { local @{aa};   @aa = qw/e f/; is("@aa","e f"); }
29 is("@aa","a b");
30 { local @{"aa"}; @aa = qw/g h/; is("@aa","g h"); }
31 is("@aa","a b");
32 $x = "aa";
33 { local @{$x};   @aa = qw/i j/; is("@aa","i j"); undef $x; is("@aa","i j"); }
34 is("@aa","a b");
36 { local @{$x x2};@aa = qw/k l/; is("@aa","k l"); undef $x; is("@aa","k l"); }
37 is("@aa","a b");
38 $x = "aa";
39 { local @$x;     @aa = qw/m n/; is("@aa","m n"); undef $x; is("@aa","m n"); }
40 is("@aa","a b");
42 %aa = qw/a b/;
43 { local %aa;     %aa = qw/c d/; is($aa{c},"d"); }
44 is($aa{a},"b");
45 { local %{aa};   %aa = qw/e f/; is($aa{e},"f"); }
46 is($aa{a},"b");
47 { local %{"aa"}; %aa = qw/g h/; is($aa{g},"h"); }
48 is($aa{a},"b");
49 $x = "aa";
50 { local %{$x};   %aa = qw/i j/; is($aa{i},"j"); undef $x; is($aa{i},"j"); }
51 is($aa{a},"b");
53 { local %{$x x2};%aa = qw/k l/; is($aa{k},"l"); undef $x; is($aa{k},"l"); }
54 is($aa{a},"b");
55 $x = "aa";
56 { local %$x;     %aa = qw/m n/; is($aa{m},"n"); undef $x; is($aa{m},"n"); }
57 is($aa{a},"b");
62 $x = \$aa;
63 my $y = \$aa;
68 eval { local ${\$aa}; };  test_err_localref;
69 eval { local ${\'aa'}; }; test_err_localref;
70 $x = \@aa;
71 $y = \@aa;
76 eval { local @{\@aa}; };  test_err_localref;
78 $x = \%aa;
79 $y = \%aa;
84 eval { local %{\%aa}; };  test_err_localref;