Gauche > Archives > 2012/11/21

diff --git a/lib/gauche/process.scm b/lib/gauche/process.scm
index 7c4e668..37f272d 100644
--- a/lib/gauche/process.scm
+++ b/lib/gauche/process.scm
@@ -259,7 +259,7 @@
 
 ;; Prepare remote execution via ssh
 (define (%prepare-remote host argv dir)
-  (rxmatch-let (#/^(?:([\w-]+):)?(?:([\w-]+)@)?([\w._]+)(?::(\d+))?$/ host)
+  (rxmatch-let (#/^(?:([\w-]+):)?(?:([\w-]+)@)?([-\w.]+)(?::(\d+))?$/ host)
       (#f proto user server port)
     (unless (or (not proto) (equal? proto "ssh"))
       (error "Remote execution protocol other than 'ssh' is not supported:"

1. A "name" (Net, Host, Gateway, or Domain name) is a text string up
   to 24 characters drawn from the alphabet (A-Z), digits (0-9), minus
   sign (-), and period (.).  Note that periods are only allowed when
   they serve to delimit components of "domain style names".