* 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.

2 files changed, 12 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 844fcaad833..79427663988 100644
--- 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 693e082ecc8..bc831c3b596 100644
--- 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