Re: `tramp_perl_file_attributes /root/ integer' returns with error

On Thu, Jul 15, 2010 at 11:07 AM, Michael Albinus <address@hidden> wrote:

Terrence Brannon <address@hidden> writes:

>> Unfortunately, this doesn't show us what happens. Could you, please,
>> change in `tramp-send-command-and-check' the line
>>
>> (if command (if dont-suppress-err "; " " 2>/dev/null; ") "")
>>
>> to
>>
>> (if command (if dont-suppress-err "; " " 2>/tmp/123; ") "")
>>
>> and try to investigate, what error has been written?
>

> It was a zero-length file ...

Ahh, stderr is already redirected somewhere else. Please revert this
patch,

reverted.

and apply instead

applied.

--8<---------------cut here---------------start------------->8---
*** /home/albinus/src/tramp/lisp/tramp.el.~1~ 2010-07-13 17:43:56.000000000 +0200
--- /home/albinus/src/tramp/lisp/tramp.el 2010-07-15 17:02:19.448021000 +0200
***************

I applied it. The entire file is here:

http://gist.github.com/477094

It threw a gigantic stack backtrace:

Debugger entered--Lisp error: (file-error "`tramp_perl_file_truename /root/' returns with error")

signal(file-error ("`tramp_perl_file_truename /root/' returns with error"))

(let (tramp-message-show-message) (tramp-message vec-or-proc 1 "%s" (error-message-string ...)) (signal signal (list ...)))

tramp-error(["ssh" "root" "aim.boca.verio.net" "/root/"] file-error "`%s' returns with error" "tramp_perl_file_truename /root/")

apply(tramp-error ["ssh" "root" "aim.boca.verio.net" "/root/"] file-error "`%s' returns with error" "tramp_perl_file_truename /root/")

(if (zerop (tramp-send-command-and-check vec command)) nil (apply (quote tramp-error) vec (quote file-error) fmt args))

(unless (zerop (tramp-send-command-and-check vec command)) (apply (quote tramp-error) vec (quote file-error) fmt args))

tramp-barf-unless-okay(["ssh" "root" "aim.boca.verio.net" "/root/"] "tramp_perl_file_truename /root/" "`%s' returns with error" "tramp_perl_file_truename /root/")

tramp-send-command-and-read(["ssh" "root" "aim.boca.verio.net" "/root/"] "tramp_perl_file_truename /root/")

(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename %s" ...)))

(cond ((tramp-get-remote-readlink v) (setq result ...)) ((and ... ... ...) (tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename") (setq result ...)) (t (let* ... ... ... ... ... ...)))

(let ((result nil)) (tramp-message v 4 "Finding true name for `%s'" filename) (cond (... ...) (... ... ...) (t ...)) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result))

(progn (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result)))

(setq value (progn (let ... ... ... ... ...)))

(progn (setq value (progn ...)) (tramp-set-file-property v localname "file-truename" value))

(if (eq value (quote undef)) (progn (setq value ...) (tramp-set-file-property v localname "file-truename" value)))

(when (eq value (quote undef)) (setq value (progn ...)) (tramp-set-file-property v localname "file-truename" value))

(let ((value ...)) (when (eq value ...) (setq value ...) (tramp-set-file-property v localname "file-truename" value)) value)

(if (file-name-absolute-p localname) (let (...) (when ... ... ...) value) (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result)))

(with-file-property v localname "file-truename" (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result)))

(let* ((v ...) (method ...) (user ...) (host ...) (localname ...)) (with-file-property v localname "file-truename" (let ... ... ... ... ...)))

(with-parsed-tramp-file-name (expand-file-name filename) nil (with-file-property v localname "file-truename" (let ... ... ... ... ...)))

tramp-handle-file-truename("/ssh:address@hidden:/root/")

apply(tramp-handle-file-truename "/ssh:address@hidden:/root/")

(if fn (apply (cdr fn) args) (tramp-run-real-handler operation args))

(let ((fn ...)) (if fn (apply ... args) (tramp-run-real-handler operation args)))

(progn (let (...) (if fn ... ...)))

(unwind-protect (progn (let ... ...)) (set-match-data save-match-data-internal (quote evaporate)))

(let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))

(save-match-data (let (...) (if fn ... ...)))

(let ((tramp-locker t)) (save-match-data (let ... ...)))

(progn (setq tramp-locked t) (let (...) (save-match-data ...)))

(unwind-protect (progn (setq tramp-locked t) (let ... ...)) (setq tramp-locked tl))

(let ((tl tramp-locked)) (unwind-protect (progn ... ...) (setq tramp-locked tl)))

tramp-sh-file-name-handler(file-truename "/ssh:address@hidden:/root/")

apply(tramp-sh-file-name-handler file-truename "/ssh:address@hidden:/root/")

(cond ((and completion ... ...) t) ((and completion ... ...) filename) (foreign (apply foreign operation args)) (t (tramp-run-real-handler operation args)))

(let* ((v ...) (method ...) (user ...) (host ...) (localname ...)) (cond (... t) (... filename) (foreign ...) (t ...)))

(with-parsed-tramp-file-name filename nil (cond (... t) (... filename) (foreign ...) (t ...)))

(let* ((filename ...) (completion ...) (foreign ...)) (with-parsed-tramp-file-name filename nil (cond ... ... ... ...)))

(progn (let* (... ... ...) (with-parsed-tramp-file-name filename nil ...)))

(unwind-protect (progn (let* ... ...)) (set-match-data save-match-data-internal (quote evaporate)))

(let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))

(save-match-data (let* (... ... ...) (with-parsed-tramp-file-name filename nil ...)))

(if tramp-mode (save-match-data (let* ... ...)) (tramp-run-real-handler operation args))

tramp-file-name-handler(file-truename "/ssh:address@hidden:/root/")

file-truename("/ssh:address@hidden:/root/")

cedet-directory-name-to-file-name("/ssh:address@hidden:/root/")

ede-simple-projectfile-for-dir("/ssh:address@hidden:/root/")

#[(this dir) "\306!\307\n \"\310\n\311\"\211;\203\312\f\206 \"\2020\f9\2050\313\f!\2050\f\206/ !\211\205<\314

!\205<

,\207" [dir d this root pf f file-name-as-directory ede-project-root-directory eieio-oref proj-file expand-file-name fboundp file-exists-p] 4 "Return a full file name of project THIS found in DIR.\nReturn nil if the project file does not exist."]([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:address@hidden:/root/")

apply(#[(this dir) "\306!\307\n \"\310\n\311\"\211;\203\312\f\206 \"\2020\f9\2050\313\f!\2050\f\206/ !\211\205<\314

!\205<

,\207" [dir d this root pf f file-name-as-directory ede-project-root-directory eieio-oref proj-file expand-file-name fboundp file-exists-p] 4 "Return a full file name of project THIS found in DIR.\nReturn nil if the project file does not exist."] ([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:address@hidden:/root/"))

ede-dir-to-projectfile([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:address@hidden:/root/")

ede-directory-project-p("/ssh:address@hidden:/root/")

ede-dired-minor-mode(1)

ede-minor-mode(1)

ede-turn-on-hook()

run-hooks(dired-mode-hook)

apply(run-hooks dired-mode-hook)

run-mode-hooks(dired-mode-hook)

dired-mode("/ssh:address@hidden:/root/" "-al")

dired-internal-noselect("/ssh:address@hidden:/root/" nil)

dired-noselect("/address@hidden:" nil)

dired-other-window("/address@hidden:" nil)

call-interactively(dired-other-window nil nil)

From:	Terrence Brannon
Subject:	Re: `tramp_perl_file_attributes /root/ integer' returns with error
Date:	Thu, 15 Jul 2010 11:26:37 -0400