aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsboconfig6
-rwxr-xr-xsboupgrade2
2 files changed, 4 insertions, 4 deletions
diff --git a/sboconfig b/sboconfig
index ab8961e..b3260d3 100755
--- a/sboconfig
+++ b/sboconfig
@@ -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;
}
}
diff --git a/sboupgrade b/sboupgrade
index dd4fed9..199535f 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -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";