runtests: fix "use of undefined value" warning in -R handling

1 files changed, 5 insertions, 1 deletions

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 48e26142f..d20383ae8 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -5179,7 +5179,11 @@ if($scrambleorder) {
     # scramble the order of the test cases
     my @rand;
     while($TESTCASES) {
-        my @all = split(/ /, $TESTCASES);
+        my @all = split(/ +/, $TESTCASES);
+        if(!$all[0]) {
+            # if the first is blank, shift away it
+            shift @all;
+        }
         my $r = rand @all;
         push @rand, $all[$r];
         $all[$r]="";