Add statistical data of each errors

Change-Id: I85804e38ad4052a7162064f4bf4ac822e9f09a5a

diff --git a/depanneur b/depanneur
index 9444eba4893096b055d0a7a56334fa0544b52091..af735a509c6256e8ec80a1cd4071a4053c5bd5a8 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -1401,7 +1401,8 @@ sub build_report
 
         if (@export_errors) {
             $msg .= "=== the following packages failed to build because export " .
-                "source files to build environment failed ===\n";
+                    "source files to build environment failed (" .
+                    scalar(@export_errors) . ") ===\n";
             $msg .= join("\n", @export_errors) . "\n";
             $msg .= "\n";
         }
@@ -1411,7 +1412,7 @@ sub build_report
                 $error_pkgs .= "$pkg:\n  " . join("\n  ", @{$expansion_errors{$pkg}}) . "\n";
             }
             $msg .= "=== the following packages failed to build due to missing " .
-                "build dependencies ===\n$error_pkgs\n";
+                "build dependencies (" . scalar(keys %expansion_errors) . ") ===\n$error_pkgs\n";
         }
         if (%errors) {
             my $error_pkgs = "";
@@ -1419,7 +1420,7 @@ sub build_report
                 $error_pkgs .= "$pkg: $errors{$pkg}\n";
             }
             $msg .= "=== the following packages failed to build due to rpmbuild " .
-                "issue ===\n$error_pkgs";
+                "issue (" . scalar(keys %errors) . ") ===\n$error_pkgs";
         }
         error($msg);
     }