Lines Matching refs:b
6 local($a, $b) = @_;
11 print $a, $b;
16 $b = "ok 6\n";
22 print $a,$b,$c,$d,$x,$y;
27 local($a, @b) = @_;
32 print $a, @b;
37 @b = "ok 16\n";
43 print $a,@b,@c,%d,$x,$y;
56 @a = ('a', 'b', 'c');
64 print +($a[1] eq 'b') ? "" : "not ", "ok 26\n";
68 @a = ('a', 'b', 'c');
75 %h = ('a' => 1, 'b' => 2, 'c' => 3);
78 local($h{'b'}) = $h{'b'};
80 print +($h{'b'} == 2) ? "" : "not ", "ok 31\n";
85 print +($h{'b'} == 2) ? "" : "not ", "ok 33\n";
116 @a = ('a', 'b', 'c');
124 print +($a[1] eq 'b') ? "" : "not ", "ok 39\n";
140 %h = ('a' => 1, 'b' => 2, 'c' => 3);
144 local($h{'b'}) = $h{'b'};
148 print +($h{'b'} == 2) ? "" : "not ", "ok 43\n";
153 print +($h{'b'} == 2) ? "" : "not ", "ok 45\n";
156 @a = ('a', 'b', 'c');
185 $ENV{_Y_} = 'b';
193 print +($ENV{_Y_} eq 'b') ? "" : "not ", "ok 55\n";
198 print +($ENV{_Y_} eq 'b') ? "" : "not ", "ok 57\n";
244 { local $x{b} = 1; }
245 print "not " if exists $x{b};