Lines Matching refs:this_line

131 	my $this_line = shift (@lines);
132 	chomp $this_line;
134 	if ($this_line =~ /^(\s+)/) {
146 	elsif (($this_line =~ /^(\s*)\*\s+[a-zA-Z0-9]/)
147 	       || ($this_line =~ /^(\s*)\* [a-zA-Z0-9_\.\/\+-]+/)
148 	       || ($this_line =~ /^(\s*)\([a-zA-Z0-9_\.\/\+-]+(\)|,\s*)/)
149 	       || ($this_line =~ /^(\s+)(\S+)/)
150 	       || ($this_line =~ /^(\s*)- +/)
151 	       || ($this_line =~ /^()\s*$/)
152 	       || ($this_line =~ /^(\s*)\*\) +/)
153 	       || ($this_line =~ /^(\s*)[a-zA-Z0-9](\)|\.|\:) +/))
160 	$this_line =~ s/^\s*//;
163 	my $this_len = length ($this_line);
178 		if (substr ($this_line, $idx, 1) =~ /\s/)
180 		    my $line_now = substr ($this_line, 0, $idx);
181 		    my $next_line = substr ($this_line, $idx);
182 		    $this_line = $line_now;
185 		    chomp $this_line;
188 		    $this_line .= "\n${left_pad_str}";
239 		    $this_line = "\n${left_pad_str}${this_line}";
244 		    unshift (@lines, $this_line);
246 		    $this_line = "\n${left_pad_str}";
255 	    if ($this_line =~ /\.$/)
257 		$this_line .= "  ";
262 		$this_line .= " ";
270 	$wrapped_text .= "${user_indent}${this_line}";