From c3893209e3d8774e772505450725b291e5e4eaf3 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 5 Jan 2025 15:24:21 +0100 Subject: [PATCH] * lisp/net/tramp-sh.el (tramp-get-remote-pipe-buf): Make it more robust. (cherry picked from commit 672a5f2b82c3c57b753902f2bdf5c970f3fc63a9) --- lisp/net/tramp-sh.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index f3daf3278f0..32311444756 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -5640,6 +5640,7 @@ Nonexistent directories are removed from spec." ;; - 8 KiB on HP-UX, Plan9. ;; - 10 KiB on IRIX. ;; - 32 KiB on AIX, Minix. +;; - `undefined' on QNX. ;; [1] https://pubs.opengroup.org/onlinepubs/9699919799/functions/write.html ;; [2] https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/limits.h.html ;; See Bug#65324. @@ -5647,11 +5648,13 @@ Nonexistent directories are removed from spec." (defun tramp-get-remote-pipe-buf (vec) "Return PIPE_BUF config from the remote side." (with-tramp-connection-property vec "pipe-buf" - (tramp-send-command-and-read - vec - (format "getconf PIPE_BUF / 2>%s || echo 4096" - (tramp-get-remote-null-device vec)) - 'noerror))) + (if-let* ((result + (tramp-send-command-and-read + vec (format "getconf PIPE_BUF / 2>%s" + (tramp-get-remote-null-device vec)) + 'noerror)) + ((natnump result))) + result 4096))) (defun tramp-get-remote-locale (vec) "Determine remote locale, supporting UTF8 if possible." -- 2.39.5