From 62b6156406606a18e9cdbc4fdc52bedae4f21835 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Mon, 5 Nov 2012 03:19:39 -0600 Subject: git rid of prototype for open_fh. all tests pass. --- sboconfig | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sboconfig') 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; } -- cgit v1.2.3