Репозитории ALT
Группа :: Разработка/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;
}