aboutsummaryrefslogtreecommitdiff
path: root/sboconfig
diff options
context:
space:
mode:
authorJacob Pipkin <j@dawnrazor.net>2012-08-30 14:02:58 -0500
committerJacob Pipkin <j@dawnrazor.net>2012-08-30 14:02:58 -0500
commit834e3d2778e81a9b6ffa5a8bc2ad76fb93c91719 (patch)
tree6aa11c55a006a1cecd5747b6b1cbf91b77e5a5a8 /sboconfig
parent6d3b46ea4ad9b0a0ed4e9307f88ae3f5a1131894 (diff)
downloadsbotools2-834e3d2778e81a9b6ffa5a8bc2ad76fb93c91719.tar.xz
bugfixes++
Diffstat (limited to 'sboconfig')
-rwxr-xr-xsboconfig4
1 files changed, 2 insertions, 2 deletions
diff --git a/sboconfig b/sboconfig
index cbd65f3..1dfa74f 100755
--- a/sboconfig
+++ b/sboconfig
@@ -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