Lines Matching full:substr
345 $test_prog = "$pwd/$test_prog" if (substr($test_prog, 0, 1) ne '/') &&
346 ($os ne 'os2' || substr($test_prog, 1, 1) ne ':');
513 $c = substr($rest, 0, 1);
515 $name = substr($rest, 1, $len);
516 $rest = substr($rest, 2 + $len);
563 foreach $var (split(substr($test{'env-setup'}, 0, 1),
571 $new_env{substr($var, 0, $i)} = substr($var, $i + 1);
597 split(substr($test{'arguments'}, 0, 1),
598 substr($test{'arguments'}, 1)));
854 local($nonl) = substr($str, -1, 1) ne "\n";
857 substr($str, 0, 0) = ":\n";
880 if (substr($got, 0, $exp_len) eq $exp) {
883 } elsif (substr($exp, 0, $got_len) eq $got) {
888 $ce = substr($exp, $i, 1);
889 $cg = substr($got, $i, 1);
1057 $c = substr($rest, 0, 1);
1063 $name = substr($rest, 1, $len);
1110 $c = substr($rest, 0, 1);
1116 $name = substr($rest, 1, $len);
1153 $test{':full-name'} = substr($file, $file_prefix_skip) . ":$test{'name'}";
1188 local($firstc) = substr($test{'arguments'}, 0, 1);
1190 if (substr($test{'arguments'}, -1, 1) ne $firstc) {
1196 local($firstc) = substr($test{'env-setup'}, 0, 1);
1198 if (substr($test{'env-setup'}, -1, 1) ne $firstc) {
1290 $c = substr($rest, 0, 1);
1292 $name = substr($rest, 1, $len);
1293 $rest = substr($rest, 2 + $len);
