* net/tramp.el (tramp-handle-insert-file-contents): Use "dd"

instead of "head" and "tail".  There were problems with SunOS 5.9,
and it performs better.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 844fcaad833f37b6559cbfc0ec27260a7f73c872..79427663988fd2fec53c506ca7ea9122e225677d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-05-17  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-handle-insert-file-contents): Use "dd"
+       instead of "head" and "tail".  There were problems with SunOS 5.9,
+       and it performs better.
+
 2011-05-17  Glenn Morris  <rgm@gnu.org>
 
        * mail/mail-utils.el (mail-dont-reply-to): Silence compiler.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 693e082ecc82c4005ba1b68b0c7afd7ffaa7b66e..bc831c3b596ab844ee202f3e2c76b722d8a2e3a1 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2838,16 +2838,16 @@ User is always nil."
                 v
                 (cond
                  ((and beg end)
-                  (format "tail -c +%d %s | head -c +%d >%s"
-                          (1+ beg) (tramp-shell-quote-argument localname)
+                  (format "dd bs=1 skip=%d if=%s count=%d of=%s"
+                          beg (tramp-shell-quote-argument localname)
                           (- end beg) remote-copy))
                  (beg
-                  (format "tail -c +%d %s >%s"
-                          (1+ beg) (tramp-shell-quote-argument localname)
+                  (format "dd bs=1 skip=%d if=%s of=%s"
+                          beg (tramp-shell-quote-argument localname)
                           remote-copy))
                  (end
-                  (format "head -c +%d %s >%s"
-                          (1+ end) (tramp-shell-quote-argument localname)
+                  (format "dd bs=1 count=%d if=%s of=%s"
+                          end (tramp-shell-quote-argument localname)
                           remote-copy)))))
 
              ;; `insert-file-contents-literally' takes care to avoid