Lines Matching full:substr
151 if($? != 0 || substr($cur_dir, 0, 1) eq '%') {
171 if($? != 0 || substr($drive_letter, 1, 1) ne ':') {
176 return substr($drive_letter, 0, 2);
227 my $first_char = ucfirst(substr($path, 0, 1));
234 substr($path, 0, 1) = $first_char;
359 elsif(substr($path, 0, 1) eq '\\' ) {
371 unless (substr($path, 0, 1) eq '/') {
475 substr($path, length($path) - 1, 1) ne '/');
491 elsif(substr($path, 0, 1) eq '\\') {
509 unless (substr($path, 0, 1) eq '/') {
542 my $first_char = substr($path, 0, 1);
545 substr($path, 0, 1) = $first_char;
560 substr($prefix, 2, 1) = '/' if $have_root;
700 if($? == 0 && substr($path, 0, 1) ne '%') {
745 $res .= '/' if(substr($res, length($res) - 1, 1) ne '/' &&
