From 3a7f656968ece6f308e2d580123cbc7ff0bc49db Mon Sep 17 00:00:00 2001
From: Vladimir Glazunov <vg@openoffice.org>
Date: Mon, 23 Nov 2009 13:44:44 +0100
Subject: [PATCH] #i107077# do not silently add modules for simple --from
 switch

---
 solenv/bin/build.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/solenv/bin/build.pl b/solenv/bin/build.pl
index 5a1536f6d628..993ca2d34e5a 100755
--- a/solenv/bin/build.pl
+++ b/solenv/bin/build.pl
@@ -2135,7 +2135,7 @@ sub print_announce {
     $prj_type = $modules_types{$Prj} if (defined $modules_types{$Prj});
     my $text;
     if ($prj_type eq 'lnk') {
-        if (scalar keys %active_modules && (!defined $active_modules{$Prj})) {
+        if (!defined $active_modules{$Prj}) {
             $text = "Skipping module $Prj\n";
         } else {
             $text = "Skipping link to $Prj\n";
@@ -2186,7 +2186,7 @@ sub modules_classify {
             next;
         };
         if (( $module_paths{$module} =~ /\.lnk$/) || ($module_paths{$module} =~ /\.link$/)
-                || (scalar keys %active_modules && (!defined $active_modules{$module}))) {
+                || (!defined $active_modules{$module})) {
             $modules_types{$module} = 'lnk';
             next;
         };
@@ -2376,8 +2376,10 @@ sub prepare_incompatible_build {
     };
     @modules_built = keys %$deps_hash;
     %add_to_config = %$deps_hash;
-    generate_config_file();
-    clear_delivered() if ($prepare);
+    if ($prepare) {
+        generate_config_file();
+        clear_delivered();
+    }
     my $old_output_tree = '';
     foreach $prj (sort keys %$deps_hash) {
         if ($prepare) {
@@ -2866,7 +2868,7 @@ sub generate_html_file {
 
     foreach (@modules_order) {
         next if ($modules_types{$_} eq 'lnk');
-        next if (scalar keys %active_modules && (!defined $active_modules{$_}));
+        next if (!defined $active_modules{$_});
         my ($errors_info_line, $dirs_info_line, $errors_number, $successes_percent, $errors_percent, $time) = get_html_info($_);
 #<one module>
         print HTML 'document.write("    <tr>");' . "\n";