mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-03-31 16:00:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

runtests: eliminate a warning on old perl versions

Browse Source 
The warning "Use of implicit split to @_ is deprecated" showed between
perl versions about 5.8 through 5.11.
This commit is contained in:
Dan Fandrich 2023-09-14 16:23:08 -07:00
parent 06cdfad49f
commit 989e1f35e8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/runner.pm
View File

@ -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/