From f95a54ece96090c0b918d30205d13bcd4a015786 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang-solutions.com>
Date: Wed, 23 May 2012 10:13:44 +0200
Subject: Fix infinite loop when an invalid drive letter it given

---
 lib/stdlib/src/filelib.erl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/stdlib')

diff --git a/lib/stdlib/src/filelib.erl b/lib/stdlib/src/filelib.erl
index d532cea187..b098d4cb91 100644
--- a/lib/stdlib/src/filelib.erl
+++ b/lib/stdlib/src/filelib.erl
@@ -264,6 +264,9 @@ ensure_dir(F) ->
     case do_is_dir(Dir, file) of
 	true ->
 	    ok;
+	false when Dir =:= F ->
+	    %% Protect against infinite loop
+	    {error,einval};
 	false ->
 	    ensure_dir(Dir),
 	    case file:make_dir(Dir) of
-- 
cgit v1.2.3