Lines Matching full:foo*
221 my $foo = $TAINT;
222 test 12, tainted $foo;
225 die "Taint checks don't seem to be enabled" unless tainted $foo;
227 $foo = "foo";
228 test 13, not tainted $foo;
230 taint_these($foo);
231 test 14, tainted $foo;
240 ($foo) = $foo =~ /(.+)/;
241 test 19, not tainted $foo;
243 $foo = $1 if ('bar' . $TAINT) =~ /(.+)/;
244 test 20, not tainted $foo;
245 test 21, $foo eq 'bar';
250 ($foo) = ('bar' . $TAINT) =~ /(.+)/;
251 test 22, tainted $foo;
252 test 23, $foo eq 'bar';
254 $foo = $1 if ('bar' . $TAINT) =~ /(.+)/;
255 test 24, tainted $foo;
256 test 25, $foo eq 'bar';
259 $foo = $1 if 'bar' =~ /(.+)$TAINT/;
260 test 26, tainted $foo;
261 test 27, $foo eq 'bar';
316 my $foo = `$echo abc`;
317 test 37, tainted $foo;
327 my $foo = "abcdefghi" . $TAINT;
328 test 39, tainted $foo;
330 $foo =~ /def/;
333 $foo =~ /(...)(...)(...)/;
336 my @bar = $foo =~ /(...)(...)(...)/;
339 test 43, tainted $foo; # $foo should still be tainted!
340 test 44, $foo eq "abcdefghi";
409 my $foo = "imaginary library" . $TAINT;
410 test 69, eval { require $foo } eq '', 'require';
415 $foo = $filename . $TAINT;
418 test 71, eval { open FOO, $foo } eq '', 'open for read';
429 test 74, eval { open FOO, "> $foo" } eq '', 'open for write';
435 my $foo = $TAINT;
441 test 76, eval { open FOO, "| x$foo" } eq '', 'popen to';
444 test 78, eval { open FOO, "x$foo |" } eq '', 'popen from';
454 $foo = "*";
455 taint_these $foo;
457 test 84, eval { `$echo 1$foo` } eq '', 'backticks';
461 test 86, join('', eval { glob $foo } ) ne '', 'globbing';
502 my $foo = "x" x 979;
503 taint_these $foo;
504 local *FOO;
507 test 96, open(FOO, "> $temp"), "Couldn't open $temp for write: $!";
509 test 97, eval { ioctl FOO, $TAINT, $foo } eq '', 'ioctl';
513 test 99, eval { fcntl FOO, $TAINT, $foo } eq '', 'fcntl';
520 close FOO;
526 my $foo = 'abc' . $TAINT;
527 my $fooref = \$foo;
528 test 101, not tainted $fooref;
529 test 102, tainted $$fooref;
530 test 103, tainted $foo;
535 my $foo = $TAINT0;
536 my $bar = $foo;
537 test 104, all_tainted $foo, $bar;
538 test 105, tainted($foo = $bar);
555 my @foo = ("A", "tainted" . $TAINT, "B");
556 test 118, not tainted $foo[0];
557 test 119, tainted $foo[1];
558 test 120, not tainted $foo[2];
559 my @bar = @foo;
667 my $sent = "foobar";
792 my $evil = "foo" . $TAINT;
812 eval { sysopen(my $ro, "foo", &O_RDONLY | $evil) };
815 eval { sysopen(my $wo, "foo", &O_WRONLY | $evil) };
818 eval { sysopen(my $rw, "foo", &O_RDWR | $evil) };
821 eval { sysopen(my $ap, "foo", &O_APPEND | $evil) };
824 eval { sysopen(my $cr, "foo", &O_CREAT | $evil) };
827 eval { sysopen(my $tr, "foo", &O_TRUNC | $evil) };
830 eval { sysopen(my $ro, "foo", &O_RDONLY, $evil) };
833 eval { sysopen(my $wo, "foo", &O_WRONLY, $evil) };
836 eval { sysopen(my $rw, "foo", &O_RDWR, $evil) };
839 eval { sysopen(my $ap, "foo", &O_APPEND, $evil) };
842 eval { sysopen(my $cr, "foo", &O_CREAT, $evil) };
845 eval { sysopen(my $tr, "foo", &O_TRUNC, $evil) };
848 unlink("foo"); # not unlink($evil), because that would fail...
894 tie my ($foo), Tie => $bar;
896 my $baz = $foo;
993 test 206, tainted(my $foo = $1);