From 31ae07b262666c3ab36eeb581a599e7c549ea9a0 Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Wed, 30 May 2012 13:52:54 -0500
Subject: remove unneeded parens in 'close ()' bits

---
 sboconfig | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'sboconfig')

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;
 	}
 }
 
-- 
cgit v1.2.3