Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37564510
en ru br
Репозитории ALT
S:3.19-alt1
5.1: 2.37-alt1
4.1: 2.24-alt1
4.0: 2.23-alt2
3.0: 2.10-alt1
www.altlinux.org/Changes

Группа :: Разработка/Perl
Пакет: perl-Encode

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: perl-Encode-3.19-alt1.patch
Скачать


 .gear/rules                                        |   2 +
 .../tags/6265653d0b76e0e5b25d00ac47aa60ff24f35247  |  13 +
 .gear/tags/list                                    |   1 +
 Encode.pm                                          |   3 +-
 encoding.pm                                        |  34 +--
 lib/Encode/Encoding.pm                             |   2 +-
 perl-Encode.spec                                   | 335 +++++++++++++++++++++
 t/Aliases.t                                        |   2 +-
 t/CJKT.t                                           |   2 +-
 t/Encode.t                                         |   2 +-
 t/Encoder.t                                        |   2 +-
 t/Unicode.t                                        |   2 +-
 t/at-cn.t                                          |   2 +-
 t/at-tw.t                                          |   4 +-
 t/enc_data.t                                       |   2 +-
 t/enc_eucjp.t                                      |   2 +-
 t/enc_module.t                                     |   2 +-
 t/enc_utf8.t                                       |   2 +-
 t/encoding.t                                       |   2 +-
 t/fallback.t                                       |   2 +-
 t/grow.t                                           |   2 +-
 t/gsm0338.t                                        |   2 +-
 t/guess.t                                          |   2 +-
 t/jperl.t                                          |   2 +-
 t/mime-header.t                                    |   2 +-
 t/mime-name.t                                      |   2 +-
 t/perlio.t                                         |   2 +-
 t/rt.pl                                            |   2 +-
 t/utf8strict.t                                     |   2 +-
 29 files changed, 379 insertions(+), 57 deletions(-)
diff --git a/.gear/rules b/.gear/rules
new file mode 100644
index 0000000..a44920b
--- /dev/null
+++ b/.gear/rules
@@ -0,0 +1,2 @@
+tar: @version@:. name=Encode-@version@
+diff: @version@:. . name=perl-Encode-@version@-@release@.patch
diff --git a/.gear/tags/6265653d0b76e0e5b25d00ac47aa60ff24f35247 b/.gear/tags/6265653d0b76e0e5b25d00ac47aa60ff24f35247
new file mode 100644
index 0000000..f19c678
--- /dev/null
+++ b/.gear/tags/6265653d0b76e0e5b25d00ac47aa60ff24f35247
@@ -0,0 +1,13 @@
+object d027120bef45d67a4be85ef596bc7dff4c529790
+type commit
+tag 3.19
+tagger Igor Vlasenko <viy@altlinux.org> 1659623227 +0300
+
+3.19
+-----BEGIN PGP SIGNATURE-----
+
+iG8EABECAC8WIQQIPAL4FLbkB2MCkecNf0ykhFonYwUCYuvXOxEcdml5QGFsdGxp
+bnV4Lm9yZwAKCRANf0ykhFonY6M5AJ476UTonfHWGj312cr6W1gSpqrWmQCbB5oP
+Xe9lh3ZmlgPJiU7U5Bn83eE=
+=R2sY
+-----END PGP SIGNATURE-----
diff --git a/.gear/tags/list b/.gear/tags/list
new file mode 100644
index 0000000..50e4be7
--- /dev/null
+++ b/.gear/tags/list
@@ -0,0 +1 @@
+6265653d0b76e0e5b25d00ac47aa60ff24f35247 3.19
diff --git a/Encode.pm b/Encode.pm
index 8a2727f..571589f 100644
--- a/Encode.pm
+++ b/Encode.pm
@@ -132,7 +132,7 @@ sub getEncoding {
         if ( my $mod = $ExtModule{$name} || $ExtModule{$lc} ) {
             $mod =~ s,::,/,g;
             $mod .= '.pm';
-            eval { require $mod; };
+            eval { local $SIG{__DIE__}; require $mod; } or warn "$mod not available";
             exists $Encoding{$name} and return $Encoding{$name};
         }
     }
@@ -168,6 +168,7 @@ sub resolve_alias($) {
 sub clone_encoding($) {
     my $obj = find_encoding(shift);
     ref $obj or return;
+    require Storable;
     return Storable::dclone($obj);
 }
 
diff --git a/encoding.pm b/encoding.pm
index a018334..3548a52 100644
--- a/encoding.pm
+++ b/encoding.pm
@@ -9,9 +9,10 @@ use Config;
 
 use constant {
     DEBUG => !!$ENV{PERL_ENCODE_DEBUG},
-    HAS_PERLIO => eval { require PerlIO::encoding; PerlIO::encoding->VERSION(0.02) },
+    HAS_PERLIO => require PerlIO::encoding,
     PERL_5_21_7 => $^V && $^V ge v5.21.7, # lexically scoped
 };
+PerlIO::encoding->VERSION(0.02);
 
 sub _exception {
     my $name = shift;
@@ -29,38 +30,9 @@ sub _exception {
 sub in_locale { $^H & ( $locale::hint_bits || 0 ) }
 
 sub _get_locale_encoding {
-    my $locale_encoding;
-
-    if ($^O eq 'MSWin32') {
-        my @tries = (
-            # First try to get the OutputCP. This will work only if we
-            # are attached to a console
-            'Win32.pm' => 'Win32::GetConsoleOutputCP',
-            'Win32/Console.pm' => 'Win32::Console::OutputCP',
-            # If above failed, this means that we are a GUI app
-            # Let's assume that the ANSI codepage is what matters
-            'Win32.pm' => 'Win32::GetACP',
-        );
-        while (@tries) {
-            my $cp = eval {
-                require $tries[0];
-                no strict 'refs';
-                &{$tries[1]}()
-            };
-            if ($cp) {
-                if ($cp == 65001) { # Code page for UTF-8
-                    $locale_encoding = 'UTF-8';
-                } else {
-                    $locale_encoding = 'cp' . $cp;
-                }
-                return $locale_encoding;
-            }
-            splice(@tries, 0, 2)
-        }
-    }
 
     # I18N::Langinfo isn't available everywhere
-    $locale_encoding = eval {
+    my $locale_encoding = do {
         require I18N::Langinfo;
         find_encoding(
             I18N::Langinfo::langinfo( I18N::Langinfo::CODESET() )
diff --git a/lib/Encode/Encoding.pm b/lib/Encode/Encoding.pm
index 815937f..9f8ed0c 100644
--- a/lib/Encode/Encoding.pm
+++ b/lib/Encode/Encoding.pm
@@ -43,7 +43,7 @@ sub renewed { return $_[0]->{renewed} || 0 }
 sub needs_lines { 0 }
 
 sub perlio_ok {
-    return eval { require PerlIO::encoding } ? 1 : 0;
+    require PerlIO::encoding;
 }
 
 # (Temporary|legacy) methods
diff --git a/perl-Encode.spec b/perl-Encode.spec
new file mode 100644
index 0000000..7c42f9f
--- /dev/null
+++ b/perl-Encode.spec
@@ -0,0 +1,335 @@
+%define _unpackaged_files_terminate_build 1
+%define dist Encode
+Name: perl-%dist
+Version: 3.19
+Release: alt1
+
+Summary: Character encodings
+License: GPLv2+ or Artistic-2
+Group: Development/Perl
+
+URL: %CPAN %dist
+Source: %dist-%version.tar
+Patch: %name-%version-%release.patch
+
+# Automatically added by buildreq on Thu Oct 06 2011
+BuildRequires: perl-Filter perl-devel perl-unicore perl-parent
+
+%description
+The Encode module provides the interfaces between Perl's strings
+and the rest of the system.  Perl strings are sequences of characters.
+See "perldoc Encode" for the rest of the story.
+
+%package devel
+Summary: Perl Encode Module Generator
+Group: Development/Perl
+Requires: %name = %version-%release
+%description devel
+enc2xs builds a Perl extension for use by Encode from either Unicode
+Character Mapping files (.ucm) or Tcl Encoding Files (.enc).  Besides
+being used internally during the build process of the Encode module,
+you can use enc2xs to add your own encoding to Perl.
+
+%package CN
+Summary: China-based Chinese Encodings
+Group: Development/Perl
+Requires: %name = %version-%release
+%description CN
+The Encode::CN module implements China-based Chinese charset encodings.
+The following encodings are supported: euc-cn, gb2312-raw, gb12345-raw,
+iso-ir-165, MacChineseSimp, cp936, hz.
+
+%package TW
+Summary: Taiwan-based Chinese Encodings
+Group: Development/Perl
+Requires: %name = %version-%release
+%description TW
+The Encode::TW module implements tradition Chinese charset encodings
+as used in Taiwan and Hong Kong.  The following encodings are supported:
+big5-eten, big5-hkscs, MacChineseTrad, cp950.
+
+%package KR
+Summary: Korean Encodings
+Group: Development/Perl
+Requires: %name = %version-%release
+%description KR
+The Encode::KR module implements Korean charset encodings.
+The following encodings are supported: euc-kr, ksc5601-raw, cp949,
+MacKorean, johab, iso-2022-kr.
+
+%package JP
+Summary: Japanese Encodings
+Group: Development/Perl
+Requires: %name = %version-%release
+%description JP
+The Encode::JP module implements Japanese charset encodings.
+The following encodings are supported: euc-jp, shiftjis, 7bit-jis,
+iso-2022-jp, iso-2022-jp-1, MacJapanese, cp932, jis0201-raw,
+jis0208-raw, jis0212-raw.
+
+%prep
+%setup -q -n %dist-%version
+%patch -p1
+bzip2 -k Changes
+
+%build
+%perl_vendor_build
+
+%install
+%perl_vendor_install
+
+%files
+%doc	AUTHORS README Changes
+	%_bindir/piconv
+	%_bindir/encguess
+	%perl_vendor_archlib/encoding.pm
+	%perl_vendor_archlib/Encode.pm
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/*.pm
+%doc	%perl_vendor_archlib/Encode/*.pod
+%dir	%perl_vendor_archlib/Encode/MIME
+	%perl_vendor_archlib/Encode/MIME/*.pm
+	%perl_vendor_archlib/Encode/Unicode
+	%perl_vendor_autolib/Encode
+%exclude %perl_vendor_archlib/Encode/CN*
+%exclude %perl_vendor_autolib/Encode/CN*
+%exclude %perl_vendor_archlib/Encode/TW*
+%exclude %perl_vendor_autolib/Encode/TW*
+%exclude %perl_vendor_archlib/Encode/KR*
+%exclude %perl_vendor_autolib/Encode/KR*
+%exclude %perl_vendor_archlib/Encode/JP*
+%exclude %perl_vendor_autolib/Encode/JP*
+
+%files devel
+	%_bindir/enc2xs
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/*.e2x
+	%perl_vendor_archlib/Encode/*.h
+
+%files CN
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/CN*
+%dir	%perl_vendor_autolib/Encode
+	%perl_vendor_autolib/Encode/CN*
+
+%files TW
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/TW*
+%dir	%perl_vendor_autolib/Encode
+	%perl_vendor_autolib/Encode/TW*
+
+%files KR
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/KR*
+%dir	%perl_vendor_autolib/Encode
+	%perl_vendor_autolib/Encode/KR*
+
+%files JP
+%dir	%perl_vendor_archlib/Encode
+	%perl_vendor_archlib/Encode/JP*
+%dir	%perl_vendor_autolib/Encode
+	%perl_vendor_autolib/Encode/JP*
+%dir	%perl_vendor_archlib/Encode/MIME
+%dir	%perl_vendor_archlib/Encode/MIME/Header
+	%perl_vendor_archlib/Encode/MIME/Header/ISO_2022_JP.pm
+
+%changelog
+* Thu Aug 04 2022 Igor Vlasenko <viy@altlinux.org> 3.19-alt1
+- new version
+
+* Mon Jun 27 2022 Igor Vlasenko <viy@altlinux.org> 3.18-alt1
+- new version
+
+* Thu Apr 07 2022 Igor Vlasenko <viy@altlinux.org> 3.17-alt1
+- new version
+
+* Fri Oct 15 2021 Igor Vlasenko <viy@altlinux.org> 3.16-alt1
+- new version
+
+* Mon Oct 11 2021 Igor Vlasenko <viy@altlinux.org> 3.15-alt1
+- new version
+
+* Tue Aug 17 2021 Igor Vlasenko <viy@altlinux.org> 3.12-alt1
+- new version
+
+* Sat Jul 24 2021 Igor Vlasenko <viy@altlinux.org> 3.11-alt1
+- new version
+
+* Tue May 18 2021 Igor Vlasenko <viy@altlinux.org> 3.10-alt1
+- new version
+
+* Mon Dec 14 2020 Igor Vlasenko <viy@altlinux.ru> 3.08-alt1
+- new version
+
+* Wed Sep 02 2020 Igor Vlasenko <viy@altlinux.ru> 3.07-alt1
+- new version
+
+* Sat Mar 14 2020 Igor Vlasenko <viy@altlinux.ru> 3.04-alt1
+- new version
+
+* Mon Feb 24 2020 Igor Vlasenko <viy@altlinux.ru> 3.02-alt1
+- new version
+
+* Wed Mar 13 2019 Igor Vlasenko <viy@altlinux.ru> 3.01-alt1
+- new version
+
+* Sat Feb 02 2019 Igor Vlasenko <viy@altlinux.ru> 3.00-alt1
+- automated CPAN update
+
+* Thu Jan 24 2019 Igor Vlasenko <viy@altlinux.ru> 2.99-alt1.1
+- rebuild with new perl 5.28.1
+
+* Mon Jan 21 2019 Igor Vlasenko <viy@altlinux.ru> 2.99-alt1
+- automated CPAN update
+
+* Wed Apr 25 2018 Igor Vlasenko <viy@altlinux.ru> 2.98-alt1
+- automated CPAN update
+
+* Thu Feb 22 2018 Igor Vlasenko <viy@altlinux.ru> 2.97-alt1
+- automated CPAN update
+
+* Mon Feb 19 2018 Igor Vlasenko <viy@altlinux.ru> 2.96-alt1
+- automated CPAN update
+
+* Tue Dec 19 2017 Igor Vlasenko <viy@altlinux.ru> 2.93-alt1
+- automated CPAN update
+
+* Fri Dec 15 2017 Igor Vlasenko <viy@altlinux.ru> 2.88-alt1.1.1
+- rebuild with new perl 5.26.1
+
+* Fri Feb 03 2017 Igor Vlasenko <viy@altlinux.ru> 2.88-alt1.1
+- rebuild with new perl 5.24.1
+
+* Tue Dec 20 2016 Igor Vlasenko <viy@altlinux.ru> 2.88-alt1
+- automated CPAN update
+
+* Fri Nov 18 2016 Igor Vlasenko <viy@altlinux.ru> 2.87-alt1
+- automated CPAN update
+
+* Thu Sep 22 2016 Igor Vlasenko <viy@altlinux.ru> 2.86-alt1
+- automated CPAN update
+
+* Tue May 03 2016 Igor Vlasenko <viy@altlinux.ru> 2.84-alt1
+- automated CPAN update
+
+* Mon Mar 28 2016 Igor Vlasenko <viy@altlinux.ru> 2.83-alt1
+- automated CPAN update
+
+* Wed Mar 23 2016 Igor Vlasenko <viy@altlinux.ru> 2.82-alt1
+- automated CPAN update
+
+* Wed Nov 25 2015 Igor Vlasenko <viy@altlinux.ru> 2.78-alt1.1
+- rebuild with new perl 5.22.0
+
+* Wed Nov 11 2015 Igor Vlasenko <viy@altlinux.ru> 2.78-alt1
+- automated CPAN update
+
+* Mon Dec 22 2014 Igor Vlasenko <viy@altlinux.ru> 2.67-alt1
+- automated CPAN update
+
+* Tue Dec 09 2014 Igor Vlasenko <viy@altlinux.ru> 2.62-alt1.1
+- rebuild with new perl 5.20.1
+
+* Mon Jun 23 2014 Igor Vlasenko <viy@altlinux.ru> 2.62-alt1
+- new version 2.62
+
+* Fri Mar 07 2014 Igor Vlasenko <viy@altlinux.ru> 2.57-alt1
+- 2.55 -> 2.57
+
+* Tue Oct 15 2013 Igor Vlasenko <viy@altlinux.ru> 2.55-alt1
+- 2.52 -> 2.55
+
+* Wed Aug 21 2013 Vladimir Lettiev <crux@altlinux.ru> 2.52-alt1
+- 2.49 -> 2.52
+
+* Tue Mar 12 2013 Vladimir Lettiev <crux@altlinux.ru> 2.49-alt1
+- 2.47 -> 2.49
+
+* Thu Aug 23 2012 Vladimir Lettiev <crux@altlinux.ru> 2.47-alt1
+- 2.44 -> 2.47
+
+* Thu May 03 2012 Vladimir Lettiev <crux@altlinux.ru> 2.44-alt2
+- built for perl-5.16
+
+* Thu Oct 06 2011 Alexey Tourbin <at@altlinux.ru> 2.44-alt1
+- 2.42 -> 2.44
+- built for perl-5.14
+
+* Fri Feb 11 2011 Alexey Tourbin <at@altlinux.ru> 2.42-alt1
+- 2.41 -> 2.42
+
+* Sun Dec 26 2010 Alexey Tourbin <at@altlinux.ru> 2.41-alt1
+- 2.40 -> 2.41
+- restored 'use warnings'
+
+* Mon Sep 20 2010 Alexey Tourbin <at@altlinux.ru> 2.40-alt1
+- 2.39 -> 2.40
+- built for perl-5.12
+
+* Mon Feb 15 2010 Alexey Tourbin <at@altlinux.ru> 2.39-alt1
+- 2.37 -> 2.39
+
+* Tue Sep 08 2009 Alexey Tourbin <at@altlinux.ru> 2.37-alt1
+- 2.35 -> 2.37
+- made a few C functions static
+
+* Sat Aug 29 2009 Alexey Tourbin <at@altlinux.ru> 2.35-alt1
+- 2.34 -> 2.35
+
+* Sun Jul 12 2009 Alexey Tourbin <at@altlinux.ru> 2.34-alt1
+- 2.33 -> 2.34
+
+* Wed Apr 08 2009 Alexey Tourbin <at@altlinux.ru> 2.33-alt1
+- 2.32 -> 2.33
+
+* Mon Mar 09 2009 Alexey Tourbin <at@altlinux.ru> 2.32-alt1
+- 2.26 -> 2.32
+
+* Tue Jul 15 2008 Alexey Tourbin <at@altlinux.ru> 2.26-alt1
+- 2.25 -> 2.26
+
+* Thu May 15 2008 Alexey Tourbin <at@altlinux.ru> 2.25-alt1
+- 2.24 -> 2.25
+
+* Wed Mar 12 2008 Alexey Tourbin <at@altlinux.ru> 2.24-alt1
+- 2.23 -> 2.24
+
+* Tue Aug 21 2007 Alexey Tourbin <at@altlinux.ru> 2.23-alt2
+- Encode/Config.pm: added more Encode::HanExtra and Encode::JIS2K encodings
+- moved Encode/MIME/Header/ISO_2022_JP.pm from perl-Encode to perl-Encode-JP
+- changed src.rpm packaging to keep upstream tarball unchanged
+
+* Sun Jun 10 2007 Alexey Tourbin <at@altlinux.ru> 2.23-alt1
+- 2.20 -> 2.23
+
+* Mon Apr 23 2007 Alexey Tourbin <at@altlinux.ru> 2.20-alt1
+- 2.19 -> 2.20
+
+* Sat Apr 07 2007 Alexey Tourbin <at@altlinux.ru> 2.19-alt1
+- 2.18 -> 2.19
+
+* Tue Apr 03 2007 Alexey Tourbin <at@altlinux.ru> 2.18-alt2
+- made perl-Encode strictly depend on PerlIO::encoding; previously the
+  dependency was generated only because of a bug in rpm-build-perl < 0.6.2
+- also cleaned up conditional loading of modules under eval
+
+* Mon Oct 16 2006 Alexey Tourbin <at@altlinux.ru> 2.18-alt1
+- 2.17 -> 2.18
+- imported sources into git and built with gear
+- own Encode dir (#10020)
+- removed `use warnings;'
+
+* Mon May 22 2006 Alexey Tourbin <at@altlinux.ru> 2.17-alt1
+- 2.11 -> 2.17
+
+* Sun Aug 07 2005 Alexey Tourbin <at@altlinux.ru> 2.11-alt1
+- 2.10 -> 2.11
+- enabled support for Encode::HanExtra Chinese encodings (cpan #14041)
+
+* Tue May 17 2005 Alexey Tourbin <at@altlinux.ru> 2.10-alt1
+- 2.09 -> 2.10
+- packaged %_bindir/enc2xs into devel subpackage
+
+* Tue Dec 14 2004 Alexey Tourbin <at@altlinux.ru> 2.09-alt1
+- initial revision (split perl-i18n)
+- subpackages: CN, TW, KR, JP
diff --git a/t/Aliases.t b/t/Aliases.t
index 23a1cd3..ebac6e0 100644
--- a/t/Aliases.t
+++ b/t/Aliases.t
@@ -6,7 +6,7 @@ BEGIN {
     unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
     print "1..0 # Skip: Encode was not built\n";
         exit 0;
     }
diff --git a/t/CJKT.t b/t/CJKT.t
index 264daf0..ff87be3 100644
--- a/t/CJKT.t
+++ b/t/CJKT.t
@@ -1,6 +1,6 @@
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/Encode.t b/t/Encode.t
index f60f37d..17049f4 100644
--- a/t/Encode.t
+++ b/t/Encode.t
@@ -8,7 +8,7 @@ BEGIN {
         exit 0;
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/Encoder.t b/t/Encoder.t
index bfb4d8e..e5db1af 100644
--- a/t/Encoder.t
+++ b/t/Encoder.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/Unicode.t b/t/Unicode.t
index 61cef42..0d94cee 100644
--- a/t/Unicode.t
+++ b/t/Unicode.t
@@ -7,7 +7,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/at-cn.t b/t/at-cn.t
index c82225e..4059e55 100644
--- a/t/at-cn.t
+++ b/t/at-cn.t
@@ -4,7 +4,7 @@ BEGIN {
     unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/at-tw.t b/t/at-tw.t
index 203fc34..ea78584 100644
--- a/t/at-tw.t
+++ b/t/at-tw.t
@@ -1,8 +1,6 @@
 BEGIN {
-    if (! -d 'blib' and -d 't'){ chdir 't' };
-    unshift @INC,  '../lib';
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/enc_data.t b/t/enc_data.t
index 19619ae..369710e 100644
--- a/t/enc_data.t
+++ b/t/enc_data.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/enc_eucjp.t b/t/enc_eucjp.t
index 84548af..20d6d15 100644
--- a/t/enc_eucjp.t
+++ b/t/enc_eucjp.t
@@ -3,7 +3,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/enc_module.t b/t/enc_module.t
index a96fc8d..cd2e128 100644
--- a/t/enc_module.t
+++ b/t/enc_module.t
@@ -2,7 +2,7 @@
 # This file is in euc-jp
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/enc_utf8.t b/t/enc_utf8.t
index ea8b80d..a701c14 100644
--- a/t/enc_utf8.t
+++ b/t/enc_utf8.t
@@ -3,7 +3,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/encoding.t b/t/encoding.t
index d5009f5..de156bc 100644
--- a/t/encoding.t
+++ b/t/encoding.t
@@ -1,6 +1,6 @@
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/fallback.t b/t/fallback.t
index 011c86d..64e0b62 100644
--- a/t/fallback.t
+++ b/t/fallback.t
@@ -4,7 +4,7 @@ BEGIN {
         unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/grow.t b/t/grow.t
index e6b35fc..9e1ab30 100644
--- a/t/grow.t
+++ b/t/grow.t
@@ -6,7 +6,7 @@ BEGIN {
          unshift @INC, '../lib';
      }
      require Config; import Config;
-     if ($Config{'extensions'} !~ /\bEncode\b/) {
+     if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
          print "1..0 # Skip: Encode was not built\n";
              exit 0;
      }
diff --git a/t/gsm0338.t b/t/gsm0338.t
index ab98583..ce033c7 100644
--- a/t/gsm0338.t
+++ b/t/gsm0338.t
@@ -4,7 +4,7 @@ BEGIN {
         unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/guess.t b/t/guess.t
index 896028b..f6ebba9 100644
--- a/t/guess.t
+++ b/t/guess.t
@@ -1,6 +1,6 @@
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/jperl.t b/t/jperl.t
index c49c6b8..c574b2f 100644
--- a/t/jperl.t
+++ b/t/jperl.t
@@ -5,7 +5,7 @@
 
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/mime-header.t b/t/mime-header.t
index de74241..d5faefd 100644
--- a/t/mime-header.t
+++ b/t/mime-header.t
@@ -8,7 +8,7 @@ BEGIN {
         unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/mime-name.t b/t/mime-name.t
index cec86c0..8648249 100644
--- a/t/mime-name.t
+++ b/t/mime-name.t
@@ -8,7 +8,7 @@ BEGIN {
         unshift @INC, '../lib';
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/perlio.t b/t/perlio.t
index e50dfa4..dfaef6c 100644
--- a/t/perlio.t
+++ b/t/perlio.t
@@ -1,6 +1,6 @@
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/rt.pl b/t/rt.pl
index 5959d56..4608735 100644
--- a/t/rt.pl
+++ b/t/rt.pl
@@ -11,7 +11,7 @@ BEGIN {
         $ucmdir = "../ext/Encode/ucm";
     }
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bEncode\b/) {
+    if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
diff --git a/t/utf8strict.t b/t/utf8strict.t
index 39293d3..3b5e3f1 100644
--- a/t/utf8strict.t
+++ b/t/utf8strict.t
@@ -7,7 +7,7 @@ BEGIN {
          unshift @INC, '../lib';
      }
      require Config; import Config;
-     if ($Config{'extensions'} !~ /\bEncode\b/) {
+     if ($ENV{'PERL_CORE'} and $Config{'extensions'} !~ /\bEncode\b/) {
          print "1..0 # Skip: Encode was not built\n";
      exit 0;
      }
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin