From 424069e9583e8b0870b23a1a1236bd7d94077d05 Mon Sep 17 00:00:00 2001 From: Ilia Maslakov Date: Mon, 6 Dec 2010 21:53:29 +0000 Subject: [PATCH] examine results of perl script execution. Signed-off-by: Ilia Maslakov --- lib/vfs/mc-vfs/fish/ls | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/lib/vfs/mc-vfs/fish/ls b/lib/vfs/mc-vfs/fish/ls index 7f6f1c456..f5fc4bb5c 100755 --- a/lib/vfs/mc-vfs/fish/ls +++ b/lib/vfs/mc-vfs/fish/ls @@ -1,7 +1,7 @@ -#LIST /${FISH_DIR } +#LIST /${FISH_DIR} LC_TIME=C export LC_TIME - +perl_res="1" fish_list_lsq () { FISH_DIR="$1" @@ -149,14 +149,18 @@ while((my $filename = readdir (DIR))){ } exit 0 ' "/${FISH_DIR}" +perl_res=$? } if [ -n "${FISH_HAVE_PERL}" ]; then fish_list_perl "/${FISH_FILENAME}" -elif [ -n "${FISH_HAVE_LSQ}" ]; then - fish_list_lsq "/${FISH_FILENAME}" -elif [ -n "${FISH_HAVE_SED}" ]; then - fish_list_sed "/${FISH_FILENAME}" -else - fish_list_poor_ls "/${FISH_FILENAME}" +fi +if [ "${perl_res}" != "0" ]; then + if [ -n "${FISH_HAVE_LSQ}" ]; then + fish_list_lsq "/${FISH_FILENAME}" + elif [ -n "${FISH_HAVE_SED}" ]; then + fish_list_sed "/${FISH_FILENAME}" + else + fish_list_poor_ls "/${FISH_FILENAME}" + fi fi -- 2.11.4.GIT