mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-28 08:57:56 +00:00
28 lines
821 B
Bash
Executable file
28 lines
821 B
Bash
Executable file
#!/bin/bash
|
|
|
|
# SPDX-FileCopyrightText: 2021-2022 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
|
|
#
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
echo '### Test with old perl libs'
|
|
|
|
pwd=$(pwd)
|
|
# If not run in dir parallel/testsuite: set testsuitedir to path of testsuite
|
|
testsuitedir=${testsuitedir:-$pwd}
|
|
cd "$testsuitedir"
|
|
|
|
# Old libraries are put into input-files/perllib
|
|
PERL5LIB=input-files/perllib:../input-files/perllib; export PERL5LIB
|
|
|
|
echo '### See if we get compile error'
|
|
PATH=input-files/perllib:../input-files/perllib:$PATH
|
|
perl32 `which parallel` ::: 'echo perl'
|
|
echo '### See if we read modules outside perllib'
|
|
echo perl |
|
|
stdout strace -ff perl32 `which parallel` echo |
|
|
grep open |
|
|
grep perl |
|
|
grep -v '\$' |
|
|
grep -v '] read(6' |
|
|
grep -v input-files/perllib
|