mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2025-04-02 13:12:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

examine results of perl script execution.

Browse Source 
Signed-off-by: Ilia Maslakov <il.smind@gmail.com>
This commit is contained in:
Ilia Maslakov 2010-12-06 21:53:29 +00:00
parent 73fee4232c
commit 424069e958
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lib/vfs/mc-vfs/fish/ls
View File

@ -1,7 +1,7 @@
#LIST /${FISH_DIR } #LIST /${FISH_DIR}
LC_TIME=C LC_TIME=C
export LC_TIME export LC_TIME
perl_res="1"
fish_list_lsq () fish_list_lsq ()
{ {
FISH_DIR="$1" FISH_DIR="$1"
@ -149,14 +149,18 @@ while((my $filename = readdir (DIR))){
} }
exit 0 exit 0
' "/${FISH_DIR}" ' "/${FISH_DIR}"
perl_res=$?
} }
if [ -n "${FISH_HAVE_PERL}" ]; then if [ -n "${FISH_HAVE_PERL}" ]; then
fish_list_perl "/${FISH_FILENAME}" fish_list_perl "/${FISH_FILENAME}"
elif [ -n "${FISH_HAVE_LSQ}" ]; then fi
fish_list_lsq "/${FISH_FILENAME}" if [ "${perl_res}" != "0" ]; then
elif [ -n "${FISH_HAVE_SED}" ]; then if [ -n "${FISH_HAVE_LSQ}" ]; then
fish_list_sed "/${FISH_FILENAME}" fish_list_lsq "/${FISH_FILENAME}"
else elif [ -n "${FISH_HAVE_SED}" ]; then
fish_list_poor_ls "/${FISH_FILENAME}" fish_list_sed "/${FISH_FILENAME}"
else
fish_list_poor_ls "/${FISH_FILENAME}"
fi
fi fi