--- 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;

     }