--- libintl-perl-1.20/lib/Locale/TextDomain.pm-	2009-06-23 11:04:49.000000000 +0400
+++ libintl-perl-1.20/lib/Locale/TextDomain.pm	2011-10-08 09:13:04.556172344 +0400
@@ -300,8 +300,9 @@ sub import
     # 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];
     }