Lines Matching full:foo*
5 sub foo {
20 print &foo("ok 1\n","ok 2\n");
26 sub foo2 {
41 print &foo2("ok 11\n","ok 12\n");
58 local($a[1]) = 'foo';
60 print +($a[1] eq 'foo') ? "" : "not ", "ok 24\n";
77 local($h{'a'}) = 'foo';
79 print +($h{'a'} eq 'foo') ? "" : "not ", "ok 30\n";
118 local($a[1]) = 'foo';
120 print +($a[1] eq 'foo') ? "" : "not ", "ok 37\n";
143 local($h{'a'}) = 'foo';
147 print +($h{'a'} eq 'foo') ? "" : "not ", "ok 42\n";
165 $SIG{TERM} = 'foo';
166 $SIG{INT} = \&foo;
172 print +($SIG{TERM} eq 'main::foo') ? "" : "not ", "ok 48\n";
173 print +($SIG{INT} eq \&foo) ? "" : "not ", "ok 49\n";
174 print +($SIG{__WARN__} eq \&foo) ? "" : "not ", "ok 50\n";
178 print +($SIG{TERM} eq 'main::foo') ? "" : "not ", "ok 51\n";
179 print +($SIG{INT} eq \&foo) ? "" : "not ", "ok 52\n";
180 print +($SIG{__WARN__} eq \&foo) ? "" : "not ", "ok 53\n";
189 local($ENV{_B_}) = 'foo';
190 local($ENV{_X_}) = 'foo';
192 print +($ENV{_X_} eq 'foo') ? "" : "not ", "ok 54\n";