commit perl-Encode-Locale for openSUSE:Factory

Hello community, here is the log from the commit of package perl-Encode-Locale for openSUSE:Factory checked in at 2012-02-16 16:21:47 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Encode-Locale (Old) and /work/SRC/openSUSE:Factory/.perl-Encode-Locale.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Encode-Locale", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Encode-Locale/perl-Encode-Locale.changes 2011-09-23 12:36:57.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Encode-Locale.new/perl-Encode-Locale.changes 2012-02-16 16:21:51.000000000 +0100 @@ -1,0 +2,6 @@ +Wed Feb 15 12:02:38 UTC 2012 - coolo@suse.com + +- updated to 1.03 + Documentation spelling fixes and tweaks to improve testing on Windows. + +------------------------------------------------------------------- Old: ---- Encode-Locale-1.02.tar.gz New: ---- Encode-Locale-1.03.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Encode-Locale.spec ++++++ --- /var/tmp/diff_new_pack.qjKjc1/_old 2012-02-16 16:21:52.000000000 +0100 +++ /var/tmp/diff_new_pack.qjKjc1/_new 2012-02-16 16:21:52.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Encode-Locale # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,49 +16,52 @@ # - Name: perl-Encode-Locale -Version: 1.02 -Release: 3 -License: GPL-1.0+ or Artistic-1.0 +Version: 1.03 +Release: 0 %define cpan_name Encode-Locale Summary: Determine the locale encoding -Url: http://search.cpan.org/dist/Encode-Locale/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/G/GA/GAAS/Encode-Locale-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/Encode-Locale/ +Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +#BuildRequires: perl(Encode::HanExtra) +#BuildRequires: perl(Encode::Locale) +#BuildRequires: perl(Win32::API) +#BuildRequires: perl(Win32::Console) +Recommends: perl(Win32::Console) %{perl_requires} %description In many applications it's wise to let Perl use Unicode for the strings it processes. Most of the interfaces Perl has to the outside world are still -byte based. Programs therefore needs to decode byte strings that enter the +byte based. Programs therefore need to decode byte strings that enter the program from the outside and encode them again on the way out. The POSIX locale system is used to specify both the language conventions requested by the user and the preferred character set to consume and output. The 'Encode::Locale' module looks up the charset and encoding -(called a CODESET in the locale jargon) and arrange for the Encode -module to know this encoding under the name "locale". It means +(called a CODESET in the locale jargon) and arranges for the the Encode +manpage module to know this encoding under the name "locale". It means bytes obtained from the environment can be converted to Unicode strings by calling 'Encode::encode(locale => $bytes)' and converted back again with 'Encode::decode(locale => $string)'. Where file systems interfaces pass file names in and out of the program we also need care. The trend is for operating systems to use a fixed file -encoding that doesn't actually depend on the locale; and this module -determines the most appropriate encoding for file names. The Encode -module will know this encoding under the name "locale_fs". For +encoding that don't actually depend on the locale; and this module +determines the most appropriate encoding for file names. The the Encode +manpage module will know this encoding under the name "locale_fs". For traditional Unix systems this will be an alias to the same encoding as "locale". For programs running in a terminal window (called a "Console" on some systems) the "locale" encoding is usually a good choice for what to expect -as input and output. Some systems allow us to query the encoding set for +as input and output. Some systems allows us to query the encoding set for the terminal and 'Encode::Locale' will do that if available and make these encodings known under the 'Encode' aliases "console_in" and "console_out". For systems where we can't determine the terminal encoding these will be @@ -118,13 +121,13 @@ * $ENCODING_LOCALE - The encoding name determined to be suitable for the current locale. The - Encode manpage knows this encoding as "locale". + The encoding name determined to be suitable for the current locale. the + Encode manpage know this encoding as "locale". * $ENCODING_LOCALE_FS The encoding name determined to be suiteable for file system interfaces - involving file names. The Encode manpage knows this encoding as + involving file names. the Encode manpage know this encoding as "locale_fs". * $ENCODING_CONSOLE_IN @@ -132,7 +135,7 @@ * $ENCODING_CONSOLE_OUT The encodings to be used for reading and writing output to the a console. - The Encode manpage knows these encodings as "console_in" and + the Encode manpage know these encodings as "console_in" and "console_out". %prep @@ -150,11 +153,8 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes README %changelog ++++++ Encode-Locale-1.02.tar.gz -> Encode-Locale-1.03.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-Locale-1.02/Changes new/Encode-Locale-1.03/Changes --- old/Encode-Locale-1.02/Changes 2011-03-28 09:44:40.000000000 +0200 +++ new/Encode-Locale-1.03/Changes 2012-02-11 16:51:55.000000000 +0100 @@ -1,3 +1,8 @@ +## 2012-01-11 Release 1.03 + +Documentation spelling fixes and tweaks to improve testing on Windows. + + ## 2011-03-28 Release 1.02 Added supporting hacks for GB18030 and roman8. [RT#66373] [RT#67010] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-Locale-1.02/META.yml new/Encode-Locale-1.03/META.yml --- old/Encode-Locale-1.02/META.yml 2011-03-28 09:45:34.000000000 +0200 +++ new/Encode-Locale-1.03/META.yml 2012-02-11 16:54:06.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Encode-Locale -version: 1.02 +version: 1.03 abstract: Determine the locale encoding author: - Gisle Aas @@ -20,7 +20,7 @@ directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.56 +generated_by: ExtUtils::MakeMaker version 6.57_05 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-Locale-1.02/lib/Encode/Locale.pm new/Encode-Locale-1.03/lib/Encode/Locale.pm --- old/Encode-Locale-1.02/lib/Encode/Locale.pm 2011-03-28 09:42:29.000000000 +0200 +++ new/Encode-Locale-1.03/lib/Encode/Locale.pm 2012-02-11 16:50:26.000000000 +0100 @@ -1,7 +1,7 @@ package Encode::Locale; use strict; -our $VERSION = "1.02"; +our $VERSION = "1.03"; use base 'Exporter'; our @EXPORT_OK = qw( @@ -22,27 +22,34 @@ sub _init { if ($^O eq "MSWin32") { - # Try to obtain what the Windows ANSI code page is - eval { - require Win32::API; - if (Win32::API->Import('kernel32', 'int GetACP()')) { - my $cp = GetACP(); - $ENCODING_LOCALE = "cp$cp" if $cp; - } - }; + unless ($ENCODING_LOCALE) { + # Try to obtain what the Windows ANSI code page is + eval { + unless (defined &GetACP) { + require Win32::API; + Win32::API->Import('kernel32', 'int GetACP()'); + }; + if (defined &GetACP) { + my $cp = GetACP(); + $ENCODING_LOCALE = "cp$cp" if $cp; + } + }; + } - # If we have the Win32::Console module installed we can ask - # it for the code set to use - eval { - require Win32::Console; - my $cp = Win32::Console::InputCP(); - $ENCODING_CONSOLE_IN = "cp$cp" if $cp; - $cp = Win32::Console::OutputCP(); - $ENCODING_CONSOLE_OUT = "cp$cp" if $cp; - }; - # Invoking the 'chcp' program might also work - if (!$ENCODING_CONSOLE_IN && qx(chcp) =~ /^Active code page: (\d+)/) { - $ENCODING_CONSOLE_IN = "cp$1"; + unless ($ENCODING_CONSOLE_IN) { + # If we have the Win32::Console module installed we can ask + # it for the code set to use + eval { + require Win32::Console; + my $cp = Win32::Console::InputCP(); + $ENCODING_CONSOLE_IN = "cp$cp" if $cp; + $cp = Win32::Console::OutputCP(); + $ENCODING_CONSOLE_OUT = "cp$cp" if $cp; + }; + # Invoking the 'chcp' program might also work + if (!$ENCODING_CONSOLE_IN && (qx(chcp) || '') =~ /^Active code page: (\d+)/) { + $ENCODING_CONSOLE_IN = "cp$1"; + } } } @@ -52,7 +59,7 @@ $ENCODING_LOCALE = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET()); # Workaround of Encode < v2.25. The "646" encoding alias was - # introducted in Encode-2.25, but we don't want to require that version + # introduced in Encode-2.25, but we don't want to require that version # quite yet. Should avoid the CPAN testers failure reported from # openbsd-4.7/perl-5.10.0 combo. $ENCODING_LOCALE = "ascii" if $ENCODING_LOCALE eq "646"; @@ -88,6 +95,8 @@ unless $foundit; } + + # use Data::Dump; ddx $ENCODING_LOCALE, $ENCODING_LOCALE_FS, $ENCODING_CONSOLE_IN, $ENCODING_CONSOLE_OUT; } _init(); @@ -170,14 +179,14 @@ =head1 DESCRIPTION In many applications it's wise to let Perl use Unicode for the strings it -processes. Most of the interfaces Perl has to the outside world is still byte -based. Programs therefore needs to decode byte strings that enter the program +processes. Most of the interfaces Perl has to the outside world are still byte +based. Programs therefore need to decode byte strings that enter the program from the outside and encode them again on the way out. The POSIX locale system is used to specify both the language conventions requested by the user and the preferred character set to consume and output. The CEncode::Locale module looks up the charset and encoding (called -a CODESET in the locale jargon) and arrange for the L<Encode> module to know +a CODESET in the locale jargon) and arranges for the L<Encode> module to know this encoding under the name "locale". It means bytes obtained from the environment can be converted to Unicode strings by calling C<< Encode::encode(locale => $bytes) >> and converted back again with C<< @@ -323,7 +332,7 @@ filenames. Since this module has no way to actually figure out what the is correct it goes with the best guess which is to assume filenames are encoding according to the current locale. -Users are adviced to always specify UTF-8 as the locale charset. +Users are advised to always specify UTF-8 as the locale charset. =head1 SEE ALSO -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org