diff options
| author | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-08-17 12:54:34 +0000 |
|---|---|---|
| committer | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-08-17 12:54:34 +0000 |
| commit | 8fc30ca17ef0f39afc256ce634208171054206d7 (patch) | |
| tree | a0a2a59219245897dc28b715b9e4a7b4a140a0e2 /perl-install/fs | |
| parent | e1c5622998ca97b88d502f3cf0659d46b34a1217 (diff) | |
| download | drakx-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.pm | 2 |
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"; |