Fix bug: need to clear map before every use

Change-Id: I310c8a7c9843a5b51be09e377b2bdf35433adc0c
Signed-off-by: biao716.wang <biao716.wang@samsung.com>

diff --git a/depanneur b/depanneur
index da134e6bd9615e51db75adac36dde07ad5151074..670ec62d2400595e15784c7950c8052b3f8a33d0 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -982,6 +982,7 @@ sub prepare_git {
 sub parse_packs {
     my ($config, @packs) = @_;
     my %packs = ();
+    my %tmp_sub_to_main = ();
     foreach my $spec_ref (@packs) {
         my $spec;
         my $base;
@@ -1034,10 +1035,12 @@ sub parse_packs {
             subpacks => @subpacks,
             filename => $spec,
         };
+
         #to store the map from subpack to main pack.
         foreach my $sub_p (@{$packs{$name}->{subpacks}}) {
-            $subptomainp{$sub_p} = $name;
+            $tmp_sub_to_main{$sub_p} = $name;
         }
+       %subptomainp = %tmp_sub_to_main;
 
         if (@sorted) {
             #pick up the smallest source tag such as source0
@@ -1674,7 +1677,6 @@ sub resolve_skipped_packages() {
         my $fn = $to_build{$name}->{filename};
         my $version = $to_build{$name}->{version};
         my $release = $to_build{$name}->{release};
-
         my $src_rpm = "$srpm_repo_path/$name-$version-$release.src.rpm";
         if (-f $src_rpm) {
             if ($overwrite) {