Searched refs:trim (Results 1 – 2 of 2) sorted by relevance
84 sub trim { subroutine130 $line = $1 . ":\t" . trim($2) . "\n";135 $case = trim($lastline);147 trim($lastline) eq "" or die ("Odd non-pattern line '$lastline' for '$case'");
652 return trim($string) if ($string =~ /^\s*0[0-7]{3,3}\s*$/);1132 $name = trim($name);1147 $name = trim($name);1149 $address = trim($address);1165 $name = trim($name);1167 $address = trim($address);2194 sub trim { subroutine3774 …"Prefer '" . trim($sign) . " int" . rtrim($pointer) . "' to bare use of '$sign" . rtrim($pointer) …3776 my $decl = trim($sign) . " int ";3850 my $comment = trim($1);[all …]