.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 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 3.19-alt1 +- new version + +* Mon Jun 27 2022 Igor Vlasenko 3.18-alt1 +- new version + +* Thu Apr 07 2022 Igor Vlasenko 3.17-alt1 +- new version + +* Fri Oct 15 2021 Igor Vlasenko 3.16-alt1 +- new version + +* Mon Oct 11 2021 Igor Vlasenko 3.15-alt1 +- new version + +* Tue Aug 17 2021 Igor Vlasenko 3.12-alt1 +- new version + +* Sat Jul 24 2021 Igor Vlasenko 3.11-alt1 +- new version + +* Tue May 18 2021 Igor Vlasenko 3.10-alt1 +- new version + +* Mon Dec 14 2020 Igor Vlasenko 3.08-alt1 +- new version + +* Wed Sep 02 2020 Igor Vlasenko 3.07-alt1 +- new version + +* Sat Mar 14 2020 Igor Vlasenko 3.04-alt1 +- new version + +* Mon Feb 24 2020 Igor Vlasenko 3.02-alt1 +- new version + +* Wed Mar 13 2019 Igor Vlasenko 3.01-alt1 +- new version + +* Sat Feb 02 2019 Igor Vlasenko 3.00-alt1 +- automated CPAN update + +* Thu Jan 24 2019 Igor Vlasenko 2.99-alt1.1 +- rebuild with new perl 5.28.1 + +* Mon Jan 21 2019 Igor Vlasenko 2.99-alt1 +- automated CPAN update + +* Wed Apr 25 2018 Igor Vlasenko 2.98-alt1 +- automated CPAN update + +* Thu Feb 22 2018 Igor Vlasenko 2.97-alt1 +- automated CPAN update + +* Mon Feb 19 2018 Igor Vlasenko 2.96-alt1 +- automated CPAN update + +* Tue Dec 19 2017 Igor Vlasenko 2.93-alt1 +- automated CPAN update + +* Fri Dec 15 2017 Igor Vlasenko 2.88-alt1.1.1 +- rebuild with new perl 5.26.1 + +* Fri Feb 03 2017 Igor Vlasenko 2.88-alt1.1 +- rebuild with new perl 5.24.1 + +* Tue Dec 20 2016 Igor Vlasenko 2.88-alt1 +- automated CPAN update + +* Fri Nov 18 2016 Igor Vlasenko 2.87-alt1 +- automated CPAN update + +* Thu Sep 22 2016 Igor Vlasenko 2.86-alt1 +- automated CPAN update + +* Tue May 03 2016 Igor Vlasenko 2.84-alt1 +- automated CPAN update + +* Mon Mar 28 2016 Igor Vlasenko 2.83-alt1 +- automated CPAN update + +* Wed Mar 23 2016 Igor Vlasenko 2.82-alt1 +- automated CPAN update + +* Wed Nov 25 2015 Igor Vlasenko 2.78-alt1.1 +- rebuild with new perl 5.22.0 + +* Wed Nov 11 2015 Igor Vlasenko 2.78-alt1 +- automated CPAN update + +* Mon Dec 22 2014 Igor Vlasenko 2.67-alt1 +- automated CPAN update + +* Tue Dec 09 2014 Igor Vlasenko 2.62-alt1.1 +- rebuild with new perl 5.20.1 + +* Mon Jun 23 2014 Igor Vlasenko 2.62-alt1 +- new version 2.62 + +* Fri Mar 07 2014 Igor Vlasenko 2.57-alt1 +- 2.55 -> 2.57 + +* Tue Oct 15 2013 Igor Vlasenko 2.55-alt1 +- 2.52 -> 2.55 + +* Wed Aug 21 2013 Vladimir Lettiev 2.52-alt1 +- 2.49 -> 2.52 + +* Tue Mar 12 2013 Vladimir Lettiev 2.49-alt1 +- 2.47 -> 2.49 + +* Thu Aug 23 2012 Vladimir Lettiev 2.47-alt1 +- 2.44 -> 2.47 + +* Thu May 03 2012 Vladimir Lettiev 2.44-alt2 +- built for perl-5.16 + +* Thu Oct 06 2011 Alexey Tourbin 2.44-alt1 +- 2.42 -> 2.44 +- built for perl-5.14 + +* Fri Feb 11 2011 Alexey Tourbin 2.42-alt1 +- 2.41 -> 2.42 + +* Sun Dec 26 2010 Alexey Tourbin 2.41-alt1 +- 2.40 -> 2.41 +- restored 'use warnings' + +* Mon Sep 20 2010 Alexey Tourbin 2.40-alt1 +- 2.39 -> 2.40 +- built for perl-5.12 + +* Mon Feb 15 2010 Alexey Tourbin 2.39-alt1 +- 2.37 -> 2.39 + +* Tue Sep 08 2009 Alexey Tourbin 2.37-alt1 +- 2.35 -> 2.37 +- made a few C functions static + +* Sat Aug 29 2009 Alexey Tourbin 2.35-alt1 +- 2.34 -> 2.35 + +* Sun Jul 12 2009 Alexey Tourbin 2.34-alt1 +- 2.33 -> 2.34 + +* Wed Apr 08 2009 Alexey Tourbin 2.33-alt1 +- 2.32 -> 2.33 + +* Mon Mar 09 2009 Alexey Tourbin 2.32-alt1 +- 2.26 -> 2.32 + +* Tue Jul 15 2008 Alexey Tourbin 2.26-alt1 +- 2.25 -> 2.26 + +* Thu May 15 2008 Alexey Tourbin 2.25-alt1 +- 2.24 -> 2.25 + +* Wed Mar 12 2008 Alexey Tourbin 2.24-alt1 +- 2.23 -> 2.24 + +* Tue Aug 21 2007 Alexey Tourbin 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 2.23-alt1 +- 2.20 -> 2.23 + +* Mon Apr 23 2007 Alexey Tourbin 2.20-alt1 +- 2.19 -> 2.20 + +* Sat Apr 07 2007 Alexey Tourbin 2.19-alt1 +- 2.18 -> 2.19 + +* Tue Apr 03 2007 Alexey Tourbin 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 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 2.17-alt1 +- 2.11 -> 2.17 + +* Sun Aug 07 2005 Alexey Tourbin 2.11-alt1 +- 2.10 -> 2.11 +- enabled support for Encode::HanExtra Chinese encodings (cpan #14041) + +* Tue May 17 2005 Alexey Tourbin 2.10-alt1 +- 2.09 -> 2.10 +- packaged %_bindir/enc2xs into devel subpackage + +* Tue Dec 14 2004 Alexey Tourbin 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; }