From c9dc1184fd36d078abf9fe29e35c45dffe994ecc Mon Sep 17 00:00:00 2001
From: "joerg@mysql.com" <>
Date: Wed, 5 Jul 2006 20:17:04 +0200
Subject: [PATCH] Extend the Perl script running the test suite to produce a
 "Logging:" line (like the shell script does).

---
 mysql-test/mysql-test-run.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mysql-test/mysql-test-run.pl b/mysql-test/mysql-test-run.pl
index 3293487a0ac..122a2524d9e 100755
--- a/mysql-test/mysql-test-run.pl
+++ b/mysql-test/mysql-test-run.pl
@@ -534,6 +534,11 @@ sub command_line_setup () {
               "($opt_master_myport - $opt_master_myport + 10)");
   }
 
+  # This is needed for test log evaluation in "gen-build-status-page"
+  # in all cases where the calling tool does not log the commands
+  # directly before it executes them, like "make test-force-pl" in RPM builds.
+  print "Logging: $0 ", join(" ", @ARGV), "\n";
+
   # Read the command line
   # Note: Keep list, and the order, in sync with usage at end of this file