[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 6aad36a: tramp-sh.el: Work around a stat bug
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 6aad36a: tramp-sh.el: Work around a stat bug |
Date: |
Thu, 05 May 2016 08:23:21 +0000 |
branch: master
commit 6aad36ace9953b9672b13be68416d205532d5e59
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
tramp-sh.el: Work around a stat bug
* lisp/net/tramp-sh.el (tramp-get-remote-stat): Do not use
stat versions which produce shell quoted output. See also
coreutils Bug#23422.
---
lisp/net/tramp-sh.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 071ec57..3fb1588 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -5430,13 +5430,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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 6aad36a: tramp-sh.el: Work around a stat bug,
Michael Albinus <=