loncom/debugging_tools/modify_config_files.pl - diff

Return to modify_config_files.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.1, 2004/08/09 21:05:40	version 1.2, 2004/08/10 20:26:02
Line 259 sub modify_config_file {	Line 259 sub modify_config_file {
unshift(@$target,$newline);	unshift(@$target,$newline);
} else {	} else {
# No need to put things after a blank line.	# No need to put things after a blank line.
if ($target->[-1] =~ /^\s*$/) {	if (defined($target->[-1]) && $target->[-1] =~ /^\s*$/) {
$target->[-1] = $newline;	$target->[-1] = $newline;
} else {	} else {
push(@$target,$newline);	push(@$target,$newline);