Changeset 635

Timestamp:

11/14/08 07:21:32 (4 years ago)

Author:

SvenDowideit

Message:

Item109: i dislike unless, and when it doesn't actually work as expected, it shows why

File:

• branches/Release04x02/pseudo-install.pl (modified) (1 diff)

branches/Release04x02/pseudo-install.pl

@@ -213 +213 @@
     foreach my $c ( @components ) {
         if( -l "$path$c" ) {
-            return unless _checkLink($moduleDir, $path, $c) || $force;
+            if (!$force) {
+                return if (!_checkLink($moduleDir, $path, $c));
+            }
             unlink "$path$c";
             print "Unlinked $path$c\n";