runtests.pl: removed <precommand> feature

This hasn't been used in over a decade. <precheck> can still be used to
run commands before the main test.

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 5eafdd5db25eb0645fe3c913b98f38778392da11..05a8bb46981f3f2bfc0d69069dcf3514c91d0835 100755 (executable)
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3594,21 +3594,6 @@ sub singletest {
     my $dumped_core;
     my $cmdres;
 
-    # Apr 2007: precommand isn't being used and could be removed
-    my @precommand= getpart("client", "precommand");
-    if($precommand[0]) {
-        # this is pure perl to eval!
-        my $code = join("", @precommand);
-        eval $code;
-        if($@) {
-            logmsg "perl: $code\n";
-            logmsg "precommand: $@";
-            stopservers($verbose);
-            timestampskippedevents($testnum);
-            return -1;
-        }
-    }
-
     if($gdbthis) {
         my $gdbinit = "$TESTDIR/gdbinit$testnum";
         open(GDBCMD, ">$LOGDIR/gdbcmd");