diff options
Diffstat (limited to 'src/property.lisp')
-rw-r--r-- | src/property.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/property.lisp b/src/property.lisp index 02871a3..6c35a96 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -511,9 +511,7 @@ apply or unapply properties.") "Get the remote username." (or (slot-value *connection* 'remote-user) (setf (slot-value *connection* 'remote-user) - (multiple-value-bind (match groups) - (re:scan-to-strings "^uid=[0-9]+\\(([^)]+)" (mrun "id")) - (and match (elt groups 0)))))) + (parse-username-from-id (mrun "id"))))) (defun assert-connection-supports (type) (unless (or (eq type :posix) (lisp-connection-p)) |