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