2010-11-15 21:46:36 +00:00
|
|
|
#!/bin/bash
|
|
|
|
|
|
2021-12-26 22:29:28 +00:00
|
|
|
# SPDX-FileCopyrightText: 2021-2022 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
|
2021-03-22 20:16:35 +00:00
|
|
|
#
|
|
|
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
|
|
2010-11-15 21:46:36 +00:00
|
|
|
echo '### Test with old perl libs'
|
2023-01-30 21:51:56 +00:00
|
|
|
|
|
|
|
|
pwd=$(pwd)
|
|
|
|
|
# If not run in dir parallel/testsuite: set testsuitedir to path of testsuite
|
|
|
|
|
testsuitedir=${testsuitedir:-$pwd}
|
|
|
|
|
cd "$testsuitedir"
|
|
|
|
|
|
2010-11-15 21:46:36 +00:00
|
|
|
# Old libraries are put into input-files/perllib
|
|
|
|
|
PERL5LIB=input-files/perllib:../input-files/perllib; export PERL5LIB
|
|
|
|
|
|
|
|
|
|
echo '### See if we get compile error'
|
2012-03-22 00:19:51 +00:00
|
|
|
PATH=input-files/perllib:../input-files/perllib:$PATH
|
|
|
|
|
perl32 `which parallel` ::: 'echo perl'
|
2010-11-15 21:46:36 +00:00
|
|
|
echo '### See if we read modules outside perllib'
|
2018-05-22 19:02:10 +00:00
|
|
|
echo perl |
|
|
|
|
|
stdout strace -ff perl32 `which parallel` echo |
|
|
|
|
|
grep open |
|
|
|
|
|
grep perl |
|
2022-11-02 11:13:59 +00:00
|
|
|
grep -v '\$' |
|
2018-05-22 19:02:10 +00:00
|
|
|
grep -v '] read(6' |
|
|
|
|
|
grep -v input-files/perllib
|
