Control: tag -1 pending
Dear Oleksandr and Kevin,
good news, I found an easy solution to the problem:
+use Encode qw(decode);
+use I18N::Langinfo qw(langinfo CODESET);
+
$debug=($ENV{RUN_MAILCAP_DEBUG} || 0);
$norun=0;
@@ -490,7 +493,7 @@ foreach (@files) {
if ($file ne "-") {
if ($comm =~ m/[^%]%s/) {
- if ($file =~ m![^a-z0-9,.:/@%^+=_-]!i) {
+ if (decode(langinfo(CODESET()), $file) =~
m![^[:alnum:],.:/@%^+=_-]!i) {
$match =~ m/nametemplate=(.*?)\s*($|;)/;
my $prefix = $1;
my $linked = 0;
This will ensure that alphanumeric characters in the user's locale will not
trigger the use of a temporary file if they are not ASCII.
(It took me hours to figure out that the file name had to be passed in the
“decode” function before matching the [:alnum:] class.)
Have a nice week-end,
--
Charles Plessy
Tsurumi, Kanagawa, Japan
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
