[devel] Re: perl help needed: MIME::Parser trouble

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 2622 bytes --]

On Sat, Apr 17, 2004 at 04:49:04AM +0400, Alexey Tourbin wrote:
> On Tue, Apr 06, 2004 at 06:11:27PM +0300, Michael Shigorin wrote:
> > На старте получаю вот такое:
> > 
> > ~> sudo service sympa start
> > Starting sympa: can't create mime-word decoder: unsupported charset "KOI8-R"
> > Compilation failed in require at /usr/lib/perl5/vendor_perl/MIME/Parser/Filer.pm line 133.
> > BEGIN failed--compilation aborted at /usr/lib/perl5/vendor_perl/MIME/Parser/Filer.pm line 133.
> > Compilation failed in require at /usr/lib/perl5/vendor_perl/MIME/Parser.pm line 149.
> > [bt skip]
> > 
> > Как бы что бы с этим сделать?  Миша Бочкарев припомнил, что уже
> > на такое нарывался, но чинил ломом.
> > 
> > Поиск не вдохновил:
> 
> Google is your friend.  Дело в шляпе...
> Искать надо было Unicode::Map KOI8. :)

Вот так не помогает?

--- perl-Unicode-Map-0.112-alt1/perl-Unicode-Map.spec	2004-02-20 20:29:06 +0000
+++ perl-Unicode-Map-0.112-alt2/perl-Unicode-Map.spec	2004-04-17 01:58:44 +0000
@@ -1,16 +1,17 @@
 %define dist Unicode-Map
 Name: perl-%dist
 Version: 0.112
-Release: alt1
+Release: alt2
 
 Summary: Maps charsets from and to utf16 unicode
 License: GPL
 Group: Development/Perl
 
 Url: %CPAN %dist
-Source: %dist-%version.tar.bz2
+Source0: %dist-%version.tar.bz2
+Source1: http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT
 
-# Automatically added by buildreq on Fri Feb 20 2004 (-bi)
+# Automatically added by buildreq on Sat Apr 17 2004 (-bi)
 BuildRequires: perl-devel perl-libwww-perl
 
 %description
@@ -24,6 +25,19 @@ encoding. To transform these use Unicode
 %build
 %perl_vendor_build
 
+# koi8-r
+%__mkdir_p ./blib/lib/Unicode/Map/VENDORS/MISC
+./blib/script/mkmapfile -M ./blib/lib/Unicode/Map/VENDORS/MISC/KOI8-R.map %SOURCE1
+[ -f ./blib/lib/Unicode/Map/REGISTRY ]
+%__cat <<\__EOF__ >>./blib/lib/Unicode/Map/REGISTRY
+# ALT
+name:    KOI8-R
+srcURL:  $SrcUnicode/VENDORS/MISC/KOI8-R.TXT
+src:     $DestUnicode/VENDORS/MISC/KOI8-R.TXT
+map:     $DestMap/VENDORS/MISC/KOI8-R.map
+alias:   csKOI8R
+__EOF__
+
 %install
 %perl_vendor_install
 
@@ -33,8 +47,11 @@ encoding. To transform these use Unicode
 %perl_vendor_autolib/Unicode/
 %perl_vendor_man1dir/*
 %perl_vendor_man3dir/*
-%doc COPYING Changes README
+%doc COPYING Change* README*
 
 %changelog
+* Sat Apr 17 2004 Alexey Tourbin <at@altlinux.ru> 0.112-alt2
+- packaged koi8-r map file
+
 * Fri Feb 20 2004 Alexey Tourbin <at@altlinux.ru> 0.112-alt1
 - initial revision
End of diff

Files not compared in perl-Unicode-Map-0.112-alt2:
KOI8-R.TXT


[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]