From fa621c2a4223fcacbdd1d7fccb020b2c2d850dda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Mon, 26 Jul 2010 23:39:15 +0200
Subject: [PATCH] psu_parser: Replace a unix command call by its erlang
 equivalent.

---
 src/psu_parser.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/psu_parser.erl b/src/psu_parser.erl
index 774c977..30b2244 100644
--- a/src/psu_parser.erl
+++ b/src/psu_parser.erl
@@ -70,7 +70,9 @@ nbl_extract_files(NblFilename) ->
 	ok.
 
 nbl_cleanup() ->
-	os:cmd("rm -rf tmp/"),
+	{ok, Filenames} = file:list_dir("tmp/"),
+	[file:delete(io_lib:format("tmp/~s", [Filename])) || Filename <- Filenames],
+	file:del_dir("tmp/"),
 	ok.
 
 calc_base_ptr(Filename, [Current|_Tail], Ptr) when Filename =:= Current ->