tramp (2.1.16-pre); Wicked slowdown

[David Abrahams]

Enter your bug report in this message, including as much detail
as you possibly can about the problem, what you did to cause it
and what the local and remote machines are.

If you can give a simple set of instructions to make this bug
happen reliably, please include those.  Thank you for helping
kill bugs in Tramp.

Another useful thing to do is to put

  (setq tramp-verbose 8)

in the ~/.emacs file and to repeat the bug.  Then, include the
contents of the *tramp/foo* buffer and the *debug tramp/foo*
buffer in your bug report.

--bug report follows this line--


I've noticed TRAMP being /really/ slow on my mac compared to my Linux
machine.  I am using a more recent snapshot of TRAMP on my mac, so it's
not the same thing of course.  I'd visit /boostpro.com:.emacs and it
would just sit there for a long time after finding the remote shell
prompt.  Spent a few hours debugging this: I turned on "enter debugger
on quit" and hit `C-g' a few times during this long process.  What the
backtraces had in common was the mapcar call in tramp-get-remote-path.
CVS blame seems to indicate that's a recent change.

Emacs  : GNU Emacs 23.0.92.1 (i386-apple-darwin9.6.0, NS apple-appkit-949.43)
 of 2009-04-06 on black.local
Package: tramp (2.1.16-pre)

current state:
==============
(setq
 tramp-current-method "scp"
 tramp-current-user nil
 tramp-current-host "boostpro.com"
 tramp-auto-save-directory nil
 tramp-default-method "scp"
 tramp-default-method-alist '((nil "%" "smb") ("" "\\`\\(anonymous\\|ftp\\)\\'" 
"ftp") ("\\`ftp\\." "" "ftp")
                              ("\\`localhost\\'" "\\`root\\'" "su"))
 tramp-default-host "zreba.local"
 tramp-default-proxies-alist '(("\\`dev[0-9]+-r92\\'" "" "/ssh:address@hidden:")
                               
("\\`\\(?:[^z]\\|z[^r].*\\|zr[^e]\\|zre[^b]\\|zreb[^a]\\).*" "\\`root\\'"
                                "/:%h:")
                               ("\\`boost\\.kavam\\.net\\'" "" 
"/ssh:address@hidden:"))
 tramp-default-user nil
 tramp-default-user-alist '(("socks" nil "dave") ("tunnel" nil "dave") ("fish" 
nil "dave") ("smb" nil "")
                            ("\\`su\\(do\\)?\\'" nil "root")
                            ("\\`r\\(em\\)?\\(cp\\|sh\\)\\|telnet\\|plink1?\\'" 
nil "dave"))
 tramp-rsh-end-of-line "\n"
 tramp-default-password-end-of-line "\n"
 tramp-login-prompt-regexp ".*ogin\\( .*\\)?: *"
 tramp-password-prompt-regexp "(base64-decode-string 
\"Xi4qXChbcFBdYXNzd29yZFx8W3BQXWFzc3BocmFzZVwpLio6AD8gKg==\""
 tramp-wrong-passwd-regexp "^.*\\(Connection 
\\(?:\\(?:clo\\|refu\\)sed\\)\\|Host key verification failed\\.\\|Login 
\\(?:[Ii]ncorrect\\)\\|N\\(?:ame or service not known\\|o supported 
authentication methods left to try!\\)\\|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/\\|Update cached 
key\\? (y/n, Return cancels connectio\\)n)\\)\\s-*"
 tramp-terminal-prompt-regexp "\\(TERM = (.*)\\|Terminal type\\? 
\\[.*\\]\\)\\s-*"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure '("^/\\(\\([a-zA-Z_0-9-]+\\):\\)?\\(\\([^:/  
]+\\)@\\)?\\(\\([a-zA-Z0-9_.-]+\\|\\[\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+]\\)\\(#[0-9]+\\)?\\)?:\\(.*$\\)"
 2 4 5 8)
 tramp-file-name-regexp "\\`/\\([^[/:]+\\|[^/]+]\\):"
 tramp-methods '(("fish") ("smb") ("ftp")
                 ("rcp" (tramp-login-program "rsh") (tramp-login-args (("%h") 
("-l" "%u")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "rcp") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil))
                 ("scp" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp")
                  (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q"))) 
(tramp-copy-keep-date t)
                  (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("scp1" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-1" "-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp")
                  (tramp-copy-args (("-1") ("-P" "%p") ("-p" "%k") ("-q"))) 
(tramp-copy-keep-date t)
                  (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("scp2" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-2" "-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp")
                  (tramp-copy-args (("-2") ("-P" "%p") ("-p" "%k") ("-q"))) 
(tramp-copy-keep-date t)
                  (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("scp1_old" (tramp-login-program "ssh1")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp1") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil))
                 ("scp2_old" (tramp-login-program "ssh2")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp2") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil))
                 ("sftp" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "sftp") 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("rsync" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "rsync")
                  (tramp-copy-args (("-e" "ssh") ("-t" "%k"))) 
(tramp-copy-keep-date t)
                  (tramp-password-end-of-line nil))
                 ("remcp" (tramp-login-program "remsh") (tramp-login-args 
(("%h") ("-l" "%u")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "rcp") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil))
                 ("rsh" (tramp-login-program "rsh") (tramp-login-args (("%h") 
("-l" "%u")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("ssh" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("ssh1" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-1" "-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("ssh2" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-2" "-e" "none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("ssh1_old" (tramp-login-program "ssh1")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("ssh2_old" (tramp-login-program "ssh2")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("remsh" (tramp-login-program "remsh") (tramp-login-args 
(("%h") ("-l" "%u")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("telnet" (tramp-login-program "telnet") (tramp-login-args 
(("%h") ("%p")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil) 
(tramp-default-port 23))
                 ("su" (tramp-login-program "su") (tramp-login-args (("-") 
("%u")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("sudo" (tramp-login-program "sudo")
                  (tramp-login-args (("-u" "%u") ("-s") ("-H") ("-p" 
"Password:")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("scpc" (tramp-login-program "ssh")
                  (tramp-login-args
                   (("%h") ("-l" "%u") ("-p" "%p") ("-q") ("-o" 
"address@hidden:%%p")
                    ("-o" "ControlMaster=yes") ("-e" "none"))
                   )
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp")
                  (tramp-copy-args
                   (("-P" "%p") ("-p" "%k") ("-q") ("-o" "address@hidden:%%p")
                    ("-o" "ControlMaster=auto"))
                   )
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("scpx" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-e" "none" "-t" "-t" "/bin/sh")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program "scp") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("sshx" (tramp-login-program "ssh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-q") 
("-e" "none" "-t" "-t" "/bin/sh")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil)
                  (tramp-gw-args
                   (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" 
"UserKnownHostsFile=/dev/null")
                    ("-o" "StrictHostKeyChecking=no"))
                   )
                  (tramp-default-port 22))
                 ("krlogin" (tramp-login-program "krlogin") (tramp-login-args 
(("%h") ("-l" "%u") ("-x")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("plink" (tramp-login-program "plink")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-ssh"))) 
(tramp-remote-sh "/bin/sh")
                  (tramp-copy-program nil) (tramp-copy-args nil) 
(tramp-copy-keep-date nil)
                  (tramp-password-end-of-line "xy") (tramp-default-port 22))
                 ("plink1" (tramp-login-program "plink")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-1" 
"-ssh")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line "xy") 
(tramp-default-port 22))
                 ("plinkx" (tramp-login-program "plink")
                  (tramp-login-args
                   (("-load") ("%h") ("-t") ("env 'TERM=dumb' 'PROMPT_COMMAND=' 
'PS1=$ '") ("/bin/sh")))
                  (tramp-remote-sh "/bin/sh") (tramp-copy-program nil) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date nil) (tramp-password-end-of-line nil))
                 ("pscp" (tramp-login-program "plink")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-ssh"))) 
(tramp-remote-sh "/bin/sh")
                  (tramp-copy-program "pscp") (tramp-copy-args (("-P" "%p") 
("-scp") ("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line "xy") 
(tramp-default-port 22))
                 ("psftp" (tramp-login-program "plink")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-ssh"))) 
(tramp-remote-sh "/bin/sh")
                  (tramp-copy-program "pscp") (tramp-copy-args (("-P" "%p") 
("-sftp") ("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line "xy"))
                 ("fcp" (tramp-login-program "fsh") (tramp-login-args (("%h") 
("-l" "%u") ("sh" "-i")))
                  (tramp-remote-sh "/bin/sh -i") (tramp-copy-program "fcp") 
(tramp-copy-args (("-p" "%k")))
                  (tramp-copy-keep-date t) (tramp-password-end-of-line nil))
                 )
 tramp-end-of-output "///c84172698cc69d3c1ba7e24f7c6779d9$"
 tramp-local-coding-commands '((b64 base64-encode-region base64-decode-region)
                               (uu tramp-uuencode-region uudecode-decode-region)
                               (pack
                                "perl -e 'binmode STDIN; binmode STDOUT; print 
pack(q{u*}, join q{}, <>)'"
                                "perl -e 'binmode STDIN; binmode STDOUT; print 
unpack(q{u*}, join q{}, <>)'")
                               )
 tramp-remote-coding-commands '((b64 "base64" "base64 -d") (b64 "mimencode -b" 
"mimencode -u -b")
                                (b64 "mmencode -b" "mmencode -u -b")
                                (b64 "recode data..base64" "recode 
base64..data")
                                (b64 tramp-perl-encode-with-module 
tramp-perl-decode-with-module)
                                (b64 tramp-perl-encode tramp-perl-decode)
                                (uu "uuencode xxx" "uudecode -o /dev/stdout")
                                (uu "uuencode xxx" "uudecode -o -") (uu 
"uuencode xxx" "uudecode -p")
                                (uu "uuencode xxx" tramp-uudecode)
                                (pack
                                 "perl -e 'binmode STDIN; binmode STDOUT; print 
pack(q{u*}, join q{}, <>)'"
                                 "perl -e 'binmode STDIN; binmode STDOUT; print 
unpack(q{u*}, join q{}, <>)'")
                                )
 tramp-actions-before-shell '((tramp-login-prompt-regexp tramp-action-login)
                              (tramp-password-prompt-regexp 
tramp-action-password)
                              (tramp-wrong-passwd-regexp 
tramp-action-permission-denied)
                              (shell-prompt-pattern tramp-action-succeed)
                              (tramp-shell-prompt-pattern tramp-action-succeed)
                              (tramp-yesno-prompt-regexp tramp-action-yesno)
                              (tramp-yn-prompt-regexp tramp-action-yn)
                              (tramp-terminal-prompt-regexp 
tramp-action-terminal)
                              (tramp-process-alive-regexp 
tramp-action-process-alive))
 tramp-actions-copy-out-of-band '((tramp-password-prompt-regexp 
tramp-action-password)
                                  (tramp-wrong-passwd-regexp 
tramp-action-permission-denied)
                                  (tramp-copy-failed-regexp 
tramp-action-permission-denied)
                                  (tramp-process-alive-regexp 
tramp-action-out-of-band))
 tramp-terminal-type "dumb"
 tramp-shell-prompt-pattern "(base64-decode-string 
\"XlteIyQlPgpdKlsjJCU+XSAqXCgbXFtbMC05O10qW2EtekEtWl0gKlwpKg==\""
 tramp-backup-directory-alist '(("." . "~/.emacs.d/backups"))
 tramp-cache-data '((["scp" nil "boostpro.com" ""] nil)
                    ("#<process *tramp/scp boostpro.com*>"
                     ("temp-file" 
"/var/folders/w6/w6aHCL+5EVeBUsDYKAF0pU+++TI/-Tmp-/tramp.48527rJi")
                     ("last-cmd-time" (18919 3080 418269)) 
("first-password-request" t) ("chunksize" 500))
                    (["scp" nil "boostpro.com" nil] ("uname" "FreeBSD 
6.2-RELEASE") ("test" "test"))
                    (["scp" nil "boostpro.com" "/usr/bin"] ("file-directory-p" 
t))
                    (["scp" nil "boostpro.com" "/bin"] ("file-directory-p" t))
                    (["scp" nil "boostpro.com" "/usr/sbin"] ("file-directory-p" 
t))
                    (["scp" nil "boostpro.com" "/sbin"] ("file-directory-p" t))
                    (["scp" nil "boostpro.com" "/usr/local/sbin"] 
("file-directory-p" t))
                    (["scp" nil "boostpro.com" "/usr/local/bin"] 
("file-directory-p" t))
                    (["scp" nil "boostpro.com" "/local/bin"] 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
 password-cache t
 password-cache-expiry 16
 backup-directory-alist '(("." . "~/.emacs.d/backups"))
 file-name-handler-alist 
'(("\\.Z\\(~\\|\\.~[0-9]+~\\)?\\'\\|\\.bz2\\(~\\|\\.~[0-9]+~\\)?\\'\\|\\.tbz2?\\'\\|\\.\\(?:tgz\\|svgz\\|sifz\\)\\(~\\|\\.~[0-9]+~\\)?\\'\\|\\.g?z\\(~\\|\\.~[0-9]+~\\)?\\'\\|\\.dz\\'"
 . jka-compr-handler)
                           ("\\`/\\([^[/:]+\\|[^/]+]\\):" . 
tramp-file-name-handler)
                           ("/!/" . tramp2-file-name-handler)
                           ("\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" . 
epa-file-handler)
                           ("\\`/:" . file-name-non-special))
 )
-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com

(setq
 buffer-name "*tramp/scp boostpro.com*"
 )

This is a special notion of the `gnus/message' package.  If you
use another mail agent (by copying the contents of this buffer)
please ensure that the buffers are attached to your email.

txtk8M98QTPJy.txt
Description: *tramp/scp boostpro.com*

txt7kDjuwbE2r.txt
Description: *debug tramp/scp boostpro.com*