Add timestamp to DBG output; Run tests in debug mode

Author: airween

.github/workflows/ci.yml

@@ -139,4 +139,4 @@ jobs:
       - name: install module
         run: sudo make install
       - name: run regression tests
-        run: cd tests; time for f in `find regression/ -maxdepth 2 -mindepth 2 -name "*.t" | tr "\012" " "`; do time ./run-regression-tests.pl -S . ${f}; done
+        run: cd tests; time for f in `find regression/ -maxdepth 2 -mindepth 2 -name "*.t" | tr "\012" " "`; do time ./run-regression-tests.pl -S . -d ${f}; done

tests/run-regression-tests.pl.in

@@ -536,7 +536,8 @@ sub dbg {
     my $out = join "", map {
         (ref $_ ne "" ? Dumper($_) : $_)
     } @_;
-    $out =~ s/^/DBG: /mg;
+    my $t = gettimeofday;
+    $out =~ s/^/DBG\[$t\]: /mg;
     print STDOUT "$out\n";
 }