Configure: Fixed a bug in error handling.

diff --git a/ucw/perl/Configure.pm b/ucw/perl/Configure.pm
index 01762422ab5c040aac50c2cad2ae00da33cb2227..e0f501d7caa96a7311b831ad8d31dc588216c16f 100644 (file)
--- 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";