From 94c69bf5bdc4c7fdf26147afe40de110b688cba1 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 22 Jan 2011 22:37:37 -0700
Subject: [PATCH] Use proper open()'s and renamed write() to mwrite() as Perl
 has write()

---
 src/DB/Flatfile.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/DB/Flatfile.pm b/src/DB/Flatfile.pm
index 3f59206..3b45332 100644
--- a/src/DB/Flatfile.pm
+++ b/src/DB/Flatfile.pm
@@ -14,9 +14,9 @@ my (%MEM);
 sub load
 {
 	# Open, read and close the database.
-	open FILE, "<$Auto::Bin/../etc/auto.db" or return 0;
-	my @fbuf = <FILE> or return 0;
-	close FILE or return 0;
+	open(my $FDB, q{<}, "$Auto::Bin/../etc/auto.db") or return 0;
+	my @fbuf = <$FDB> or return 0;
+	close $FDB or return 0;
 	
 	# Make sure the database version is compatible.
 	if ($fbuf[0] ne "DBV Auto-Flatfile_1.0\n") {
@@ -80,9 +80,9 @@ sub flush
 	unless (-e "$Auto::Bin/../etc/auto.db") {
 		`touch $Auto::Bin/../etc/auto.db`;
 	}
-	open FDB, ">$Auto::Bin/../etc/auto.db" or return 0;
-	print FDB $wd or return 0;
-	close FDB or return 0;
+	open(my $FDB, q{>}, "$Auto::Bin/../etc/auto.db") or return 0;
+	print $FDB $wd or return 0;
+	close $FDB or return 0;
 	
 	return 1;
 }
@@ -101,7 +101,7 @@ sub get
 }
 
 # Write to database.
-sub write
+sub mwrite
 {
 	my ($name, @values) = @_;