Hello community, here is the log from the commit of package perl-Regexp-Common for openSUSE:Factory checked in at Tue May 31 15:23:19 CEST 2011.
-------- --- perl-Regexp-Common/perl-Regexp-Common.changes 2011-04-04 11:41:13.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Regexp-Common/perl-Regexp-Common.changes 2011-04-18 11:46:47.000000000 +0200 @@ -1,0 +2,15 @@ +Mon Apr 18 09:44:53 UTC 2011 - [email protected] + +- updated to 2011041701 + + Fix documentation (matches should be match). Reported by [email protected] + in RT ticket 2833. + + Added patterns for JavaDoc comments. (RT 13174 by [email protected]) + + Version 2011041602 Sat Apr 16 17:06:28 CEST 2011 + + Fix typo in repository ([email protected]) + + Version 2011041601 Sat Apr 16 16:07:29 CEST 2011 + + Fix bugs 61712 & 6940: $RE {num} {decimal} and $RE {num} {real} no longer + match a single dot. + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- Regexp-Common-2010010201.tar.gz New: ---- Regexp-Common-2011041701.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Regexp-Common.spec ++++++ --- /var/tmp/diff_new_pack.pJsf7h/_old 2011-05-31 15:21:36.000000000 +0200 +++ /var/tmp/diff_new_pack.pJsf7h/_new 2011-05-31 15:21:36.000000000 +0200 @@ -18,19 +18,19 @@ Name: perl-Regexp-Common -Version: 2010010201 +Version: 2011041701 Release: 1 License: MIT %define cpan_name Regexp-Common Summary: Provide commonly requested regular expressions Url: http://search.cpan.org/dist/Regexp-Common/ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/A/AB/ABIGAIL/Regexp-Common-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/A/AB/ABIGAIL/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(ExtUtils::MakeMaker) BuildRequires: perl(strict) BuildRequires: perl(vars) Requires: perl(strict) @@ -64,7 +64,7 @@ %{__rm} -rf %{buildroot} %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes COPYRIGHT COPYRIGHT.AL COPYRIGHT.AL2 COPYRIGHT.BSD COPYRIGHT.MIT README TODO %changelog ++++++ Regexp-Common-2010010201.tar.gz -> Regexp-Common-2011041701.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/Changes new/Regexp-Common-2011041701/Changes --- old/Regexp-Common-2010010201/Changes 2010-01-02 17:46:09.000000000 +0100 +++ new/Regexp-Common-2011041701/Changes 2011-04-17 14:23:07.000000000 +0200 @@ -1,3 +1,15 @@ +Version 2011041701 Sun Apr 17 14:22:58 CEST 2011 ++ Fix documentation (matches should be match). Reported by [email protected] + in RT ticket 2833. ++ Added patterns for JavaDoc comments. (RT 13174 by [email protected]) + +Version 2011041602 Sat Apr 16 17:06:28 CEST 2011 ++ Fix typo in repository ([email protected]) + +Version 2011041601 Sat Apr 16 16:07:29 CEST 2011 ++ Fix bugs 61712 & 6940: $RE {num} {decimal} and $RE {num} {real} no longer + match a single dot. + Version 2010010201 Sat Jan 2 17:45:53 CET 2010 + Playing the CPANTS game + Adjustments for 5.005. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/META.yml new/Regexp-Common-2011041701/META.yml --- old/Regexp-Common-2010010201/META.yml 2010-01-02 17:48:10.000000000 +0100 +++ new/Regexp-Common-2011041701/META.yml 2011-04-17 14:36:37.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Regexp-Common -version: 2010010201 +version: 2011041701 abstract: Provide commonly requested regular expressions author: - Abigail <[email protected]> @@ -17,7 +17,7 @@ strict: 0 vars: 0 resources: - repository: git://github.com/Abigail/Regexp-Common.git + repository: git://github.com/Abigail/Regexp--Common.git no_index: directory: - t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/Makefile.PL new/Regexp-Common-2011041701/Makefile.PL --- old/Regexp-Common-2010010201/Makefile.PL 2009-12-30 01:00:48.000000000 +0100 +++ new/Regexp-Common-2011041701/Makefile.PL 2011-04-16 17:05:35.000000000 +0200 @@ -24,7 +24,7 @@ 'strict' => 0, }, resources => { - repository => 'git://github.com/Abigail/Regexp-Common.git', + repository => 'git://github.com/Abigail/Regexp--Common.git', }, keywords => ['regular expression', 'pattern'], }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/lib/Regexp/Common/comment.pm new/Regexp-Common-2011041701/lib/Regexp/Common/comment.pm --- old/Regexp-Common-2010010201/lib/Regexp/Common/comment.pm 2010-01-02 17:41:25.000000000 +0100 +++ new/Regexp-Common-2011041701/lib/Regexp/Common/comment.pm 2011-04-17 11:20:34.000000000 +0200 @@ -70,6 +70,9 @@ {languages => [qw /J/], to_eol => ['NB[.]']}, + {languages => [qw /JavaDoc/], + from_to => [[qw {/** */}]]}, + {languages => [qw /Nickle/], to_eol => ['#'], from_to => [[qw {/* */}]]}, @@ -684,6 +687,14 @@ C</*>, and end with C<*/>. If C<{-keep}> is used, only C<$1> will be set, and set to the entire comment. +=item JavaDoc + +The I<Javadoc> documentation syntax is demarked with a subset of +ordinary Java comments to separate it from code. Comments start with +C</**> end with C<*/>. If C<{-keep}> is used, only C<$1> will be set, +and set to the entire comment. See +L<http://www.oracle.com/technetwork/java/javase/documentation/index-137868.html#format>. + =item JavaScript The I<JavaScript> language has two forms of comments. Comments that start with diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/lib/Regexp/Common/number.pm new/Regexp-Common-2011041701/lib/Regexp/Common/number.pm --- old/Regexp-Common-2010010201/lib/Regexp/Common/number.pm 2010-01-02 17:41:25.000000000 +0100 +++ new/Regexp-Common-2011041701/lib/Regexp/Common/number.pm 2011-04-16 15:49:55.000000000 +0200 @@ -50,12 +50,12 @@ foreach ($radix, $sep, $expon) {$_ = "[$_]" if 1 == length} my $chars = substr $digits, 0, $base; return $sep - ? qq {(?k:(?i)(?k:[+-]?)(?k:(?=[$chars]|$radix)} . - qq {(?k:[$chars]{1,$group}(?:(?:$sep)[$chars]{$group})*)} . + ? qq {(?k:(?i)(?k:[+-]?)(?k:(?=$radix?[$chars])} . + qq {(?k:[$chars]{1,$group}(?:(?:$sep)[$chars]{$group})*)} . qq {(?:(?k:$radix)(?k:[$chars]{$places}))?)} . qq {(?:(?k:$expon)(?k:(?k:[+-]?)(?k:[$chars]+))|))} - : qq {(?k:(?i)(?k:[+-]?)(?k:(?=[$chars]|$radix)} . - qq {(?k:[$chars]*)(?:(?k:$radix)(?k:[$chars]{$places}))?)} . + : qq {(?k:(?i)(?k:[+-]?)(?k:(?=$radix?[$chars])} . + qq {(?k:[$chars]*)(?:(?k:$radix)(?k:[$chars]{$places}))?)} . qq {(?:(?k:$expon)(?k:(?k:[+-]?)(?k:[$chars]+))|))}; } sub decimal_creator { @@ -68,10 +68,10 @@ foreach ($radix, $sep) {$_ = "[$_]" if 1 == length} my $chars = substr $digits, 0, $base; return $sep - ? qq {(?k:(?i)(?k:[+-]?)(?k:(?=[$chars]|$radix)} . - qq {(?k:[$chars]{1,$group}(?:(?:$sep)[$chars]{$group})*)} . + ? qq {(?k:(?i)(?k:[+-]?)(?k:(?=$radix?[$chars])} . + qq {(?k:[$chars]{1,$group}(?:(?:$sep)[$chars]{$group})*)} . qq {(?:(?k:$radix)(?k:[$chars]{$places}))?))} - : qq {(?k:(?i)(?k:[+-]?)(?k:(?=[$chars]|$radix)} . + : qq {(?k:(?i)(?k:[+-]?)(?k:(?=$radix?[$chars])} . qq {(?k:[$chars]*)(?:(?k:$radix)(?k:[$chars]{$places}))?))} } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/lib/Regexp/Common.pm new/Regexp-Common-2011041701/lib/Regexp/Common.pm --- old/Regexp-Common-2010010201/lib/Regexp/Common.pm 2010-01-02 17:31:32.000000000 +0100 +++ new/Regexp-Common-2011041701/lib/Regexp/Common.pm 2011-04-17 14:22:44.000000000 +0200 @@ -18,7 +18,7 @@ use warnings; use vars qw /$VERSION %RE %sub_interface $AUTOLOAD/; -$VERSION = '2010010201'; +$VERSION = '2011041701'; sub _croak { @@ -333,7 +333,7 @@ my $char = quotemeta $flags->{-char}; return '(?:^$char+$)'; }, - matches => sub { + match => sub { my ($self, $str) = @_; return $str !~ /[^$self->{flags}{-char}]/; }, @@ -619,7 +619,7 @@ always capture the entire pattern, but this is not enforced. -=item C<matches =E<gt> $sub_ref> +=item C<match =E<gt> $sub_ref> An optional argument that specifies a subroutine that is to be called when the C<$RE{...}-E<gt>matches(...)> method of this pattern is invoked. @@ -631,7 +631,7 @@ pattern name => [qw( line of -char )], create => sub {...}, - matches => sub { + match => sub { my ($self, $str) = @_; $str !~ /[^$self->{flags}{-char}]/; }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/t/Common.pm new/Regexp-Common-2011041701/t/Common.pm --- old/Regexp-Common-2010010201/t/Common.pm 2009-12-30 00:56:18.000000000 +0100 +++ new/Regexp-Common-2011041701/t/Common.pm 2011-04-17 14:13:21.000000000 +0200 @@ -17,6 +17,8 @@ my @STATES = qw /pass fail/; +our $SKIP; + use constant NORMAL_PASS => 0x01; # Normal test, should pass. use constant NORMAL_FAIL => 0x02; # Normal test, should fail. use constant NORMAL => NORMAL_PASS | NORMAL_FAIL; @@ -50,11 +52,13 @@ sub mess { my $str = stringify $_; my $com = join " " => map {stringify $_} @_; - printf qq !%4d - %-40s (%s)\n! => ++ $count, qq !"$str"!, $com; + $count ++; + if ($SKIP) {printf qq !%4d # SKIP: %s\n! => $count, $SKIP;} + else {printf qq !%4d - %-40s (%s)\n! => $count, qq !"$str"!, $com;} } -sub pass {print "ok "; &mess} -sub fail {print "not ok "; &mess} +sub pass {print "ok "; &mess} +sub fail {print +$SKIP ? "ok " : "not ok "; &mess} sub Fail { my $mess = shift; @@ -453,6 +457,8 @@ my $pass = $$test_set {pass}; my $fail = $$test_set {fail}; + my $skip_sub = $$test_set {skip_sub}; + # # Run the passes. # @@ -489,6 +495,11 @@ ref $parts ? join "" => @$parts : $parts; # + # See whether we want to skip the test + # + local $SKIP = $skip_sub && $skip_sub -> (pass => $_); + + # # Find out the things {-keep} should return. # The thing we match agains is in $_. # @@ -539,6 +550,8 @@ local $_ = $query ? $query -> (@qargs, @args) : ref $parts ? join "" => @$parts : $parts; + local $SKIP = $skip_sub && $skip_sub -> (fail => $_); + my %skips; foreach my $skip (qw /RE SB/) { $skips {$skip} = is_skipped $skip => $target_info, $test_set; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/t/comment/delimited.t new/Regexp-Common-2011041701/t/comment/delimited.t --- old/Regexp-Common-2010010201/t/comment/delimited.t 2009-12-29 20:07:38.000000000 +0100 +++ new/Regexp-Common-2011041701/t/comment/delimited.t 2011-04-17 11:40:07.000000000 +0200 @@ -19,6 +19,7 @@ [qw {<?_c _c?>} => [qw {BML}]], [qw !{ }! => [qw {False}]], [qw {, ,} => [qw {Haifu}]], + [qw {/** */} => [qw {JavaDoc}]], [qw {(* *)} => [qw {Oberon}]], [qw {" "} => [qw {Smalltalk}]], [qw {|| !!} => [qw {*W}]], @@ -82,11 +83,13 @@ $langX =~ s/\W/X/g; no strict 'refs'; push @tests => { - name => $lang, - regex => $RE {comment} {$lang}, - sub => \&{"RE_comment_$langX"}, - pass => [$pass_key], - fail => [$fail_key], + name => $lang, + regex => $RE {comment} {$lang}, + sub => \&{"RE_comment_$langX"}, + pass => [$pass_key], + fail => [$fail_key], + skip_sub => sub {$lang eq 'JavaDoc' && $_ [0] eq 'fail' && + $_ [1] eq '/***/'}, } } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2010010201/t/number/decimal.t new/Regexp-Common-2011041701/t/number/decimal.t --- old/Regexp-Common-2010010201/t/number/decimal.t 2009-12-29 20:07:38.000000000 +0100 +++ new/Regexp-Common-2011041701/t/number/decimal.t 2011-04-16 15:38:39.000000000 +0200 @@ -73,6 +73,11 @@ }; } +$targets {dot} = { + list => ['.'], + query => sub {$_ [0]}, +}; + sub __ { map {;"${_}_int", "${_}_int_dot", "${_}_minus_int", "${_}_plus_int", @@ -84,8 +89,8 @@ name => 'basic', re => $decimal, sub => \&RE_num_decimal, - pass => [__ grep {$_ <= 10} map {$$_ [0]} @data], - fail => [__ grep {$_ > 10} map {$$_ [0]} @data], + pass => [__ (grep {$_ <= 10} map {$$_ [0]} @data)], + fail => [__ (grep {$_ > 10} map {$$_ [0]} @data), "dot"], }; foreach my $data (@data) { @@ -101,7 +106,7 @@ sub => \&RE_num_decimal, sub_args => [-base => $base], pass => [@passes], - fail => [@failures, @commas], + fail => [@failures, @commas, "dot"], }; push @tests => { name => "base_${base}_comma", @@ -114,6 +119,7 @@ } + run_new_tests targets => \%targets, tests => \@tests, version_from => 'Regexp::Common::number', ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
