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 |