Porting/bench.pl: only use used sort elems

The @$order list of test names in sorted order: pare it down to only the
tests actually being run. This will make --write files smaller.

1 files changed, 3 insertions, 0 deletions

diff --git a/Porting/bench.pl b/Porting/bench.pl
index f19293a68f..8039fffa9d 100755
--- a/Porting/bench.pl
+++ b/Porting/bench.pl
@@ -806,6 +806,9 @@ sub do_grind {
         push @$perls, @run_perls;
     }
 
+    # strip @$order to just the actual tests present
+    $order = [ grep exists $tests->{$_}, @$order ];
+
     # Now we know what perls and tests we have, do extra option processing
     # and checking (done before grinding, so time isn't wasted if we die).