thh/usenet-tools
1
0
Fork 0
Code Issues Pull requests Releases Activity

Compare commits

base: thh:7a08e41148d2b2488c6c260f484b523db500d1c0
Branches Tags
thh:master
...
compare: thh:2a780f9eed69b4856e3a89d8682d0eed37c4e7b5
Branches Tags
thh:master

1 commit
7a08e41148 ... 2a780f9eed

Author SHA1 Message Date
Thomas Hochstein
2a780f9eed Fix encoding. 
Signed-off-by: Thomas Hochstein <thh@thh.name>
 2026-05-30 12:07:58 +02:00
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mew.pl
View file

@ -8,11 +8,13 @@
# Copyright (c) 2023 Thomas Hochstein <thh@thh.name> # Copyright (c) 2023 Thomas Hochstein <thh@thh.name>
use utf8; use utf8;
use open qw(:std :encoding(UTF-8));
use Encode; use Encode;
use MIME::QuotedPrint; use MIME::QuotedPrint;
use MIME::Base64; use MIME::Base64;
my $input = join (' ',@ARGV); my $input = join (' ',@ARGV);
utf8::decode($input);
if ($input =~ /[\x80-\x{ffff}]/o) { if ($input =~ /[\x80-\x{ffff}]/o) {
print encode('MIME-Q', $input); print encode('MIME-Q', $input);