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

     }