runtests: eliminate a warning on old perl versions

The warning "Use of implicit split to @_ is deprecated" showed between
perl versions about 5.8 through 5.11.

diff --git a/tests/runner.pm b/tests/runner.pm
index 8d86bd771438fe60af42035865580149d8f39889..8b61eb4b3be3c9d112cf3594b32e38c4ae73c14c 100644 (file)
--- a/tests/runner.pm
+++ b/tests/runner.pm
@@ -753,7 +753,8 @@ sub singletest_prepare {
             my $path = $filename;
             # cut off the file name part
             $path =~ s/^(.*)\/[^\/]*/$1/;
-            my $nparts = scalar(split(/\//, $LOGDIR));
+            my @ldparts = split(/\//, $LOGDIR);
+            my $nparts = @ldparts;
             my @parts = split(/\//, $path);
             if(join("/", @parts[0..$nparts-1]) eq $LOGDIR) {
                 # the file is in $LOGDIR/