tramp (2.0.38); Tramp hangs while sending the Perl `file-attributes' implementation

[Svend Tollak Munkejord]

Hi,

I have (perhaps unnecessarily?) updated my Tramp to version 2.0.38. Now it
doesn't want to connect to a host running Tru64 Unix -- it hangs while
saying "sending the Perl `file-attributes' implementation".

I remember reporting this problem about one and a half years ago, and then
it was fixed. Tramp version 2.0.30 also worked for me.

I have changed the real hostname to myhost.mydomain below, and I have
included *tramp/scp myhost.mydomain* and *debug tramp/scp myhost.mydomain*
at the bottom.

--bug report follows this line--


Emacs  : GNU Emacs 21.3.1 (i386-unknown-freebsd4.2, X toolkit, Xaw3d scroll 
bars)
 of 2003-11-25 on legendre.fim.ntnu.no
Package: tramp (2.0.38)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-multi-method nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "scp"
 tramp-rsh-end-of-line "\n"
 tramp-default-password-end-of-line "\n"
 tramp-remote-path '("/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin"
                     "/usr/ccs/bin" "/local/bin" "/local/freeware/bin"
                     "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin"
                     "/usr/contrib/bin")
 tramp-login-prompt-regexp ".*ogin: *"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):? *"
 tramp-wrong-passwd-regexp "^.*\\(Connection 
\\(?:\\(?:clo\\|refu\\)sed\\)\\|Host key verification failed\\.\\|Login 
\\(?:[Ii]ncorrect\\)\\|Name or service not known\\|\\(?:Permission 
denied\\|Sorry, try again\\)\\.\\).*\\|^.*\\(Received signal [0-9]+\\).*"
 tramp-yesno-prompt-regexp "\\(Are you sure you want to continue connecting 
(yes/no)\\?\\)\\s-*"
 tramp-yn-prompt-regexp "\\(Store key in cache\\? (y/n)\\)\\s-*"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure '("^/\\(\\([a-zA-Z_0-9-]+\\):\\)?\\(\\([^:@/         
]*\\)@\\)?\\([a-zA-Z0-9_.#-]*\\):\\(.*$\\)" 2 4 5 6)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-multi-file-name-structure 
'("^/\\(\\([a-zA-Z_0-9-]+\\)\\)?\\(\\(:%s\\)+\\)?:\\(.*$\\)" 2 3 -1)
 tramp-multi-file-name-hop-structure '("\\([a-zA-Z_0-9-]+\\):\\([^:@/   
]*\\)@\\([a-zA-Z0-9_.#-]*\\)" 1 2 3)
 tramp-multi-methods '("multi" "multiu")
 tramp-multi-connection-function-alist '(("telnet" tramp-multi-connect-telnet
                                          "telnet %h%n")
                                         ("rsh" tramp-multi-connect-rlogin
                                          "rsh %h -l %u%n")
                                         ("remsh" tramp-multi-connect-rlogin
                                          "remsh %h -l %u%n")
                                         ("ssh" tramp-multi-connect-rlogin
                                          "ssh %h -l %u%n")
                                         ("ssht" tramp-multi-connect-rlogin
                                          "ssh %h -e none -t -t -l %u%n")
                                         ("su" tramp-multi-connect-su
                                          "su - %u%n")
                                         ("sudo" tramp-multi-connect-su
                                          "sudo -u %u -s -p Password:%n")
                                         )
 tramp-methods '(("smb") ("ftp")
                 ("rcp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "rsh") (tramp-copy-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh1") (tramp-copy-program "scp1")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh2") (tramp-copy-program "scp2")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("rsync"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "rsync")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args ("-e" "ssh"))
                  (tramp-copy-keep-date-arg "-t")
                  (tramp-password-end-of-line nil))
                 ("remcp"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "remsh") (tramp-copy-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("rsh" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "rsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh1") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh2") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("remsh"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "remsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("telnet"
                  (tramp-connection-function tramp-open-connection-telnet)
                  (tramp-login-program "telnet") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("su" (tramp-connection-function tramp-open-connection-su)
                  (tramp-login-program "su") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-" "%u"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("sudo" (tramp-connection-function tramp-open-connection-su)
                  (tramp-login-program "sudo") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-u" "%u" "-s" "-p" "Password:"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("multi"
                  (tramp-connection-function tramp-open-connection-multi)
                  (tramp-login-program nil) (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("scpx" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("sshx" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("krlogin"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "krlogin") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-x"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("plink"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("plink1"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-1" "-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("pscp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program "pscp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line "xy"))
                 ("fcp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "fsh") (tramp-copy-program "fcp")
                  (tramp-remote-sh "/bin/sh -i")
                  (tramp-login-args ("sh" "-i")) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 )
 tramp-end-of-output "///57ef1e88ee9f476d27bdba812bcb3625"
 tramp-coding-commands '(("mimencode -b" "mimencode -u -b"
                          base64-encode-region base64-decode-region)
                         ("mmencode -b" "mmencode -u -b" base64-encode-region
                          base64-decode-region)
                         ("recode data..base64" "recode base64..data"
                          base64-encode-region base64-decode-region)
                         ("uuencode xxx" "uudecode -o -" tramp-uuencode-region
                          uudecode-decode-region)
                         ("uuencode xxx" "uudecode -p" tramp-uuencode-region
                          uudecode-decode-region)
                         ("uuencode xxx" "tramp_uudecode"
                          tramp-uuencode-region uudecode-decode-region)
                         ("tramp_encode_with_module"
                          "tramp_decode_with_module" base64-encode-region
                          base64-decode-region)
                         ("tramp_encode" "tramp_decode" base64-encode-region
                          base64-decode-region)
                         )
 tramp-actions-before-shell '((tramp-password-prompt-regexp
                               tramp-action-password)
                              (tramp-login-prompt-regexp tramp-action-login)
                              (shell-prompt-pattern tramp-action-succeed)
                              (tramp-shell-prompt-pattern tramp-action-succeed)
                              (tramp-wrong-passwd-regexp
                               tramp-action-permission-denied)
                              (tramp-yesno-prompt-regexp tramp-action-yesno)
                              (tramp-yn-prompt-regexp tramp-action-yn)
                              (tramp-terminal-prompt-regexp
                               tramp-action-terminal)
                              )
 tramp-multi-actions '((tramp-password-prompt-regexp
                        tramp-multi-action-password)
                       (tramp-login-prompt-regexp tramp-multi-action-login)
                       (shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-wrong-passwd-regexp
                        tramp-multi-action-permission-denied)
                       )
 tramp-terminal-type "xterm"
 tramp-shell-prompt-pattern "^[^#$%>\n]*[#$%>] *\\(\\[[0-9;]*[a-zA-Z] *\\)*"
 tramp-chunksize nil
 shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
 backup-by-copying nil
 backup-by-copying-when-linked nil
 backup-by-copying-when-mismatch nil
 backup-by-copying-when-privileged-mismatch 200
 file-name-handler-alist '(("^/[^/]*$" . tramp-completion-file-name-handler)
                           ("\\`/[^/:]+:" . tramp-file-name-handler)
                           ("\\`/:" . file-name-non-special))
 )

--Contents of *tramp/scp myhost*--
tramp_executable /bin/perl
^G^G

--Contents of *debug tramp/scp myhost*--
# Opening connection for address@hidden using nil...
# Waiting for prompts from remote shell
# Waiting 60s for prompt from remote shell
# Found remote shell prompt.
# Initializing remote shell
$ unset correct
unset correct

address@hidden > $ unset autocorrect
unset autocorrect

address@hidden > $ exec env 'ENV=' 'PS1=$ ' /bin/sh
# Waiting 30s for remote `/bin/sh' to come up...
exec env 'ENV=' 'PS1=$ ' /bin/sh

$ exec env 'ENV=' 'PS1=$ ' /bin/sh

$ # Setting up remote shell environment
$ stty -inlcr -echo kill '^U'
stty -inlcr -echo kill '^U'

$ $ TERM=dumb; export TERM
$ # Determining coding system
$ echo foo ; echo bar
foo

bar

$ # Waiting 30s for `HISTFILE=$HOME/.tramp_history; HISTSIZE=1'
$ HISTFILE=$HOME/.tramp_history; HISTSIZE=1
$ # Waiting 30s for `set +o vi +o emacs'
$ set +o vi +o emacs
+o: bad option(s)
$ # Waiting 30s for `unset MAIL MAILCHECK MAILPATH'
$ unset MAIL MAILCHECK MAILPATH 1>/dev/null 2>/dev/null
$ # Waiting 30s for `unset CDPATH'
$ unset CDPATH
$ # Setting shell prompt
$ PS1='
///c56f275f58972f4a5ae1df226b41c93b
'; PS2=''; PS3=''
$ echo ~root
~root
$ while read d; do if test -x $d/bash -a -f $d/bash; then echo tramp_executable 
$d/bash; break; fi; done <<'EOF'
$ /bin
$ /usr/bin
$ /usr/sbin
$ /usr/local/bin
$ /usr/ccs/bin
$ /local/bin
$ /local/freeware/bin
$ /local/gnu/bin
$ /usr/freeware/bin
$ /usr/pkg/bin
$ /usr/contrib/bin
$ EOF
tramp_executable /bin/bash
# Starting remote shell `/bin/bash -norc -noprofile' for tilde expansion...
$ PS1='$ ' exec /bin/bash -norc -noprofile
$ # Setting remote shell prompt...
# Setting remote shell prompt...done
# Finding command to check if file exists
$ test -e / 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ test -e /\ this\ file\ does\ not\ exist\  2>/dev/null; echo tramp_exit_status 
$? 
tramp_exit_status 1
# Finding a suitable `ls' command
# Checking remote `/bin/ls' command for `-n' option
$ test -x /bin/ls 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
# Testing remote command `/bin/ls' for -n...
$ /bin/ls -lnd / >/dev/null 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
# Testing remote command `/bin/ls' for -n...okay
# Using remote command `/bin/ls' for getting directory listings
$ tramp_set_exit_status () {
return $1
}
$ test -e /bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ ( test -d /bin 2>/dev/null; echo tramp_exit_status $? )
tramp_exit_status 0
$ test -e /usr/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ ( test -d /usr/bin 2>/dev/null; echo tramp_exit_status $? )
tramp_exit_status 0
$ test -e /usr/sbin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ ( test -d /usr/sbin 2>/dev/null; echo tramp_exit_status $? )
tramp_exit_status 0
$ test -e /usr/local/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ ( test -d /usr/local/bin 2>/dev/null; echo tramp_exit_status $? )
tramp_exit_status 0
$ test -e /usr/ccs/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 0
$ ( test -d /usr/ccs/bin 2>/dev/null; echo tramp_exit_status $? )
tramp_exit_status 0
$ test -e /local/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ test -e /local/freeware/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ test -e /local/gnu/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ test -e /usr/freeware/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ test -e /usr/pkg/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ test -e /usr/contrib/bin 2>/dev/null; echo tramp_exit_status $? 
tramp_exit_status 1
$ PATH=/bin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/ccs/bin; export PATH
$ LC_TIME=C; export LC_TIME; echo huhu
huhu
$ mesg n; echo huhu
huhu
$ biff n ; echo huhu
huhu
$ unalias ls; echo huhu
bash: unalias: `ls': not an alias
huhu
$ ( test / -nt / )
$ tramp_test_nt () {
test -n "`find $1 -prune -newer $2 -print`"
}
$ tramp_uudecode () {
(echo begin 600 /tmp/tramp.$$; tail +2) | uudecode
cat /tmp/tramp.$$
rm -f /tmp/tramp.$$
}
$ while read d; do if test -x $d/perl5 -a -f $d/perl5; then echo 
tramp_executable $d/perl5; break; fi; done <<'EOF'
$ /bin
$ /usr/bin
$ /usr/sbin
$ /usr/local/bin
$ /usr/ccs/bin
$ /local/bin
$ /local/freeware/bin
$ /local/gnu/bin
$ /usr/freeware/bin
$ /usr/pkg/bin
$ /usr/contrib/bin
$ EOF
$ while read d; do if test -x $d/perl -a -f $d/perl; then echo tramp_executable 
$d/perl; break; fi; done <<'EOF'
$ /bin
$ /usr/bin
$ /usr/sbin
$ /usr/local/bin
$ /usr/ccs/bin
$ /local/bin
$ /local/freeware/bin
$ /local/gnu/bin
$ /usr/freeware/bin
$ /usr/pkg/bin
$ /usr/contrib/bin
$ EOF
tramp_executable /bin/perl
# Sending the Perl `file-attributes' implementation.
$ tramp_file_attributes () {
/bin/perl -e '($f, $n) = @ARGV;
@s = lstat($f);
if (($s[2] & 0170000) == 0120000) { $l = readlink($f); $l = "\"$l\""; }
elsif (($s[2] & 0170000) == 040000) { $l = "t"; }
else { $l = "nil" };
$u = ($n eq "nil") ? $s[4] : getpwuid($s[4]);
$g = ($n eq "nil") ? $s[5] : getgrgid($s[5]);
printf("(%s %u %s %s (%u %u) (%u %u) (%u %u) %u %u t (%u . %u) -1)\n",
$l, $s[3], $u, $g, $s[8] >> 16 & 0xffff, $s[8] & 0xffff,
$s[9] >> 16 & 0xffff, $s[9] & 0xffff, $s[10] >> 16 & 0xffff, $s[10] & 0xffff,
$s[7], $s[2], $s[1] >> 16 & 0xffff, $s[1] & 0xffff);' $1 $2 2>/dev/null
}

-- 
Svend Tollak Munkejord