From b9226172034c0ed1bc447ce23f55c1f8baea23eb Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 22 Jan 2011 22:32:41 -0700
Subject: [PATCH] Use proper open()'s

---
 src/Parser/Config.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Parser/Config.pm b/src/Parser/Config.pm
index 3042ead..3cfee7d 100644
--- a/src/Parser/Config.pm
+++ b/src/Parser/Config.pm
@@ -21,9 +21,9 @@ sub new
 	}
 	
 	# Open, read and close the config.
-	open CONF, "<$Auto::Bin/../etc/$file" or return 0;
-	my @cosfl = <CONF> or return 0;
-	close CONF or return 0;
+	open(my $FCONF, q{<}, "$Auto::Bin/../etc/$file") or return 0;
+	my @cosfl = <$FCONF> or return 0;
+	close $FCONF or return 0;
 	
 	# Save it to self variable.
 	$self->{'config'}->{'path'} = "$Auto::Bin/../etc/$file";
@@ -41,9 +41,9 @@ sub parse
 	my (%rs);
 	
 	# Open, read and close it.
-	open CONF, "<$file" or return 0;
-	my @fbuf = <CONF> or return 0;
-	close CONF or return 0;
+	open(my $FCONF, q{<}, "$file") or return 0;
+	my @fbuf = <$FCONF> or return 0;
+	close $FCONF or return 0;
 	
 	# Iterate the file.
 	foreach my $buff (@fbuf) {