From 834e3d2778e81a9b6ffa5a8bc2ad76fb93c91719 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Thu, 30 Aug 2012 14:02:58 -0500 Subject: bugfixes++ --- sboconfig | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sboconfig') 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 -- cgit v1.2.3