Lines Matching refs:line
126 my $line = $_[0];
129 return $line if (length($trimmed = trim($line)) == 0);
131 return $line if ($trimmed =~ /^#/);
134 my $i = index($line, "=");
137 print "Error: No '=' found in line:,: \n $line \n";
140 my $name = substr($line, 0, $i);
148 my $value = substr($line, $i + 1);
161 return $line;
180 return $line;
242 my $line;
243 if (length($line = trim($_)) == 0) {
247 if ($line =~ /^#/) {
250 if (!checkName($line)) {
254 push @names, $line;