From 4762bfc751b1b994cb129a80f7eb3424c503a4ea Mon Sep 17 00:00:00 2001
From: Papoteur <papoteur@mageialinux-online.org>
Date: Sun, 24 Jan 2016 17:47:51 +0100
Subject: suppress a trailing space in writing secrets (mga#10540)

---
 perl-install/NEWS               | 3 +++
 perl-install/fs/remote/davfs.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index dd51e5847..01cd02139 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- davfs
+  o suppress a trailing space in writing secrets (mga#10540)
+  
 Version 16.104 - 13 June 2015
 
 - diskdrake:
diff --git a/perl-install/fs/remote/davfs.pm b/perl-install/fs/remote/davfs.pm
index 5044b6e60..890530cb9 100644
--- a/perl-install/fs/remote/davfs.pm
+++ b/perl-install/fs/remote/davfs.pm
@@ -25,7 +25,7 @@ sub save_credentials {
     @$credentials or return;
 
     output_with_perm(secrets_file(), 0600, 
-		     map { to_double_quoted($_->{mntpoint}, $_->{username}, $_->{password}, $_->{comment}) . "\n" } @$credentials);
+		     map { to_double_quoted($_->{mntpoint}, $_->{username}, $_->{password}) . "\n" } @$credentials);
 }
 
 sub mountpoint_credentials_save {
-- 
cgit v1.2.1