mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

tramp-sh.el: Work around a stat bug (backport from master)

Browse Source 
* lisp/net/tramp-sh.el (tramp-get-remote-stat): Do not use
stat versions which produce shell quoted output.  See also
coreutils Bug#23422.

(cherry picked from commit 6aad36ace9)
This commit is contained in:
Michael Albinus 2016-05-05 10:23:06 +02:00
parent 50650cb688
commit c760a600da
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/net/tramp-sh.el
View File

@ -5522,13 +5522,15 @@ Return ATTR."
vec "stat" (tramp-get-remote-path vec)))
tmp)
;; Check whether stat(1) returns usable syntax. "%s" does not
;; work on older AIX systems.
;; work on older AIX systems. Recent GNU stat versions (8.24?)
;; use shell quoted format for "%N", we check the boundaries "`"
;; and "'", therefore. See Bug#23422 in coreutils.
(when result
(setq tmp
(tramp-send-command-and-read
vec (format "%s -c '(\"%%N\" %%s)' /" result) 'noerror))
(unless (and (listp tmp) (stringp (car tmp))
(string-match "^./.$" (car tmp))
(string-match "^`/'$" (car tmp))
(integerp (cadr tmp)))
(setq result nil)))
result)))