Репозитории ALT
Группа :: Разработка/Perl
Пакет: perl-libintl
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: libintl-perl-1.11-alt-locale_dir.patch
Скачать
Скачать
--- libintl-perl-1.11/lib/Locale/TextDomain.pm 2004-06-11 15:13:37 +0400
+++ libintl-perl-1.11/lib/Locale/TextDomain.pm.fixed 2005-04-17 23:02:08 +0400
@@ -221,8 +221,9 @@
# Remember that we still have to bind that textdomain to
# a directory.
unless (exists $bound_dirs{$textdomain}) {
- @search_dirs = map $_ . '/LocaleData', @INC, @default_dirs
+ @search_dirs = map $_ . '/LocaleData', @INC
unless @search_dirs;
+ push(@search_dirs, @default_dirs);
$bound_dirs{$textdomain} = \@search_dirs;
}