tramp (2.1.2-pre); Tramp corrupts remote files

[Benjamin Place]

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-debug-buffer t) 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--

Local machine is:
address@hidden tramp 08:18 PM $ uname -a
Darwin newton.rocketscience.homeunix.net 7.5.0 Darwin Kernel Version 
7.5.0: Thu Aug  5 19:26:16 PDT 2004; 
root:xnu/xnu-517.7.21.obj~3/RELEASE_PPC  Power Macintosh powerpc

Remote machine is:
address@hidden ben 08:13 PM $ uname -a
Linux debian 2.4.26 #18 ÌÚ 4·î 22 11:45:15 JST 2004 ppc GNU/Linux

Entering this text:

--  test_tramp.adb
with Ada.Text_IO;

procedure Test_Tramp is
begin
   Ada.Text_IO.Put_Line ("Hello, Tramp!");
end Test_Tramp;



results in this file being saved on the remote system:

address@hidden ben 08:13 PM $ cat test_tramp.adb
--  test_tramp.adb
with Ada.Text_IO;

procedure Test_Tram--  test_tramp.adb
with Ada.Text_IO;

procedure Test_Tramp is
begin
   Ada.Text_IO.Put_Line ("Hello, Tramp!");
end--  test_tramp.adb
with Ada.Text_IO;

procedure Test_Tramp is
begin
   Ada.Text_IO.Put_Line ("Hello, Tramp!");
end Test_Tramp;



The corrupted text varies, but it is reliably corrupt.



Emacs  : GNU Emacs 21.2.1 (powerpc-apple-darwin, X toolkit)
 of 2004-07-09 on newton.local
Package: tramp (2.1.2-pre)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "ssh"
 tramp-default-method-alist '((nil "%" "smb") ("" 
"\\`\\(anonymous\\|ftp\\)\\'" "ftp")
                              ("\\`ftp\\." "" "ftp") ("\\`localhost\\'" "\\`root\\'" 
"su"))
 tramp-default-proxies-alist nil
 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\\.\\|Tramp connection 
closed\\).*\\|^.*\\(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-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_.-]+\\(#[0-9]+\\)?\\)?:\\(.*$\\)" 2 4 5 7)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-methods '(("smb") ("ftp")
                 ("rcp" (tramp-login-program "rsh") (tramp-copy-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h") ("-l" 
"%u")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp" (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1" (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
		  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-1" "-e" 
"none")))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2" (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
		  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-2" "-e" 
"none")))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1_old" (tramp-login-program "ssh1") (tramp-copy-program 
"scp1")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2_old" (tramp-login-program "ssh2") (tramp-copy-program 
"scp2")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("sftp" (tramp-login-program "ssh") (tramp-copy-program "sftp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("rsync" (tramp-login-program "ssh") (tramp-copy-program 
"rsync")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args ("-e" "ssh")) (tramp-copy-keep-date-arg "-t")
                  (tramp-password-end-of-line nil))
                 ("remcp" (tramp-login-program "remsh") (tramp-copy-program 
"rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h") ("-l" 
"%u")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("rsh" (tramp-login-program "rsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h") ("-l" 
"%u")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh" (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1" (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
		  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-1" "-e" 
"none")))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2" (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
		  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-2" "-e" 
"none")))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1_old" (tramp-login-program "ssh1") (tramp-copy-program 
nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2_old" (tramp-login-program "ssh2") (tramp-copy-program 
nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-p" "%p") ("-e" 
"none")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("remsh" (tramp-login-program "remsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h") ("-l" 
"%u")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("telnet" (tramp-login-program "telnet") (tramp-copy-program 
nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("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-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))
                 ("scpx" (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args
                   (("%h") ("-l" "%u") ("-p" "%p") ("-e" "none" "-t" "-t" 
"/bin/sh")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("sshx" (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args
                   (("%h") ("-l" "%u") ("-p" "%p") ("-e" "none" "-t" "-t" 
"/bin/sh")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("krlogin" (tramp-login-program "krlogin") (tramp-copy-program 
nil)
		  (tramp-remote-sh "/bin/sh") (tramp-login-args (("%h") ("-l" "%u") 
("-x")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("plink" (tramp-login-program "plink") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-ssh")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("plink1" (tramp-login-program "plink") (tramp-copy-program 
nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-1" 
"-ssh")))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("pscp" (tramp-login-program "plink") (tramp-copy-program 
"pscp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") ("-ssh")))
                  (tramp-copy-args ("-scp")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line "xy"))
                 ("psftp" (tramp-login-program "plink") (tramp-copy-program 
"pscp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("%h") ("-l" "%u") ("-P" "%p") ("-ssh"))
                  (tramp-copy-args ("-psftp")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line "xy"))
                 ("fcp" (tramp-login-program "fsh") (tramp-copy-program "fcp")
                  (tramp-remote-sh "/bin/sh -i")
		  (tramp-login-args (("%h") ("-l" "%u") ("sh" "-i"))) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line 
nil))
                 )
 tramp-end-of-output "///9fb4926839915c9bd67070e0fec0c480"
 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-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-process-alive-regexp 
tramp-action-out-of-band))
 tramp-terminal-type "dumb"
 tramp-shell-prompt-pattern "^[^#$%>\n]*[#$%>] *\\(\\[[0-9;]*[a-zA-Z] 
*\\)*"
 tramp-chunksize nil
 tramp-backup-directory-alist nil
 nil 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 nil
 nil nil
 file-name-handler-alist '(("^/$\\|^/[^/:][^/]*$" . 
tramp-completion-file-name-handler)
                           ("\\`/[^/:]+:" . tramp-file-name-handler)
                           ("\\`/:" . file-name-non-special))
 )