From: Martin Mares <mj@ucw.cz>
Date: Mon, 25 Aug 2008 21:24:25 +0000 (+0200)
Subject: Configure: Fixed a bug in error handling.
X-Git-Tag: holmes-import~347
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=1f01990ef4bd68b56da4bf8a20dcd36b68248c97;p=libucw.git

Configure: Fixed a bug in error handling.
---

diff --git a/ucw/perl/Configure.pm b/ucw/perl/Configure.pm
index 01762422..e0f501d7 100644
--- a/ucw/perl/Configure.pm
+++ b/ucw/perl/Configure.pm
@@ -166,7 +166,9 @@ sub Finish() {
 	} else {
 		Log "Preparing for compilation from current directory to obj/ ... ";
 	}
-	`rm -rf obj` if -d "obj"; Fail "Cannot delete old obj directory" if $?;
+	if (-d "obj") {
+		`rm -rf obj`; Fail "Cannot delete old obj directory" if $?;
+	}
 	-d "obj" or mkdir("obj", 0777) or Fail "Cannot create obj directory: $!";
 	-d "obj/ucw" or mkdir("obj/ucw", 0777) or Fail "Cannot create obj/ucw directory: $!";
 	Log "done\n";