diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-08-30 14:02:58 -0500 | 
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-08-30 14:02:58 -0500 | 
| commit | 834e3d2778e81a9b6ffa5a8bc2ad76fb93c91719 (patch) | |
| tree | 6aa11c55a006a1cecd5747b6b1cbf91b77e5a5a8 /sboconfig | |
| parent | 6d3b46ea4ad9b0a0ed4e9307f88ae3f5a1131894 (diff) | |
| download | sbotools2-834e3d2778e81a9b6ffa5a8bc2ad76fb93c91719.tar.xz | |
bugfixes++
Diffstat (limited to 'sboconfig')
| -rwxr-xr-x | sboconfig | 4 | 
1 files changed, 2 insertions, 2 deletions
| @@ -64,7 +64,7 @@ my %params = reverse %valid_confs;  if (exists $options{l}) {  	my @keys = sort {$a cmp $b} keys %config; -	print "$_=$config{$_}\n" for @keys; +	say "sboconfig -$params{$_}:\n    $_=$config{$_}" for @keys;  	exit 0;  } @@ -101,7 +101,7 @@ sub config_write ($$) {  		my $has = 0;  		my $regex = qr/\A\Q$key\E=/;  		FIRST: for my $tmpline (@temp) { -			$has++, $tmpline = "$key=$val", last FIRST if $templine =~ $regex; +			$has++, $tmpline = "$key=$val", last FIRST if $tmpline =~ $regex;  		}  		untie @temp;  		# otherwise, append our new $key=$value pair | 
