r56264 - in /trunk/libtest-cpan-meta-perl: Changes META.yml debian/changelog lib/Test/CPAN/Meta.pm lib/Test/CPAN/Meta/Version.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Apr 16 21:12:53 UTC 2010
Author: gregoa
Date: Fri Apr 16 21:12:13 2010
New Revision: 56264
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56264
Log:
New upstream release.
Modified:
trunk/libtest-cpan-meta-perl/Changes
trunk/libtest-cpan-meta-perl/META.yml
trunk/libtest-cpan-meta-perl/debian/changelog
trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm
trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta/Version.pm
Modified: trunk/libtest-cpan-meta-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/Changes?rev=56264&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/Changes (original)
+++ trunk/libtest-cpan-meta-perl/Changes Fri Apr 16 21:12:13 2010
@@ -1,4 +1,8 @@
# Changes log for Test::CPAN::Meta
+
+0.17 12/04/2010
+ - fixed qr// delimiters due to issues with the NOT SIGN symbol
+ (suggested by Ricardo Signes & David Golden).
0.16 18/12/2009
- renamed word() to keyword().
Modified: trunk/libtest-cpan-meta-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/META.yml?rev=56264&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/META.yml (original)
+++ trunk/libtest-cpan-meta-perl/META.yml Fri Apr 16 21:12:13 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Test-CPAN-Meta
-version: 0.16
+version: 0.17
abstract: A test module to validate a CPAN META.yml file.
author:
- Barbie <barbie at cpan.org>
@@ -24,10 +24,10 @@
provides:
Test::CPAN::Meta:
file: lib/Test/CPAN/Meta.pm
- version: 0.16
+ version: 0.17
Test::CPAN::Meta::Version:
file: lib/Test/CPAN/Meta/Version.pm
- version: 0.16
+ version: 0.17
no_index:
directory:
- t
Modified: trunk/libtest-cpan-meta-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/debian/changelog?rev=56264&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/debian/changelog (original)
+++ trunk/libtest-cpan-meta-perl/debian/changelog Fri Apr 16 21:12:13 2010
@@ -1,3 +1,9 @@
+libtest-cpan-meta-perl (0.17-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Fri, 16 Apr 2010 23:11:33 +0200
+
libtest-cpan-meta-perl (0.16-1) unstable; urgency=low
* New upstream release
Modified: trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm?rev=56264&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm (original)
+++ trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm Fri Apr 16 21:12:13 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.16';
+$VERSION = '0.17';
#----------------------------------------------------------------------------
Modified: trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta/Version.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta/Version.pm?rev=56264&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta/Version.pm (original)
+++ trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta/Version.pm Fri Apr 16 21:12:13 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.16';
+$VERSION = '0.17';
#----------------------------------------------------------------------------
@@ -570,20 +570,20 @@
return 0;
}
-#my $protocol = qr¬(?:http|https|ftp|afs|news|nntp|mid|cid|mailto|wais|prospero|telnet|gopher)¬;
-my $protocol = qr¬(?:ftp|http|https|git)¬;
-my $badproto = qr¬(\w+)://¬;
-my $proto = qr¬$protocol://(?:[\w]+:\w+@)?¬;
-my $atom = qr¬[a-z\d]¬i;
-my $domain = qr¬((($atom(($atom|-)*$atom)?)\.)*([a-zA-Z](($atom|-)*$atom)?))¬;
-my $ip = qr¬((\d+)(\.(\d+)){3})(:(\d+))?¬;
-my $enc = qr¬%[a-fA-F\d]{2}¬;
-my $legal1 = qr¬[a-zA-Z\d\$\-_.+!*'(),#]¬; #' - this comment is to avoid syntax highlighting issues
-my $legal2 = qr¬[;:@&=]¬;
-my $legal3 = qr¬((($legal1|$enc)|$legal2)*)¬;
-my $path = qr¬\/$legal3(\/$legal3)*¬;
-my $query = qr¬\?$legal3¬;
-my $urlregex = qr¬(($proto)?($domain|$ip)(($path)?($query)?)?)¬;
+#my $protocol = qr!(?:http|https|ftp|afs|news|nntp|mid|cid|mailto|wais|prospero|telnet|gopher)!;
+my $protocol = qr!(?:ftp|http|https|git)!;
+my $badproto = qr!(\w+)://!;
+my $proto = qr!$protocol://(?:[\w]+:\w+@)?!;
+my $atom = qr![a-z\d]!i;
+my $domain = qr!((($atom(($atom|-)*$atom)?)\.)*([a-zA-Z](($atom|-)*$atom)?))!;
+my $ip = qr!((\d+)(\.(\d+)){3})(:(\d+))?!;
+my $enc = qr!%[a-fA-F\d]{2}!;
+my $legal1 = qr|[a-zA-Z\d\$\-_.+!*\'(),#]|;
+my $legal2 = qr![;:@&=]!;
+my $legal3 = qr!((($legal1|$enc)|$legal2)*)!;
+my $path = qr!\/$legal3(\/$legal3)*!;
+my $query = qr!\?$legal3!;
+my $urlregex = qr!(($proto)?($domain|$ip)(($path)?($query)?)?)!;
sub url {
my ($self,$key,$value) = @_;
More information about the Pkg-perl-cvs-commits
mailing list