Lines Matching refs:res
267 my ($desc, $s, $res, $res2, $one);
272 $res = $s =~ /(.+)/;
275 isnt_tainted($res, "$desc: res not tainted");
277 is($res, 1, "$desc: res value");
283 $res = $s =~ /(.)/g;
286 isnt_tainted($res, "$desc: res not tainted");
288 is($res, 1, "$desc: res value");
294 ($res) = $s =~ /(.+)/;
297 isnt_tainted($res, "$desc: res not tainted");
299 is($res, 'abcd', "$desc: res value");
305 ($res, $res2) = $s =~ /(.)/g;
308 isnt_tainted($res, "$desc: res not tainted");
311 is($res, 'a', "$desc: res value");
318 $res = $s =~ /$TAINT(.+)/;
321 isnt_tainted($res, "$desc: res not tainted");
323 is($res, 1, "$desc: res value");
329 $res = $s =~ /$TAINT(.)/g;
332 isnt_tainted($res, "$desc: res not tainted");
334 is($res, 1, "$desc: res value");
345 $res = $s =~ /(\w+)/; $one = $1;
348 isnt_tainted($res, "$desc: res not tainted");
350 is($res, 1, "$desc: res value");
358 $res = $s =~ /(\w)/g; $one = $1;
361 isnt_tainted($res, "$desc: res not tainted");
363 is($res, 1, "$desc: res value");
370 ($res) = $s =~ /$TAINT(.+)/;
373 is_tainted($res, "$desc: res tainted");
375 is($res, 'abcd', "$desc: res value");
381 ($res, $res2) = $s =~ /$TAINT(.)/g;
384 is_tainted($res, "$desc: res tainted");
386 is($res, 'a', "$desc: res value");
398 ($res) = $s =~ /(\w+)/; $one = $1;
401 is_tainted($res, "$desc: res tainted");
403 is($res, 'abcd', "$desc: res value");
411 ($res, $res2) = $s =~ /(\w)/g; $one = $1;
414 is_tainted($res, "$desc: res tainted");
417 is($res, 'a', "$desc: res value");
425 $res = $s =~ s/(.+)/xyz/;
428 isnt_tainted($res, "$desc: res not tainted");
431 is($res, 1, "$desc: res value");
437 $res = $s =~ s/(.)/x/g;
440 is_tainted($res, "$desc: res tainted");
443 is($res, 4, "$desc: res value");
449 $res = $s =~ s/(.+)/xyz/r;
452 is_tainted($res, "$desc: res tainted");
455 is($res, 'xyz', "$desc: res value");
462 $res = $s =~ s{(.+)}{
471 isnt_tainted($res, "$desc: res not tainted");
474 is($res, 1, "$desc: res value");
480 $res = $s =~ s/$TAINT(.+)/xyz/;
483 isnt_tainted($res, "$desc: res not tainted");
486 is($res, 1, "$desc: res value");
492 $res = $s =~ s/$TAINT(.)/x/g;
495 is_tainted($res, "$desc: res tainted");
498 is($res, 4, "$desc: res value");
507 $res = $s =~ s{(.)$TAINT}{
524 is_tainted($res, "$desc: res tainted");
527 is($res, 3, "$desc: res value");
533 $res = $s =~ s/$TAINT(.+)/xyz/r;
536 is_tainted($res, "$desc: res tainted");
539 is($res, 'xyz', "$desc: res value");
550 $res = $s =~ s/(\w+)/xyz/; $one = $1;
553 isnt_tainted($res, "$desc: res not tainted");
556 is($res, 1, "$desc: res value");
564 $res = $s =~ s/(\w)/x/g; $one = $1;
567 is_tainted($res, "$desc: res tainted");
570 is($res, 4, "$desc: res value");
578 $res = $s =~ s/(\w+)/xyz/r; $one = $1;
581 is_tainted($res, "$desc: res tainted");
584 is($res, 'xyz', "$desc: res value");
591 $res = $s =~ s/(.+)/xyz$TAINT/;
594 isnt_tainted($res, "$desc: res not tainted");
597 is($res, 1, "$desc: res value");
603 $res = $s =~ s/(.)/x$TAINT/g;
606 isnt_tainted($res, "$desc: res not tainted");
609 is($res, 4, "$desc: res value");
618 $res = $s =~ s{(.)}{
635 isnt_tainted($res, "$desc: res tainted");
638 is($res, 3, "$desc: res value");
644 $res = $s =~ s/(.+)/xyz$TAINT/r;
647 is_tainted($res, "$desc: res tainted");
650 is($res, 'xyz', "$desc: res value");
656 $res = $s =~ s/(.+)/$TAINTXYZ/;
659 isnt_tainted($res, "$desc: res not tainted");
662 is($res, 1, "$desc: res value");
668 $res = $s =~ s/(.)/$TAINTXYZ/g;
671 isnt_tainted($res, "$desc: res not tainted");
674 is($res, 4, "$desc: res value");
683 $res = $s =~ s{(.)}{
700 isnt_tainted($res, "$desc: res tainted");
703 is($res, 3, "$desc: res value");
709 $res = $s =~ s/(.+)/$TAINTXYZ/r;
712 is_tainted($res, "$desc: res tainted");
715 is($res, 'xyz', "$desc: res value");
726 $res = $s =~ /(.+)/;
729 isnt_tainted($res, "$desc: res not tainted");
731 is($res, 1, "$desc: res value");
737 $res = $s =~ /(.)/g;
740 isnt_tainted($res, "$desc: res not tainted");
742 is($res, 1, "$desc: res value");
748 ($res) = $s =~ /(.+)/;
751 is_tainted($res, "$desc: res tainted");
753 is($res, 'abcd', "$desc: res value");
759 ($res, $res2) = $s =~ /(.)/g;
762 is_tainted($res, "$desc: res tainted");
765 is($res, 'a', "$desc: res value");
772 $res = $s =~ /$TAINT(.+)/;
775 isnt_tainted($res, "$desc: res not tainted");
777 is($res, 1, "$desc: res value");
783 $res = $s =~ /$TAINT(.)/g;
786 isnt_tainted($res, "$desc: res not tainted");
788 is($res, 1, "$desc: res value");
799 $res = $s =~ /(\w+)/; $one = $1;
802 isnt_tainted($res, "$desc: res not tainted");
804 is($res, 1, "$desc: res value");
812 $res = $s =~ /(\w)/g; $one = $1;
815 isnt_tainted($res, "$desc: res not tainted");
817 is($res, 1, "$desc: res value");
824 ($res) = $s =~ /$TAINT(.+)/;
827 is_tainted($res, "$desc: res tainted");
829 is($res, 'abcd', "$desc: res value");
835 ($res, $res2) = $s =~ /$TAINT(.)/g;
838 is_tainted($res, "$desc: res tainted");
840 is($res, 'a', "$desc: res value");
852 ($res) = $s =~ /(\w+)/; $one = $1;
855 is_tainted($res, "$desc: res tainted");
857 is($res, 'abcd', "$desc: res value");
865 ($res, $res2) = $s =~ /(\w)/g; $one = $1;
868 is_tainted($res, "$desc: res tainted");
871 is($res, 'a', "$desc: res value");
879 $res = $s =~ s/(.+)/xyz/;
882 isnt_tainted($res, "$desc: res not tainted");
885 is($res, 1, "$desc: res value");
891 $res = $s =~ s/(.)/x/g;
894 is_tainted($res, "$desc: res tainted");
897 is($res, 4, "$desc: res value");
903 $res = $s =~ s/(.+)/xyz/r;
906 is_tainted($res, "$desc: res tainted");
909 is($res, 'xyz', "$desc: res value");
916 $res = $s =~ s{(.+)}{
925 isnt_tainted($res, "$desc: res not tainted");
928 is($res, 1, "$desc: res value");
934 $res = $s =~ s/$TAINT(.+)/xyz/;
937 isnt_tainted($res, "$desc: res not tainted");
940 is($res, 1, "$desc: res value");
946 $res = $s =~ s/$TAINT(.)/x/g;
949 is_tainted($res, "$desc: res tainted");
952 is($res, 4, "$desc: res value");
961 $res = $s =~ s{(.)$TAINT}{
978 is_tainted($res, "$desc: res tainted");
981 is($res, 3, "$desc: res value");
988 $res = $s =~ s/$TAINT(.+)/xyz/r;
991 is_tainted($res, "$desc: res tainted");
994 is($res, 'xyz', "$desc: res value");
1005 $res = $s =~ s/(\w+)/xyz/; $one = $1;
1008 isnt_tainted($res, "$desc: res not tainted");
1011 is($res, 1, "$desc: res value");
1019 $res = $s =~ s/(\w)/x/g; $one = $1;
1022 is_tainted($res, "$desc: res tainted");
1025 is($res, 4, "$desc: res value");
1033 $res = $s =~ s/(\w+)/xyz/r; $one = $1;
1036 is_tainted($res, "$desc: res tainted");
1039 is($res, 'xyz', "$desc: res value");
1046 $res = $s =~ s/(.+)/xyz$TAINT/;
1049 isnt_tainted($res, "$desc: res not tainted");
1052 is($res, 1, "$desc: res value");
1058 $res = $s =~ s/(.)/x$TAINT/g;
1061 isnt_tainted($res, "$desc: res not tainted");
1064 is($res, 4, "$desc: res value");
1073 $res = $s =~ s{(.)}{
1090 isnt_tainted($res, "$desc: res tainted");
1093 is($res, 3, "$desc: res value");
1099 $res = $s =~ s/(.+)/xyz$TAINT/r;
1102 is_tainted($res, "$desc: res tainted");
1105 is($res, 'xyz', "$desc: res value");
1111 $res = $s =~ s/(.+)/$TAINTXYZ/;
1114 isnt_tainted($res, "$desc: res not tainted");
1117 is($res, 1, "$desc: res value");
1123 $res = $s =~ s/(.)/$TAINTXYZ/g;
1126 isnt_tainted($res, "$desc: res not tainted");
1129 is($res, 4, "$desc: res value");
1138 $res = $s =~ s{(.)}{
1155 isnt_tainted($res, "$desc: res tainted");
1158 is($res, 3, "$desc: res value");
1164 $res = $s =~ s/(.+)/$TAINTXYZ/r;
1167 is_tainted($res, "$desc: res tainted");
1170 is($res, 'xyz', "$desc: res value");
1179 $res = $f->($TAINT);
1180 is_tainted($res, "121854: res tainted");
1181 $res = $f->("abc");
1182 isnt_tainted($res, "121854: res not tainted");
2455 my $res = do {
2464 is $res, $letter, "$desc is correct";
2465 is_tainted $res, "$desc stays tainted";
2648 my ($desc, $s, $res, $one);
2652 $res = $s =~ s/(.+)/xyz$ovclean/;
2655 isnt_tainted($res, "$desc: res not tainted");
2658 is($res, 1, "$desc: res value");
2663 $res = $s =~ s/(.+)/xyz$ovtaint/;
2666 isnt_tainted($res, "$desc: res not tainted");
2669 is($res, 1, "$desc: res value");
2674 $res = $s =~ s/(.+)/$ovclean/;
2677 isnt_tainted($res, "$desc: res not tainted");
2680 is($res, 1, "$desc: res value");
2685 $res = $s =~ s/(.+)/$ovtaint/;
2688 isnt_tainted($res, "$desc: res not tainted");
2691 is($res, 1, "$desc: res value");
2696 $res = $s =~ s/(.+)/"xyz".$ovclean/e;
2699 isnt_tainted($res, "$desc: res not tainted");
2702 is($res, 1, "$desc: res value");
2707 $res = $s =~ s/(.+)/"xyz".$ovtaint/e;
2710 isnt_tainted($res, "$desc: res not tainted");
2713 is($res, 1, "$desc: res value");
2718 $res = $s =~ s/(.+)/$ovclean/e;
2721 isnt_tainted($res, "$desc: res not tainted");
2724 is($res, 1, "$desc: res value");
2729 $res = $s =~ s/(.+)/$ovtaint/e;
2732 isnt_tainted($res, "$desc: res not tainted");
2735 is($res, 1, "$desc: res value");
2740 $res = $s =~ s/(.+)/(my $z++), "xyz".$ovclean/e;
2743 isnt_tainted($res, "$desc: res not tainted");
2746 is($res, 1, "$desc: res value");
2751 $res = $s =~ s/(.+)/(my $z++), "xyz".$ovtaint/e;
2754 isnt_tainted($res, "$desc: res not tainted");
2757 is($res, 1, "$desc: res value");
2762 $res = $s =~ s/(.+)/(my $z++), $ovclean/e;
2765 isnt_tainted($res, "$desc: res not tainted");
2768 is($res, 1, "$desc: res value");
2773 $res = $s =~ s/(.+)/(my $z++), $ovtaint/e;
2776 isnt_tainted($res, "$desc: res not tainted");
2779 is($res, 1, "$desc: res value");
2784 $res = $s =~ s/(.+)/xyz$ovclean/r;
2787 isnt_tainted($res, "$desc: res not tainted");
2790 is($res, 'xyzhello', "$desc: res value");
2795 $res = $s =~ s/(.+)/xyz$ovtaint/r;
2798 is_tainted($res, "$desc: res tainted");
2801 is($res, 'xyzhi', "$desc: res value");
2806 $res = $s =~ s/(.+)/$ovclean/r;
2809 isnt_tainted($res, "$desc: res not tainted");
2812 is($res, 'hello', "$desc: res value");
2817 $res = $s =~ s/(.+)/$ovtaint/r;
2820 is_tainted($res, "$desc: res tainted");
2823 is($res, 'hi', "$desc: res value");
2828 $res = $s =~ s/(.)/x$ovclean/g;
2831 isnt_tainted($res, "$desc: res not tainted");
2834 is($res, 4, "$desc: res value");
2839 $res = $s =~ s/(.)/x$ovtaint/g;
2842 isnt_tainted($res, "$desc: res not tainted");
2845 is($res, 4, "$desc: res value");
2850 $res = $s =~ s/(.)/$ovclean/g;
2853 isnt_tainted($res, "$desc: res not tainted");
2856 is($res, 4, "$desc: res value");
2861 $res = $s =~ s/(.)/$ovtaint/g;
2864 isnt_tainted($res, "$desc: res not tainted");
2867 is($res, 4, "$desc: res value");
2872 $res = $s =~ s/(.)/"x".$ovclean/ge;
2875 isnt_tainted($res, "$desc: res not tainted");
2878 is($res, 4, "$desc: res value");
2883 $res = $s =~ s/(.)/"x".$ovtaint/ge;
2886 isnt_tainted($res, "$desc: res not tainted");
2889 is($res, 4, "$desc: res value");
2894 $res = $s =~ s/(.)/$ovclean/ge;
2897 isnt_tainted($res, "$desc: res not tainted");
2900 is($res, 4, "$desc: res value");
2905 $res = $s =~ s/(.)/$ovtaint/ge;
2908 isnt_tainted($res, "$desc: res not tainted");
2911 is($res, 4, "$desc: res value");