Save build count separately for each arch.

Change-Id: I69b6a27286f5064667be23d02eb2f4c06758ac69
Signed-off-by: wanchao-xu <wanchao.xu@samsung.com>

diff --git a/depanneur b/depanneur
index 494afac1d04ff053d1869f456c9e64f7ae776fc5..aae0a1be2e739f9579ecffc17b1f0d2075399e6c 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -1974,18 +1974,28 @@ sub update_build_count {
     my ($pkg_name) = @_;
     my $build_count_file = "$cache_path/$pkg_name.bcnt";
     my $build_count = 1;
+    my @lines = ();
 
     if (-e "$build_count_file") {
         open(my $fh_in, '<', "$build_count_file")  or die "$build_count_file - $!";
-        my $line = readline($fh_in);
+        while(my $line = <$fh_in>) {
+            if ($line =~ /^$arch/) {
+                chomp $line;
+                $line =~ s/^$arch://;
+                $build_count = int($line) < 999 ? int($line) + 1 : 1;
+                push(@lines, "$arch:$build_count\n");
+            } else {
+                push(@lines, $line);
+            }
+        }
         close($fh_in);
-        chomp $line;
-        $build_count = int($line) < 999 ? int($line) + 1 : 1;
+    } else {
+        push(@lines, "$arch:$build_count\n");
     }
 
-    open(my $fh, '>', "$build_count_file")  or die "$build_count_file - $!";
-    print $fh $build_count . "\n";
-    close($fh);
+    open(my $fh_out, '>', "$build_count_file")  or die "$build_count_file - $!";
+    print $fh_out @lines;
+    close($fh_out);
 
     return $build_count;
 }