diff options
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 |