# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1209065547 0
# Node ID 1a989768230822020fed1ada367faa986ee3bca1
# Parent  4d11d8c52b60fb31b102d85344ee571b055cd74f
* net/tramp.el (tramp-get-remote-stat): Test whether stat supports
%s.  Reported by Loris Bennett <loris.bennett@fu-berlin.de>.

diff -r 4d11d8c52b60 -r 1a9897682308 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Thu Apr 24 18:36:47 2008 +0000
+++ b/lisp/net/tramp.el	Thu Apr 24 19:32:27 2008 +0000
@@ -6965,17 +6965,19 @@
       (let ((result (tramp-find-executable
 		     vec "stat" (tramp-get-remote-path vec)))
 	    tmp)
-	;; Check whether stat(1) returns usable syntax.
+	;; Check whether stat(1) returns usable syntax.  %s does not
+	;; work on older AIX systems.
 	(when result
 	  (setq tmp
 		;; We don't want to display an error message.
 		(with-temp-message (or (current-message) "")
 		  (condition-case nil
 		      (tramp-send-command-and-read
-		       vec (format "%s -c '(\"%%N\")' /" result))
+		       vec (format "%s -c '(\"%%N\" %%s)' /" result))
 		    (error nil))))
 	  (unless (and (listp tmp) (stringp (car tmp))
-		       (string-match "^./.$" (car tmp)))
+		       (string-match "^./.$" (car tmp))
+		       (integerp (cadr tmp)))
 	    (setq result nil)))
 	result))))