From 817d2204802cf4fa0c32010f104db3eefd808a1b Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 30 Jul 2012 18:16:26 -0400
Subject: [PATCH] Recrusive DirCreate now exits true if it exists

---
 mdl/m_fileio.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mdl/m_fileio.pas b/mdl/m_fileio.pas
index 3594cd0..0f282c5 100644
--- a/mdl/m_fileio.pas
+++ b/mdl/m_fileio.pas
@@ -295,6 +295,8 @@ Begin
   Prefix := '';
   Str    := DirSlash(Str);
 
+  If DirExists(Str) Then Exit;
+
   Count := Pos(PathSep, Str);
 
   While (Count > 0) Do Begin