From 1f01990ef4bd68b56da4bf8a20dcd36b68248c97 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Mon, 25 Aug 2008 23:24:25 +0200 Subject: [PATCH] Configure: Fixed a bug in error handling. --- ucw/perl/Configure.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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"; -- 2.39.2