From: Alexander Kanavin <alex.kanavin@gmail.com>
Date: Sun, 28 Feb 2021 15:37:02 +0000 (+0100)
Subject: ptest-perl/run-ptest: address failures caused by perl 5.32.1
X-Git-Tag: lucaceresoli/bug-15201-perf-libtraceevent-missing~8565
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=324d74c7e541b44b9c4240056b006f4c59ef34af;p=thirdparty%2Fopenembedded%2Fopenembedded-core-contrib.git

ptest-perl/run-ptest: address failures caused by perl 5.32.1

Particulary, . needs to be explicitly specified so that perl
looks there when loading items in 'require'.

Signed-off-by: Alexander Kanavin <alex.kanavin@gmail.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
---

diff --git a/meta/files/ptest-perl/run-ptest b/meta/files/ptest-perl/run-ptest
index c9f9ca94d0a..fd35357b42b 100644
--- a/meta/files/ptest-perl/run-ptest
+++ b/meta/files/ptest-perl/run-ptest
@@ -1,7 +1,7 @@
 #!/bin/sh
 
 for case in `find t -type f -name '*.t'`; do
-    perl $case >$case.output 2>&1
+    perl -I . $case >$case.output 2>&1
     ret=$?
     cat $case.output
     if [ $ret -ne 0 ]; then