summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:54:34 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 12:54:34 +0000
commit8fc30ca17ef0f39afc256ce634208171054206d7 (patch)
treea0a2a59219245897dc28b715b9e4a7b4a140a0e2 /perl-install/fs
parente1c5622998ca97b88d502f3cf0659d46b34a1217 (diff)
downloaddrakx-8fc30ca17ef0f39afc256ce634208171054206d7.tar
drakx-8fc30ca17ef0f39afc256ce634208171054206d7.tar.gz
drakx-8fc30ca17ef0f39afc256ce634208171054206d7.tar.bz2
drakx-8fc30ca17ef0f39afc256ce634208171054206d7.tar.xz
drakx-8fc30ca17ef0f39afc256ce634208171054206d7.zip
- diskdrake : Fix a crash with regexp when a /etc/davfs2/secrets line is finished with one or more blank characters without comments
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/remote/davfs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/remote/davfs.pm b/perl-install/fs/remote/davfs.pm
index f6571b502..5ba3e84f0 100644
--- a/perl-install/fs/remote/davfs.pm
+++ b/perl-install/fs/remote/davfs.pm
@@ -71,7 +71,7 @@ sub from_double_quoted {
if (/^\s*(#.*)?$/) {
$comment = $1;
} else {
- if(/^(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+))\s+(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+))(?:\s+(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+)))?(?:\s*(#.*))?$/) {
+ if(/^(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+))\s+(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+))(?:\s+(?:"((?:\\.|[^"])*)"|((?:\\.|[^"\s#])+)))?(?:\s*|\s*(#.*))?$/) {
$mnt = "$1$2";
$mnt =~ s/\\(.)/$1/g;
$user = "$3$4";