diff mbox series

elf: Handle non-directory name in search path (BZ 31035)

Message ID 20231110140348.1206879-1-adhemerval.zanella@linaro.org
State Superseded
Headers show
Series elf: Handle non-directory name in search path (BZ 31035) | expand

Commit Message

Adhemerval Zanella Netto Nov. 10, 2023, 2:03 p.m. UTC 
The open_path stops if a relative path in search patch contains a
component that is a non directory (for instance, if the component
is an existing file).

For instance:

  $ cat > lib.c <<EOF
  > void foo (void) {}
  > EOF
  $ gcc -shared -fPIC -o lib.so lib.c
  $ cat > main.c <<EOF
  extern void foo ();
  int main () { foo (); return 0; }
  EOF
  $ gcc -o main main.c lib.so
  $ LD_LIBRARY_PATH=. ./main
  $ LD_LIBRARY_PATH=non-existing/path:. ./main
  $ LD_LIBRARY_PATH=$(pwd)/main:. ./main
  $ LD_LIBRARY_PATH=./main:. ./main
  ./main: error while loading shared libraries: lib.so: cannot open shared object file: No such file or directory

The invalid './main' should be ignored and a non-existent one,
instead as a valid but non acessible file.

Aboslute pathd do not triger this issue because its status are
initialized as 'unknown' and open_path check if this is a directory.

Checked on x86_64-linux-gnu.
---
 elf/Makefile                  | 12 ++++++
 elf/dl-load.c                 |  9 ++--
 elf/tst-non-directory-mod.c   |  1 +
 elf/tst-non-directory-path.c  |  4 ++
 elf/tst-non-directory-path.sh | 77 +++++++++++++++++++++++++++++++++++
 5 files changed, 100 insertions(+), 3 deletions(-)
 create mode 100644 elf/tst-non-directory-mod.c
 create mode 100644 elf/tst-non-directory-path.c
 create mode 100755 elf/tst-non-directory-path.sh

Comments

Joe Simmons-Talbott Nov. 10, 2023, 2:36 p.m. UTC | #1 
On Fri, Nov 10, 2023 at 11:03:48AM -0300, Adhemerval Zanella wrote:
> The open_path stops if a relative path in search patch contains a
> component that is a non directory (for instance, if the component
> is an existing file).
> 
> For instance:
> 
>   $ cat > lib.c <<EOF
>   > void foo (void) {}
>   > EOF
>   $ gcc -shared -fPIC -o lib.so lib.c
>   $ cat > main.c <<EOF
>   extern void foo ();
>   int main () { foo (); return 0; }
>   EOF
>   $ gcc -o main main.c lib.so
>   $ LD_LIBRARY_PATH=. ./main
>   $ LD_LIBRARY_PATH=non-existing/path:. ./main
>   $ LD_LIBRARY_PATH=$(pwd)/main:. ./main
>   $ LD_LIBRARY_PATH=./main:. ./main
>   ./main: error while loading shared libraries: lib.so: cannot open shared object file: No such file or directory
> 
> The invalid './main' should be ignored and a non-existent one,
> instead as a valid but non acessible file.
                             accessible

> 
> Aboslute pathd do not triger this issue because its status are
  Absolute paths        trigger                              is


Thanks,
Joe

> initialized as 'unknown' and open_path check if this is a directory.
> 
> Checked on x86_64-linux-gnu.
> ---
>  elf/Makefile                  | 12 ++++++
>  elf/dl-load.c                 |  9 ++--
>  elf/tst-non-directory-mod.c   |  1 +
>  elf/tst-non-directory-path.c  |  4 ++
>  elf/tst-non-directory-path.sh | 77 +++++++++++++++++++++++++++++++++++
>  5 files changed, 100 insertions(+), 3 deletions(-)
>  create mode 100644 elf/tst-non-directory-mod.c
>  create mode 100644 elf/tst-non-directory-path.c
>  create mode 100755 elf/tst-non-directory-path.sh
> 
> diff --git a/elf/Makefile b/elf/Makefile
> index f9bd86a05a..f70ec7cb84 100644
> --- a/elf/Makefile
> +++ b/elf/Makefile
> @@ -428,6 +428,7 @@ tests += \
>    tst-nodelete-opened \
>    tst-nodelete2 \
>    tst-noload \
> +  tst-non-directory-path \
>    tst-null-argv \
>    tst-p_align1 \
>    tst-p_align2 \
> @@ -856,6 +857,7 @@ modules-names += \
>    tst-nodelete-dlclose-plugin \
>    tst-nodelete-opened-lib \
>    tst-nodelete2mod \
> +  tst-non-directory-mod \
>    tst-null-argv-lib \
>    tst-p_alignmod-base \
>    tst-p_alignmod3 \
> @@ -1122,6 +1124,7 @@ ifeq (yes,$(build-shared))
>  ifeq ($(run-built-tests),yes)
>  tests-special += \
>    $(objpfx)argv0test.out \
> +  $(objpfx)tst-non-directory-path.out \
>    $(objpfx)tst-pathopt.out \
>    $(objpfx)tst-rtld-help.out \
>    $(objpfx)tst-rtld-list-diagnostics.out \
> @@ -2987,3 +2990,12 @@ $(objpfx)tst-decorate-maps: $(shared-thread-library)
>  tst-decorate-maps-ENV = \
>    GLIBC_TUNABLES=glibc.malloc.arena_max=8:glibc.malloc.mmap_threshold=1024:glibc.mem.decorate_maps=1
>  tst-decorate-maps-ARGS = 8
> +
> +LDFLAGS-tst-non-directory-mod.so = -Wl,-soname,tst-non-directory-mod.so
> +$(objpfx)tst-non-directory-path: $(objpfx)tst-non-directory-mod.so
> +$(objpfx)tst-non-directory-path.out: tst-non-directory-path.sh \
> +	$(objpfx)tst-non-directory-path
> +	$(SHELL) tst-non-directory-path.sh $(objpfx)ld.so $(objpfx)tst-non-directory-path \
> +		    '$(test-wrapper-env)' '$(run_program_env)' \
> +		    '$(rpath-link)' $(objpfx) > $@; \
> +	$(evaluate-test)
> diff --git a/elf/dl-load.c b/elf/dl-load.c
> index 2923b1141d..8d351153c8 100644
> --- a/elf/dl-load.c
> +++ b/elf/dl-load.c
> @@ -1810,7 +1810,6 @@ open_path (const char *name, size_t namelen, int mode,
>        size_t cnt;
>        char *edp;
>        int here_any = 0;
> -      int err;
>  
>        /* If we are debugging the search for libraries print the path
>  	 now if it hasn't happened now.  */
> @@ -1911,8 +1910,12 @@ open_path (const char *name, size_t namelen, int mode,
>  	      return -1;
>  	    }
>  	}
> -      if (here_any && (err = errno) != ENOENT && err != EACCES)
> -	/* The file exists and is readable, but something went wrong.  */
> +
> +      /* Continue the search if the file does not exist (ENOENT), if it can
> +	 not be accessed (EACCES), or if the a component in the path is not a
> +	 directory (for instance, if the component is a existing file meaning
> +	 essentially that the pathname is invalid - ENOTDIR).  */
> +      if (here_any && errno != ENOENT && errno != EACCES && errno != ENOTDIR)
>  	return -1;
>  
>        /* Remember whether we found anything.  */
> diff --git a/elf/tst-non-directory-mod.c b/elf/tst-non-directory-mod.c
> new file mode 100644
> index 0000000000..aa6d4c27df
> --- /dev/null
> +++ b/elf/tst-non-directory-mod.c
> @@ -0,0 +1 @@
> +void foo (void) {}
> diff --git a/elf/tst-non-directory-path.c b/elf/tst-non-directory-path.c
> new file mode 100644
> index 0000000000..cb54289a07
> --- /dev/null
> +++ b/elf/tst-non-directory-path.c
> @@ -0,0 +1,4 @@
> +int main (int argc, char *argv[])
> +{
> +  return 0;
> +}
> diff --git a/elf/tst-non-directory-path.sh b/elf/tst-non-directory-path.sh
> new file mode 100755
> index 0000000000..b21cae30c6
> --- /dev/null
> +++ b/elf/tst-non-directory-path.sh
> @@ -0,0 +1,77 @@
> +#!/bin/sh
> +# Test if library search path does not terminates with non-directory
> +# components.
> +# Copyright (C) 2023 Free Software Foundation, Inc.
> +# This file is part of the GNU C Library.
> +#
> +# The GNU C Library is free software; you can redistribute it and/or
> +# modify it under the terms of the GNU Lesser General Public
> +# License as published by the Free Software Foundation; either
> +# version 2.1 of the License, or (at your option) any later version.
> +#
> +# The GNU C Library is distributed in the hope that it will be useful,
> +# but WITHOUT ANY WARRANTY; without even the implied warranty of
> +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
> +# Lesser General Public License for more details.
> +#
> +# You should have received a copy of the GNU Lesser General Public
> +# License along with the GNU C Library; if not, see
> +# <https://www.gnu.org/licenses/>.
> +
> +set -e
> +
> +rtld=$1
> +test_program=$2
> +test_wrapper_env=$3
> +run_program_env=$4
> +# Remove the last space to allow concatenate extra paths.
> +library_path=$(echo $5 | tr -d '[:space:]')
> +objpfx=$6
> +
> +test_binary=$(basename ${test_program})
> +test_libpath=${test_binary}-x
> +
> +mkdir -p ${objpfx}/${test_libpath}
> +mv ${objpfx}/tst-non-directory-mod.so ${objpfx}/${test_libpath}
> +
> +# Check with absolute paths.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":"${objpfx}"tst-non-directory-invalid:"${objpfx}"${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":"${objpfx}"${test_binary}:"${objpfx}"${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Rlative paths along with non-existent path in search list.
> +cd "$objpfx"
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/tst-non-directory-invalid::../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Relative paths along with component in the path is not a directory in search list.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/${test_binary}:../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Relative paths along with non-existent path and a component in the path that is not a directory.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/tst-non-directory-invalid:../elf/${test_binary}:../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +exit $rc
> -- 
> 2.34.1
>
Szabolcs Nagy Nov. 13, 2023, 4:54 p.m. UTC | #2 
The 11/10/2023 11:03, Adhemerval Zanella wrote:
> The open_path stops if a relative path in search patch contains a
> component that is a non directory (for instance, if the component
> is an existing file).
> 
> For instance:
> 
>   $ cat > lib.c <<EOF
>   > void foo (void) {}
>   > EOF
>   $ gcc -shared -fPIC -o lib.so lib.c
>   $ cat > main.c <<EOF
>   extern void foo ();
>   int main () { foo (); return 0; }
>   EOF
>   $ gcc -o main main.c lib.so
>   $ LD_LIBRARY_PATH=. ./main
>   $ LD_LIBRARY_PATH=non-existing/path:. ./main
>   $ LD_LIBRARY_PATH=$(pwd)/main:. ./main
>   $ LD_LIBRARY_PATH=./main:. ./main
>   ./main: error while loading shared libraries: lib.so: cannot open shared object file: No such file or directory
> 
> The invalid './main' should be ignored and a non-existent one,
> instead as a valid but non acessible file.
> 
> Aboslute pathd do not triger this issue because its status are
> initialized as 'unknown' and open_path check if this is a directory.
> 
> Checked on x86_64-linux-gnu.
> ---
>  elf/Makefile                  | 12 ++++++
>  elf/dl-load.c                 |  9 ++--
>  elf/tst-non-directory-mod.c   |  1 +
>  elf/tst-non-directory-path.c  |  4 ++
>  elf/tst-non-directory-path.sh | 77 +++++++++++++++++++++++++++++++++++
>  5 files changed, 100 insertions(+), 3 deletions(-)
>  create mode 100644 elf/tst-non-directory-mod.c
>  create mode 100644 elf/tst-non-directory-path.c
>  create mode 100755 elf/tst-non-directory-path.sh
> 
> diff --git a/elf/Makefile b/elf/Makefile
> index f9bd86a05a..f70ec7cb84 100644
> --- a/elf/Makefile
> +++ b/elf/Makefile
> @@ -428,6 +428,7 @@ tests += \
>    tst-nodelete-opened \
>    tst-nodelete2 \
>    tst-noload \
> +  tst-non-directory-path \
>    tst-null-argv \
>    tst-p_align1 \
>    tst-p_align2 \
> @@ -856,6 +857,7 @@ modules-names += \
>    tst-nodelete-dlclose-plugin \
>    tst-nodelete-opened-lib \
>    tst-nodelete2mod \
> +  tst-non-directory-mod \
>    tst-null-argv-lib \
>    tst-p_alignmod-base \
>    tst-p_alignmod3 \
> @@ -1122,6 +1124,7 @@ ifeq (yes,$(build-shared))
>  ifeq ($(run-built-tests),yes)
>  tests-special += \
>    $(objpfx)argv0test.out \
> +  $(objpfx)tst-non-directory-path.out \
>    $(objpfx)tst-pathopt.out \
>    $(objpfx)tst-rtld-help.out \
>    $(objpfx)tst-rtld-list-diagnostics.out \
> @@ -2987,3 +2990,12 @@ $(objpfx)tst-decorate-maps: $(shared-thread-library)
>  tst-decorate-maps-ENV = \
>    GLIBC_TUNABLES=glibc.malloc.arena_max=8:glibc.malloc.mmap_threshold=1024:glibc.mem.decorate_maps=1
>  tst-decorate-maps-ARGS = 8
> +
> +LDFLAGS-tst-non-directory-mod.so = -Wl,-soname,tst-non-directory-mod.so
> +$(objpfx)tst-non-directory-path: $(objpfx)tst-non-directory-mod.so
> +$(objpfx)tst-non-directory-path.out: tst-non-directory-path.sh \
> +	$(objpfx)tst-non-directory-path
> +	$(SHELL) tst-non-directory-path.sh $(objpfx)ld.so $(objpfx)tst-non-directory-path \
> +		    '$(test-wrapper-env)' '$(run_program_env)' \
> +		    '$(rpath-link)' $(objpfx) > $@; \
> +	$(evaluate-test)
> diff --git a/elf/dl-load.c b/elf/dl-load.c
> index 2923b1141d..8d351153c8 100644
> --- a/elf/dl-load.c
> +++ b/elf/dl-load.c
> @@ -1810,7 +1810,6 @@ open_path (const char *name, size_t namelen, int mode,
>        size_t cnt;
>        char *edp;
>        int here_any = 0;
> -      int err;
>  
>        /* If we are debugging the search for libraries print the path
>  	 now if it hasn't happened now.  */
> @@ -1911,8 +1910,12 @@ open_path (const char *name, size_t namelen, int mode,
>  	      return -1;
>  	    }
>  	}
> -      if (here_any && (err = errno) != ENOENT && err != EACCES)
> -	/* The file exists and is readable, but something went wrong.  */
> +
> +      /* Continue the search if the file does not exist (ENOENT), if it can
> +	 not be accessed (EACCES), or if the a component in the path is not a
> +	 directory (for instance, if the component is a existing file meaning
> +	 essentially that the pathname is invalid - ENOTDIR).  */
> +      if (here_any && errno != ENOENT && errno != EACCES && errno != ENOTDIR)
>  	return -1;

OK.

> --- /dev/null
> +++ b/elf/tst-non-directory-mod.c
> @@ -0,0 +1 @@
> +void foo (void) {}
> diff --git a/elf/tst-non-directory-path.c b/elf/tst-non-directory-path.c
> new file mode 100644
> index 0000000000..cb54289a07
> --- /dev/null
> +++ b/elf/tst-non-directory-path.c
> @@ -0,0 +1,4 @@
> +int main (int argc, char *argv[])
> +{
> +  return 0;
> +}

i think there should be a reference to foo. (otherwise a compiler that
defaults to --as-needed would not include the module as dependency.)

> diff --git a/elf/tst-non-directory-path.sh b/elf/tst-non-directory-path.sh
> new file mode 100755
> index 0000000000..b21cae30c6
> --- /dev/null
> +++ b/elf/tst-non-directory-path.sh
> @@ -0,0 +1,77 @@
> +#!/bin/sh
> +# Test if library search path does not terminates with non-directory
> +# components.
> +# Copyright (C) 2023 Free Software Foundation, Inc.
> +# This file is part of the GNU C Library.
> +#
> +# The GNU C Library is free software; you can redistribute it and/or
> +# modify it under the terms of the GNU Lesser General Public
> +# License as published by the Free Software Foundation; either
> +# version 2.1 of the License, or (at your option) any later version.
> +#
> +# The GNU C Library is distributed in the hope that it will be useful,
> +# but WITHOUT ANY WARRANTY; without even the implied warranty of
> +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
> +# Lesser General Public License for more details.
> +#
> +# You should have received a copy of the GNU Lesser General Public
> +# License along with the GNU C Library; if not, see
> +# <https://www.gnu.org/licenses/>.
> +
> +set -e
> +
> +rtld=$1
> +test_program=$2
> +test_wrapper_env=$3
> +run_program_env=$4
> +# Remove the last space to allow concatenate extra paths.
> +library_path=$(echo $5 | tr -d '[:space:]')

i'd expect that "$(echo $5)" alone would strip whitespace.

> +objpfx=$6
> +
> +test_binary=$(basename ${test_program})
> +test_libpath=${test_binary}-x
> +
> +mkdir -p ${objpfx}/${test_libpath}
> +mv ${objpfx}/tst-non-directory-mod.so ${objpfx}/${test_libpath}
> +
> +# Check with absolute paths.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":"${objpfx}"tst-non-directory-invalid:"${objpfx}"${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":"${objpfx}"${test_binary}:"${objpfx}"${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Rlative paths along with non-existent path in search list.

typo.

> +cd "$objpfx"
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/tst-non-directory-invalid::../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Relative paths along with component in the path is not a directory in search list.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/${test_binary}:../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +# Relative paths along with non-existent path and a component in the path that is not a directory.
> +${test_wrapper_env} \
> +${run_program_env} \
> +$rtld --inhibit-cache \
> +  --library-path \
> +  "$library_path":../elf/tst-non-directory-invalid:../elf/${test_binary}:../elf/${test_libpath} \
> +  $test_program 2>&1 && rc=0 || rc=$?
> +
> +exit $rc

rest of the test looks ok.
diff mbox series

Patch

diff --git a/elf/Makefile b/elf/Makefile
index f9bd86a05a..f70ec7cb84 100644
--- a/elf/Makefile
+++ b/elf/Makefile
@@ -428,6 +428,7 @@  tests += \
   tst-nodelete-opened \
   tst-nodelete2 \
   tst-noload \
+  tst-non-directory-path \
   tst-null-argv \
   tst-p_align1 \
   tst-p_align2 \
@@ -856,6 +857,7 @@  modules-names += \
   tst-nodelete-dlclose-plugin \
   tst-nodelete-opened-lib \
   tst-nodelete2mod \
+  tst-non-directory-mod \
   tst-null-argv-lib \
   tst-p_alignmod-base \
   tst-p_alignmod3 \
@@ -1122,6 +1124,7 @@  ifeq (yes,$(build-shared))
 ifeq ($(run-built-tests),yes)
 tests-special += \
   $(objpfx)argv0test.out \
+  $(objpfx)tst-non-directory-path.out \
   $(objpfx)tst-pathopt.out \
   $(objpfx)tst-rtld-help.out \
   $(objpfx)tst-rtld-list-diagnostics.out \
@@ -2987,3 +2990,12 @@  $(objpfx)tst-decorate-maps: $(shared-thread-library)
 tst-decorate-maps-ENV = \
   GLIBC_TUNABLES=glibc.malloc.arena_max=8:glibc.malloc.mmap_threshold=1024:glibc.mem.decorate_maps=1
 tst-decorate-maps-ARGS = 8
+
+LDFLAGS-tst-non-directory-mod.so = -Wl,-soname,tst-non-directory-mod.so
+$(objpfx)tst-non-directory-path: $(objpfx)tst-non-directory-mod.so
+$(objpfx)tst-non-directory-path.out: tst-non-directory-path.sh \
+	$(objpfx)tst-non-directory-path
+	$(SHELL) tst-non-directory-path.sh $(objpfx)ld.so $(objpfx)tst-non-directory-path \
+		    '$(test-wrapper-env)' '$(run_program_env)' \
+		    '$(rpath-link)' $(objpfx) > $@; \
+	$(evaluate-test)
diff --git a/elf/dl-load.c b/elf/dl-load.c
index 2923b1141d..8d351153c8 100644
--- a/elf/dl-load.c
+++ b/elf/dl-load.c
@@ -1810,7 +1810,6 @@  open_path (const char *name, size_t namelen, int mode,
       size_t cnt;
       char *edp;
       int here_any = 0;
-      int err;
 
       /* If we are debugging the search for libraries print the path
 	 now if it hasn't happened now.  */
@@ -1911,8 +1910,12 @@  open_path (const char *name, size_t namelen, int mode,
 	      return -1;
 	    }
 	}
-      if (here_any && (err = errno) != ENOENT && err != EACCES)
-	/* The file exists and is readable, but something went wrong.  */
+
+      /* Continue the search if the file does not exist (ENOENT), if it can
+	 not be accessed (EACCES), or if the a component in the path is not a
+	 directory (for instance, if the component is a existing file meaning
+	 essentially that the pathname is invalid - ENOTDIR).  */
+      if (here_any && errno != ENOENT && errno != EACCES && errno != ENOTDIR)
 	return -1;
 
       /* Remember whether we found anything.  */
diff --git a/elf/tst-non-directory-mod.c b/elf/tst-non-directory-mod.c
new file mode 100644
index 0000000000..aa6d4c27df
--- /dev/null
+++ b/elf/tst-non-directory-mod.c
@@ -0,0 +1 @@ 
+void foo (void) {}
diff --git a/elf/tst-non-directory-path.c b/elf/tst-non-directory-path.c
new file mode 100644
index 0000000000..cb54289a07
--- /dev/null
+++ b/elf/tst-non-directory-path.c
@@ -0,0 +1,4 @@ 
+int main (int argc, char *argv[])
+{
+  return 0;
+}
diff --git a/elf/tst-non-directory-path.sh b/elf/tst-non-directory-path.sh
new file mode 100755
index 0000000000..b21cae30c6
--- /dev/null
+++ b/elf/tst-non-directory-path.sh
@@ -0,0 +1,77 @@ 
+#!/bin/sh
+# Test if library search path does not terminates with non-directory
+# components.
+# Copyright (C) 2023 Free Software Foundation, Inc.
+# This file is part of the GNU C Library.
+#
+# The GNU C Library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# The GNU C Library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with the GNU C Library; if not, see
+# <https://www.gnu.org/licenses/>.
+
+set -e
+
+rtld=$1
+test_program=$2
+test_wrapper_env=$3
+run_program_env=$4
+# Remove the last space to allow concatenate extra paths.
+library_path=$(echo $5 | tr -d '[:space:]')
+objpfx=$6
+
+test_binary=$(basename ${test_program})
+test_libpath=${test_binary}-x
+
+mkdir -p ${objpfx}/${test_libpath}
+mv ${objpfx}/tst-non-directory-mod.so ${objpfx}/${test_libpath}
+
+# Check with absolute paths.
+${test_wrapper_env} \
+${run_program_env} \
+$rtld --inhibit-cache \
+  --library-path \
+  "$library_path":"${objpfx}"tst-non-directory-invalid:"${objpfx}"${test_libpath} \
+  $test_program 2>&1 && rc=0 || rc=$?
+
+${test_wrapper_env} \
+${run_program_env} \
+$rtld --inhibit-cache \
+  --library-path \
+  "$library_path":"${objpfx}"${test_binary}:"${objpfx}"${test_libpath} \
+  $test_program 2>&1 && rc=0 || rc=$?
+
+# Rlative paths along with non-existent path in search list.
+cd "$objpfx"
+${test_wrapper_env} \
+${run_program_env} \
+$rtld --inhibit-cache \
+  --library-path \
+  "$library_path":../elf/tst-non-directory-invalid::../elf/${test_libpath} \
+  $test_program 2>&1 && rc=0 || rc=$?
+
+# Relative paths along with component in the path is not a directory in search list.
+${test_wrapper_env} \
+${run_program_env} \
+$rtld --inhibit-cache \
+  --library-path \
+  "$library_path":../elf/${test_binary}:../elf/${test_libpath} \
+  $test_program 2>&1 && rc=0 || rc=$?
+
+# Relative paths along with non-existent path and a component in the path that is not a directory.
+${test_wrapper_env} \
+${run_program_env} \
+$rtld --inhibit-cache \
+  --library-path \
+  "$library_path":../elf/tst-non-directory-invalid:../elf/${test_binary}:../elf/${test_libpath} \
+  $test_program 2>&1 && rc=0 || rc=$?
+
+exit $rc