--- perl-5.16.1/lib/open.pm.han	2012-04-25 08:18:34.000000000 +0800
+++ perl-5.16.1/lib/open.pm	2012-10-16 15:47:24.553705384 +0800
@@ -74,6 +74,7 @@
             $layer =~ s/^://;
 	    if ($layer eq 'locale') {
 		require Encode;
+		eval { require Encode::HanExtra };
 		require encoding;
 		$locale_encoding = encoding::_get_locale_encoding()
 		    unless defined $locale_encoding;