From 234bb6a0cd5349173a59e2baa0dcb2252f09bd45 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 30 Jan 2011 14:39:19 -0700
Subject: [PATCH] Added mdelete() to DB/Flatfile.

---
 doc/CHANGELOG      |  1 +
 src/DB/Flatfile.pm | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index 0e9f4c8..11a30b5 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added mdelete() to DB/Flatfile.
     * Added topic() to API::IRC.
     * Added has_priv() to API::Std.
     * Finished the host-based privilege/permission system.
diff --git a/src/DB/Flatfile.pm b/src/DB/Flatfile.pm
index 3b45332..bdf2eee 100644
--- a/src/DB/Flatfile.pm
+++ b/src/DB/Flatfile.pm
@@ -117,5 +117,17 @@ sub mwrite
 	return 1;
 }
 
+# Delete from database.
+sub mdelete
+{
+	my ($name) = @_;
+	
+	if (defined $MEM{$name}) {
+		delete $MEM{$name};
+	}
+	
+	return 1;
+}
+
 
 1;