diff options
-rwxr-xr-x | sboconfig | 6 | ||||
-rwxr-xr-x | sboupgrade | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -96,7 +96,7 @@ sub config_write { my ($fh, $filename) = make_temp_file (); open my $reader, '<', $conf_file; print {$fh} <$reader>; - close ($fh); + close $fh; # tie the file so that if $key is already there, we just change that # line and untie it tie my @temp, 'Tie::File', $filename; @@ -114,14 +114,14 @@ sub config_write { if ($has eq 'FALSE') { open (my $writer, '>>', $filename); print {$writer} "$key=$val\n"; - close ($writer); + close $writer; } move ($filename, $conf_file); } else { # no config file, easiest case of all. open my $writer, '>', $conf_file; print {$writer} "$key=$val\n"; - close ($writer); + close $writer; } } @@ -168,7 +168,7 @@ sub readme_prompt { my $readme = do {local $/; <$readme_file>}; unless (grok_readme ($sbo, $readme) ) { print "\n". $readme; - close ($readme_file); + close $readme_file; print "\nProceed with $sbo? [y]: "; my $test = <STDIN>; $test = 'y' if $test eq "\n"; |