From 7a71b5a50af03dc8b2e46d7e40cbd751e19b4c0a Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 30 Jan 2011 19:16:26 -0700
Subject: [PATCH] Added array number to mdelete() arguments.

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

diff --git a/src/DB/Flatfile.pm b/src/DB/Flatfile.pm
index bdf2eee..d57b583 100644
--- a/src/DB/Flatfile.pm
+++ b/src/DB/Flatfile.pm
@@ -120,10 +120,10 @@ sub mwrite
 # Delete from database.
 sub mdelete
 {
-	my ($name) = @_;
+	my ($name, $i) = @_;
 	
-	if (defined $MEM{$name}) {
-		delete $MEM{$name};
+	if (defined $MEM{$name}[$i]) {
+		delete $MEM{$name}[$i];
 	}
 	
 	return 1;