Hello community, here is the log from the commit of package perl-Regexp-Common for openSUSE:Factory checked in at 2012-02-14 19:05:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Regexp-Common (Old) and /work/SRC/openSUSE:Factory/.perl-Regexp-Common.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Regexp-Common", Maintainer is "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Regexp-Common/perl-Regexp-Common.changes 2011-09-23 12:38:38.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Regexp-Common.new/perl-Regexp-Common.changes 2012-02-14 19:05:23.000000000 +0100 @@ -1,0 +2,16 @@ +Sat Feb 11 18:52:39 UTC 2012 - [email protected] + +- updated to 2011121001 + + Fixed a few cases where $[ was used instead of $]. + (RT 73033 by Father Chrysostomos <[email protected]>) + + Typo fix in docs (P Ramakers <[email protected]>) + + Add an explicite 1 to end the main module; otherwise it may fail under Mason + (Luciano Rocha <[email protected]>) + + Version 2011041801 Mon Apr 18 11:18:19 CEST 2011 + + Created tests for Pascal comments. + + https schemes are now included in $RE {URI} + + Document non-anchoring (RT 55549) + + Fix POD typos (RT 67549 by Salvatore Bonaccorso <[email protected]>) + +------------------------------------------------------------------- Old: ---- Regexp-Common-2011041701.tar.gz New: ---- Regexp-Common-2011121001.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Regexp-Common.spec ++++++ --- /var/tmp/diff_new_pack.AEeRgh/_old 2012-02-14 19:05:24.000000000 +0100 +++ /var/tmp/diff_new_pack.AEeRgh/_new 2012-02-14 19:05:24.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Regexp-Common # -# 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,25 +16,29 @@ # - Name: perl-Regexp-Common -Version: 2011041701 -Release: 1 -License: MIT +Version: 2011121001 +Release: 0 %define cpan_name Regexp-Common Summary: Provide commonly requested regular expressions -Url: http://search.cpan.org/dist/Regexp-Common/ +License: MIT Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/Regexp-Common/ 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) -Requires: perl(vars) +#BuildRequires: perl(Regexp::Common) +#BuildRequires: perl(Regexp::Common::_support) +#BuildRequires: perl(Regexp::Common::URI) +#BuildRequires: perl(Regexp::Common::URI::RFC1035) +#BuildRequires: perl(Regexp::Common::URI::RFC1738) +#BuildRequires: perl(Regexp::Common::URI::RFC1808) +#BuildRequires: perl(Regexp::Common::URI::RFC2384) +#BuildRequires: perl(Regexp::Common::URI::RFC2396) +#BuildRequires: perl(Regexp::Common::URI::RFC2806) +#BuildRequires: perl(t::Common) %{perl_requires} %description @@ -47,6 +51,7 @@ %prep %setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -60,9 +65,6 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files %defattr(-,root,root,755) %doc Changes COPYRIGHT COPYRIGHT.AL COPYRIGHT.AL2 COPYRIGHT.BSD COPYRIGHT.MIT README TODO ++++++ Regexp-Common-2011041701.tar.gz -> Regexp-Common-2011121001.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/Changes new/Regexp-Common-2011121001/Changes --- old/Regexp-Common-2011041701/Changes 2011-04-17 14:23:07.000000000 +0200 +++ new/Regexp-Common-2011121001/Changes 2011-12-10 22:05:01.000000000 +0100 @@ -1,3 +1,16 @@ +Version 2011121001 Sat Dec 10 21:32:49 CET 2011 ++ Fixed a few cases where $[ was used instead of $]. + (RT 73033 by Father Chrysostomos <[email protected]>) ++ Typo fix in docs (P Ramakers <[email protected]>) ++ Add an explicite 1 to end the main module; otherwise it may fail under Mason + (Luciano Rocha <[email protected]>) + +Version 2011041801 Mon Apr 18 11:18:19 CEST 2011 ++ Created tests for Pascal comments. ++ https schemes are now included in $RE {URI} ++ Document non-anchoring (RT 55549) ++ Fix POD typos (RT 67549 by Salvatore Bonaccorso <[email protected]>) + Version 2011041701 Sun Apr 17 14:22:58 CEST 2011 + Fix documentation (matches should be match). Reported by [email protected] in RT ticket 2833. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/MANIFEST new/Regexp-Common-2011121001/MANIFEST --- old/Regexp-Common-2011041701/MANIFEST 2011-04-16 15:22:25.000000000 +0200 +++ new/Regexp-Common-2011121001/MANIFEST 2011-12-10 22:07:44.000000000 +0100 @@ -45,6 +45,7 @@ t/comment/delimited.t t/comment/html.t t/comment/nested.t +t/comment/pascal.t t/comment/single_line.t t/comment/single_or_multiline.t t/number/decimal.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/META.yml new/Regexp-Common-2011121001/META.yml --- old/Regexp-Common-2011041701/META.yml 2011-04-17 14:36:37.000000000 +0200 +++ new/Regexp-Common-2011121001/META.yml 2011-12-10 22:07:44.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Regexp-Common -version: 2011041701 +version: 2011121001 abstract: Provide commonly requested regular expressions author: - Abigail <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/README new/Regexp-Common-2011121001/README --- old/Regexp-Common-2011041701/README 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/README 2011-04-17 16:50:06.000000000 +0200 @@ -1,5 +1,5 @@ ============================================================================== - Release of version 2010010201 of Regexp::Common + Release of version 2011041702 of Regexp::Common ============================================================================== The main reason for version 2.122 is a change in the license. You now diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/lib/Regexp/Common/URI/http.pm new/Regexp-Common-2011121001/lib/Regexp/Common/URI/http.pm --- old/Regexp-Common-2011041701/lib/Regexp/Common/URI/http.pm 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/lib/Regexp/Common/URI/http.pm 2011-04-17 16:37:19.000000000 +0200 @@ -14,7 +14,9 @@ my $http_uri = "(?k:(?k:http)://(?k:$host)(?::(?k:$port))?" . "(?k:/(?k:(?k:$path_segments)(?:[?](?k:$query))?))?)"; -register_uri HTTP => $http_uri; +my $https_uri = $http_uri; $https_uri =~ s/http/https?/; + +register_uri HTTP => $https_uri; pattern name => [qw (URI HTTP), "-scheme=http"], create => sub { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/lib/Regexp/Common/comment.pm new/Regexp-Common-2011121001/lib/Regexp/Common/comment.pm --- old/Regexp-Common-2011041701/lib/Regexp/Common/comment.pm 2011-04-17 11:20:34.000000000 +0200 +++ new/Regexp-Common-2011121001/lib/Regexp/Common/comment.pm 2011-04-18 11:15:09.000000000 +0200 @@ -669,9 +669,9 @@ =item INTERCAL Comments in INTERCAL are single line comments. They start with one of -the keywords C<NOT> or C<N'T>, and can optionally be preceeded by the +the keywords C<NOT> or C<N'T>, and can optionally be preceded by the keywords C<DO> and C<PLEASE>. If both keywords are used, C<PLEASE> -preceeds C<DO>. Keywords are separated by whitespace. +precedes C<DO>. Keywords are separated by whitespace. =item J @@ -733,9 +733,9 @@ In C<M> (aka C<MUMPS>), comments start with a semi-colon, and last till the end of a line. The language specification requires the -semi-colon to be preceeded by one or more I<linestart character>s. +semi-colon to be preceded by one or more I<linestart character>s. Those characters default to a space, but that's configurable. This -requirement, of preceeding the comment with linestart characters is +requirement, of preceding the comment with linestart characters is B<not> tested for. See L<ftp://ftp.intersys.com/pub/openm/ism/ism64docs.zip>, L<http://mtechnology.intersys.com/mproducts/openm/index.html>, and @@ -793,7 +793,7 @@ are considered to be comments. Many Pascal applications don't allow this. See L<http://www.pascal-central.com/docs/iso10206.txt> -=item C<$RE{comment}{Alice}> +=item C<$RE{comment}{Pascal}{Alice}> The I<Alice Pascal> compiler accepts comments that start with C<{> and end with C<}>. Comments are not allowed to contain newlines. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/lib/Regexp/Common.pm new/Regexp-Common-2011121001/lib/Regexp/Common.pm --- old/Regexp-Common-2011041701/lib/Regexp/Common.pm 2011-04-17 14:22:44.000000000 +0200 +++ new/Regexp-Common-2011121001/lib/Regexp/Common.pm 2011-12-10 21:39:45.000000000 +0100 @@ -18,7 +18,7 @@ use warnings; use vars qw /$VERSION %RE %sub_interface $AUTOLOAD/; -$VERSION = '2011041701'; +$VERSION = '2011121001'; sub _croak { @@ -272,6 +272,9 @@ bless { %$self, args=>$args, flags=>$flags }, ref $self; } +1; + +__END__ =pod @@ -287,7 +290,7 @@ while (<>) { /$RE{num}{real}/ and print q{a number}; - /$RE{quoted} and print q{a ['"`] quoted string}; + /$RE{quoted}/ and print q{a ['"`] quoted string}; /$RE{delimited}{-delim=>'/'}/ and print q{a /.../ sequence}; /$RE{balanced}{-parens=>'()'}/ and print q{balanced parentheses}; /$RE{profanity}/ and print q{a #*@%-ing word}; @@ -849,9 +852,25 @@ some manual pages may not install, or may not install correctly using a perl that is that old. You might consider upgrading your perl. +=head1 NOT A BUG + +=over 4 + +=item * + +The various patterns are not anchored. That is, a pattern like +C<< $RE {num} {int} >> will match against "abc4def", because a +substring of the subject matches. This is by design, and not a +bug. If you want the pattern to be anchored, use something like: + + my $integer = $RE {num} {int}; + $subj =~ /^$integer$/ and print "Matches!\n"; + +=back + =head1 LICENSE and COPYRIGHT -This software is Copyright (c) 2001 - 2009, Damian Conway and Abigail. +This software is Copyright (c) 2001 - 2011, Damian Conway and Abigail. This module is free software, and maybe used under any of the following licenses: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/t/URI/any.t new/Regexp-Common-2011121001/t/URI/any.t --- old/Regexp-Common-2011041701/t/URI/any.t 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/t/URI/any.t 2011-04-17 16:41:46.000000000 +0200 @@ -13,47 +13,50 @@ try $RE{URI}; -pass 'http://www.example.com'; -pass 'http://www.example.com/'; -pass 'http://www.example.com/some/file/some/where'; -pass 'http://www.example.com/some/directory/some/where'; -pass 'http://www.example.com:80/some/file'; -pass 'http://127.0.0.1'; -pass 'http://127.0.0.1/'; -pass 'http://127.0.0.1:12345/some/file'; -pass 'http://www.example.com:80/some/path?query'; -pass 'http://www.example.com/%7Eabigail/'; -# Test "safe" chars. -pass 'http://www.example.com/--_$.+++'; -pass 'http://www.example.com/.'; -# Test "extra" chars. -pass "http://www.example.com/**!(),,''"; -# Test HTTP additional chars. -pass 'http://www.example.com/:;@=&=;'; -pass 'http://www.example.com/some/path?query'; -pass 'http://www.example.com/some/path?funny**!(),,:;@=&='; -pass 'http://www.example.com/some/?'; -pass 'http://www.example.com/?'; -pass 'http://www.example.com//////////////'; -# Usernames/passwords are NOT allowed in http URIs. -fail 'http://[email protected]'; -fail 'http://[email protected]:80/some/file'; -fail 'http://abigail:[email protected]:80/some/file'; -fail 'http://abigail:[email protected]:80/some/file'; -# ~ was NOT allowed by RFC 1738, but currently is. -pass 'http://www.example.com/~abigail/'; -# Fail on "national" characters. -fail 'http://www.example.com/nope|nope'; -fail 'http://www.example.com/`'; -# Fail on "punctation" characters. -fail 'http://www.example.com/some/file#target'; -# Two question marks used to be failure, but is now allowed. -pass 'http://www.example.com/some/path?query1?query2'; -pass 'http://www.example.com/some/??'; -# Can have slashes in query. -pass 'http://www.example.com/some/path?query/path'; +for my $scheme (qw [http https]) { + pass "$scheme://www.example.com"; + pass "$scheme://www.example.com/"; + pass "$scheme://www.example.com/some/file/some/where"; + pass "$scheme://www.example.com/some/directory/some/where"; + pass "$scheme://www.example.com:80/some/file"; + pass "$scheme://127.0.0.1"; + pass "$scheme://127.0.0.1/"; + pass "$scheme://127.0.0.1:12345/some/file"; + pass "$scheme://www.example.com:80/some/path?query"; + pass "$scheme://www.example.com/%7Eabigail/"; + # Test "safe" chars. + pass "$scheme://www.example.com/--_\$.+++"; + pass "$scheme://www.example.com/."; + # Test "extra" chars. + pass "$scheme://www.example.com/**!(),,''"; + # Test HTTP additional chars. + pass "$scheme://www.example.com/:;\@=&=;"; + pass "$scheme://www.example.com/some/path?query"; + pass "$scheme://www.example.com/some/path?funny**!(),,:;\@=&="; + pass "$scheme://www.example.com/some/?"; + pass "$scheme://www.example.com/?"; + pass "$scheme://www.example.com//////////////"; + # Usernames/passwords are NOT allowed in http URIs. + fail "$scheme://abigail\@www.example.com"; + fail "$scheme://abigail\@www.example.com:80/some/file"; + fail "$scheme://abigail:secret\@www.example.com:80/some/file"; + fail "$scheme://abigail:secret\@127.0.0.1:80/some/file"; + # ~ was NOT allowed by RFC 1738, but currently is. + pass "$scheme://www.example.com/~abigail/"; + # Fail on "national" characters. + fail "$scheme://www.example.com/nope|nope"; + fail "$scheme://www.example.com/`"; + # Fail on "punctation" characters. + fail "$scheme://www.example.com/some/file#target"; + # Two question marks used to be failure, but is now allowed. + pass "$scheme://www.example.com/some/path?query1?query2"; + pass "$scheme://www.example.com/some/??"; + # Can have slashes in query. + pass "$scheme://www.example.com/some/path?query/path"; +} # Scheme must be lower case, and correct. fail 'HTTP://www.example.com/'; +fail 'HTTPS://www.example.com/'; pass 'ftp://ftp.example.com'; pass 'ftp://ftp.example.com/'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/t/comment/pascal.t new/Regexp-Common-2011121001/t/comment/pascal.t --- old/Regexp-Common-2011041701/t/comment/pascal.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Regexp-Common-2011121001/t/comment/pascal.t 2011-04-17 15:32:57.000000000 +0200 @@ -0,0 +1,94 @@ +#!/usr/bin/perl + +use strict; +use lib "blib/lib"; + +use Regexp::Common qw /RE_comment_Pascal/; +use t::Common qw /run_new_tests/; + +use warnings; + + +BEGIN {$^W = 0 if $] < 5.006} + +my @open = qw [{ (*]; +my @close = qw [} *)]; + + +# +# Some basic comments, not including delimiters. +# +my @comments = ("", "This is a comment", "This is a\nmultiline comment", + "\n", "*", "\n*\n", "**", "*****", "** **", "/*", "||"); + +# Targets, and test suites. +my %targets; +my @tests; + +foreach my $start (@open) { + foreach my $end (@close) { + my $lang = "Pascal"; + my $pass_key = "pass_${start}_${end}"; + my $fail_key = "fail_${start}_${end}"; + + $targets {$pass_key} = { + list => \@comments, + query => sub {$start . $_ [0] . $end}, + wanted => sub {$_, $start, $_ [0], $end}, + }; + + # Create bad comments. + my @bad_comments; + # No terminating token. + # Not for pre 5.006 perls due to tests taking too much time. + push @bad_comments => map {"$start$_"} @comments if $] >= 5.006; + # No starting token. + push @bad_comments => map {"$_$end"} + grep {index ($_, $start)} @comments; + # Double terminators. + push @bad_comments => map {"$start$_$end$end"} @comments; + # Double the comment. + push @bad_comments => map {"$start$_$end" x 2} @comments; + # Different token. + my @bad_open = qw [// /* --]; + my @bad_close = (qw [*/ --], "\n"); + + foreach my $close (@close) { + push @bad_comments => + map {my $o = $_; map {"ot$_$close"} @comments} @bad_open; + } + foreach my $open (@open) { + push @bad_comments => + map {my $c = $_; map {"$open$_$c"} @comments} @bad_close; + } + + # No tokens. + push @bad_comments => @comments; + + # Text preceeding comment. + push @bad_comments => map {"Text $start$_$end"} @comments; + # Some more. + push @bad_comments => "<!-- This is an HTML comment -->"; + push @bad_comments => "/* This is a C comment */"; + + $targets {$fail_key} = { + list => \@bad_comments, + }; + + no strict 'refs'; + push @tests => { + name => $lang, + regex => $RE {comment} {$lang}, + sub => \&{"RE_comment_$lang"}, + pass => [$pass_key], + fail => [$fail_key], + } + } +} + +run_new_tests tests => \@tests, + targets => \%targets, + version_from => 'Regexp::Common::comment', + + +__END__ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/t/comment/single_line.t new/Regexp-Common-2011121001/t/comment/single_line.t --- old/Regexp-Common-2011041701/t/comment/single_line.t 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/t/comment/single_line.t 2011-12-10 21:27:40.000000000 +0100 @@ -6,7 +6,7 @@ use Regexp::Common qw /RE_comment_ALL/; use t::Common qw /run_new_tests ww/; -BEGIN {$^W = 0 if $[ < 5.006}; +BEGIN {$^W = 0 if $] < 5.006}; use warnings; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/t/comment/single_or_multiline.t new/Regexp-Common-2011121001/t/comment/single_or_multiline.t --- old/Regexp-Common-2011041701/t/comment/single_or_multiline.t 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/t/comment/single_or_multiline.t 2011-12-10 21:27:40.000000000 +0100 @@ -8,7 +8,7 @@ use warnings; -BEGIN {$^W = 0 if $[ < 5.006;} +BEGIN {$^W = 0 if $] < 5.006;} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Regexp-Common-2011041701/t/number/integer.t new/Regexp-Common-2011121001/t/number/integer.t --- old/Regexp-Common-2011041701/t/number/integer.t 2010-02-23 17:59:52.000000000 +0100 +++ new/Regexp-Common-2011121001/t/number/integer.t 2011-12-10 21:26:55.000000000 +0100 @@ -252,7 +252,7 @@ next if $i == $#bases; my $next_base = $bases [$i + 1]; push @{$tests [-1] {fail}} => "sep-$next_base-$group" - unless $[ < 5.00503; + unless $] < 5.00503; } push @tests => { -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
