From a158c22df50796bbf02d876d6197635a1899aba6 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Tue, 5 Jun 2012 12:44:48 -0500 Subject: factored out "open my $fh, $op, $file" and made it robust in one fell swoop --- sboconfig | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'sboconfig') diff --git a/sboconfig b/sboconfig index 63f1d51..231d6ee 100755 --- a/sboconfig +++ b/sboconfig @@ -104,16 +104,16 @@ sub config_write { untie @temp; # otherwise, append our new $key=$value pair if ($has eq 'FALSE') { - open (my $writer, '>>', $filename); - print {$writer} "$key=$val\n"; - close $writer; + my $fh = open_fh ($filename, '>>'); + print {$fh} "$key=$val\n"; + close $fh; } move ($filename, $conf_file); } else { # no config file, easiest case of all. - open my $writer, '>', $conf_file; - print {$writer} "$key=$val\n"; - close $writer; + my $fh = open_fh ($conf_file, '>'); + print {$fh} "$key=$val\n"; + close $fh; } } -- cgit v1.2.3