Hello community, here is the log from the commit of package perl-Switch for openSUSE:Factory checked in at Wed May 25 11:16:15 CEST 2011.
-------- --- perl-Switch/perl-Switch.changes 2010-12-01 14:55:04.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Switch/perl-Switch.changes 2011-05-25 10:29:50.000000000 +0200 @@ -1,0 +2,11 @@ +Wed May 25 08:27:43 UTC 2011 - [email protected] + +- Add Switch-2.16-perl514.patch: fix test failures with Perl 5.14, + RT #60380 + +------------------------------------------------------------------- +Wed May 25 07:29:42 UTC 2011 - [email protected] + +- recreated by cpanspec 1.78.04 + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- Switch-2.16.tar.bz2 New: ---- Switch-2.16-perl514.patch Switch-2.16.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Switch.spec ++++++ --- /var/tmp/diff_new_pack.5DnZDw/_old 2011-05-25 11:11:56.000000000 +0200 +++ /var/tmp/diff_new_pack.5DnZDw/_new 2011-05-25 11:11:56.000000000 +0200 @@ -15,53 +15,41 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild Name: perl-Switch -%define cpan_name Switch -Summary: Switch statement for Perl Version: 2.16 -Release: 1 +Release: 4 License: GPL+ or Artistic -Group: Development/Libraries/Perl +%define cpan_name Switch +Summary: A switch statement for Perl Url: http://search.cpan.org/dist/Switch/ -#Source: http://www.cpan.org/modules/by-module/Switch/Switch-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.bz2 +Group: Development/Libraries/Perl +Source: http://www.cpan.org/authors/id/R/RG/RGARCIA/%{cpan_name}-%{version}.tar.gz +# PATCH-FIX-UPSTREAM Switch-2.16-perl514.patch [email protected] -- Fix test failures with Perl 5.14, RT #60380 +Patch1: Switch-2.16-perl514.patch BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Filter::Util::Call) -BuildRequires: perl(Text::Balanced) -Requires: perl(Filter::Util::Call) -Requires: perl(Text::Balanced) +%{perl_requires} %description The Switch.pm module implements a generalized case mechanism that covers -most (but not all) of the numerous possible combinations of switch and -case values described above.The module augments the standard Perl syntax -with two new control statements: 'switch' and 'case'. The 'switch' -statement takes a single scalar argument of any type, specified in -parentheses. 'switch' stores this value as the current switch value in a -(localized) control variable. The value is followed by a block which may -contain one or more Perl statements (including the 'case' statement -described below). The block is unconditionally executed once the switch -value has been cached. A 'case' statement takes a single scalar argument -(in mandatory parentheses if it's a variable; otherwise the parens are -optional) and selects the appropriate type of matching between that -argument and the current switch value. The type of matching used is -determined by the respective types of the switch value and the 'case' -argument, as specified in Table 1. If the match is successful, the -mandatory block associated with the 'case' statement is executed. - -Author: -------- - Damian Conway <[email protected]> +most (but not all) of the numerous possible combinations of switch and case +values described above. + +The module augments the standard Perl syntax with two new control +statements: 'switch' and 'case'. The 'switch' statement takes a single +scalar argument of any type, specified in parentheses. 'switch' stores this +value as the current switch value in a (localized) control variable. The +value is followed by a block which may contain one or more Perl statements +(including the 'case' statement described below). The block is +unconditionally executed once the switch value has been cached. %prep %setup -q -n %{cpan_name}-%{version} +%patch1 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -72,18 +60,14 @@ %install %perl_make_install -# do not perl_process_packlist (noarch) -# remove .packlist file -%{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch -# remove perllocal.pod file -%{__rm} -rf $RPM_BUILD_ROOT%perl_archlib +%perl_process_packlist %perl_gen_filelist %clean -%{__rm} -rf $RPM_BUILD_ROOT +%{__rm} -rf %{buildroot} %files -f %{name}.files -%defattr(-,root,root,-) +%defattr(-,root,root,755) %doc Changes README %changelog ++++++ Switch-2.16-perl514.patch ++++++ --- Switch-2.16-wjgfvU/Switch.pm 2009-10-23 00:52:51.000000000 -0700 +++ Switch-2.16-wjgfvUcopy/Switch.pm 2010-08-15 17:41:38.000000000 -0700 @@ -146,7 +146,7 @@ sub filter_blocks die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0, pos $source), $line), "\n"; }; my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line)); - $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch $arg;/; + $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch($arg);/; $text .= $code . 'continue {last}'; next component; } ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
