pass verbosity to hook-listener

coverage.sh

@@ -2078,7 +2078,7 @@ mkdir /tmp/root/real
 run_testA() {
   echo content > /tmp/foo
   { { { $CMD --hook-helper /tmp/root root setup env 1 upload /tmp/foo \$1 < /tmp/myfifo 3>&-; echo \$? >&3; printf "\\000\\000adios";
-      } | $CMD --hook-listener 3>&- >/tmp/myfifo; echo \$?; } 3>&1;
+      } | $CMD --hook-listener 1 3>&- >/tmp/myfifo; echo \$?; } 3>&1;
   } | { read xs1; [ "\$xs1" -eq 0 ]; read xs2; [ "\$xs2" -eq 0 ]; }
   echo content | diff -u - /tmp/root/real/foo
   rm /tmp/foo

mmdebstrap

@@ -3295,6 +3295,7 @@ sub hooklistener {
     # errors without goto labels or much code duplication: the error handler
     # has to send an "error" message to the other side
     eval {
+        $verbosity_level = $ARGV[1];
         while (1) {
             # get the next message
             my $msg = "error";
@@ -3955,7 +3956,7 @@ sub main() {
 
     # this is the counterpart to --hook-helper and will receive and carry
     # out its instructions
-    if (scalar @ARGV == 1 && $ARGV[0] eq "--hook-listener") {
+    if (scalar @ARGV == 2 && $ARGV[0] eq "--hook-listener") {
         hooklistener();
         exit 0;
     }
@@ -5316,7 +5317,7 @@ sub main() {
         if ($is_covering) {
             @prefix = ($EXECUTABLE_NAME, "-MDevel::Cover=-silent,-nogcov");
         }
-        exec @prefix, $PROGRAM_NAME, "--hook-listener";
+        exec @prefix, $PROGRAM_NAME, "--hook-listener", $verbosity_level;
     }
     waitpid($lpid, 0);
     if ($? != 0) {