diff options
author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:19:39 -0600 |
---|---|---|
committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:19:39 -0600 |
commit | 62b6156406606a18e9cdbc4fdc52bedae4f21835 (patch) | |
tree | acb9a7126a9116dabc54ea0e8d2ec1cb7c40b74c /sboconfig | |
parent | 974bead83585ebb14ded73b043506a86d1160a0b (diff) | |
download | sbotools2-62b6156406606a18e9cdbc4fdc52bedae4f21835.tar.xz |
git rid of prototype for open_fh. all tests pass.
Diffstat (limited to 'sboconfig')
-rwxr-xr-x | sboconfig | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |