Protect environment variables with double quotes in Tramp

* lisp/net/tramp-sh.el (tramp-open-connection-setup-interactive-shell):
Protect environment variables with double quotes.

Copyright-paperwork-exempt: yes

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 419dccb47e0..31ef2efbf20 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -4201,10 +4201,11 @@ process to set up.  VEC specifies the connection."
       (when vars
         (tramp-send-command
          vec
-         (format "while read var val; do export $var=$val; done <<'%s'\n%s\n%s"
-                 tramp-end-of-heredoc
-                 (mapconcat 'identity vars "\n")
-                 tramp-end-of-heredoc)
+         (format
+          "while read var val; do export $var=\"$val\"; done <<'%s'\n%s\n%s"
+          tramp-end-of-heredoc
+          (mapconcat 'identity vars "\n")
+          tramp-end-of-heredoc)
          t))
       (when unset
         (tramp-send-command