aboutsummaryrefslogtreecommitdiff
path: root/sboconfig
diff options
context:
space:
mode:
authorJacob Pipkin <j@dawnrazor.net>2012-11-05 03:19:39 -0600
committerJacob Pipkin <j@dawnrazor.net>2012-11-05 03:19:39 -0600
commit62b6156406606a18e9cdbc4fdc52bedae4f21835 (patch)
treeacb9a7126a9116dabc54ea0e8d2ec1cb7c40b74c /sboconfig
parent974bead83585ebb14ded73b043506a86d1160a0b (diff)
downloadsbotools2-62b6156406606a18e9cdbc4fdc52bedae4f21835.tar.xz
git rid of prototype for open_fh. all tests pass.
Diffstat (limited to 'sboconfig')
-rwxr-xr-xsboconfig4
1 files changed, 2 insertions, 2 deletions
diff --git a/sboconfig b/sboconfig
index 892279c..f969cbd 100755
--- a/sboconfig
+++ b/sboconfig
@@ -131,13 +131,13 @@ sub config_write ($$) {
seek $tempfh, 0, 0;
my $contents = do {local $/; <$tempfh>};
close $conffh;
- eval { $conffh = open_fh $conf_file, '>' };
+ eval { $conffh = open_fh ($conf_file, '>') };
warn "Cannot write configuration: $@\n" and return if $@;
print {$conffh} $contents or return;
close $conffh, close $tempfh;
} else {
# no config file, easiest case of all.
- my $fh = open_fh $conf_file, '>' or return;
+ my $fh = open_fh ($conf_file, '>') or return;
print {$fh} "$key=$val\n";
close $fh;
}