fixed editing of text files for multi-line texts (Closes: #62)

This commit is contained in:
lars 2009-08-19 03:12:27 +00:00
parent fd48b5fda4
commit 5f01e987f2
2 changed files with 5 additions and 2 deletions

View file

@ -1,3 +1,6 @@
Version 3.3.2 - ?
* fixed editing of multi-line text files (Closes: #62)
Version 3.3.1 - 10/14/02008 Version 3.3.1 - 10/14/02008
* generate gnupg keys in the background to avoid timeouts * generate gnupg keys in the background to avoid timeouts
* remove authorization info during list deletion (Closes: #54) * remove authorization info during list deletion (Closes: #54)

View file

@ -2656,8 +2656,8 @@ sub save_text {
$content = $q->param('content'); $content = $q->param('content');
$charset = split(':',$list->get_charset()); $charset = split(':',$list->get_charset());
$charset = 'us-ascii' if ($charset eq ''); $charset = 'us-ascii' if ($charset eq '');
# untaint 'content' unconditionally # untaint 'content' unconditionally (treating the whole string as a single line)
$content =~ m/^(.*)$/; $content =~ m/^(.*)$/s;
$content = $1; $content = $1;
my $content_encoded; my $content_encoded;
eval { $content_encoded = Encode::encode($charset, $content); }; eval { $content_encoded = Encode::encode($charset, $content); };