r56324 - in /trunk/libtest-yaml-meta-perl: Changes META.yml debian/changelog lib/Test/YAML/Meta.pm lib/Test/YAML/Meta/Version.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Apr 17 19:15:36 2010
New Revision: 56324

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56324
Log:
New upstream release.

Modified:
    trunk/libtest-yaml-meta-perl/Changes
    trunk/libtest-yaml-meta-perl/META.yml
    trunk/libtest-yaml-meta-perl/debian/changelog
    trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta.pm
    trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta/Version.pm

Modified: trunk/libtest-yaml-meta-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-yaml-meta-perl/Changes?rev=56324&op=diff
==============================================================================
--- trunk/libtest-yaml-meta-perl/Changes (original)
+++ trunk/libtest-yaml-meta-perl/Changes Sat Apr 17 19:15:36 2010
@@ -1,4 +1,8 @@
 # Changes log for Test::YAML::Meta
+
+0.16    12/04/2010
+	- fixed qr// delimiters due to issues with the NOT SIGN symbol 
+	  (suggested by Ricardo Signes & David Golden).
 
 0.15    18/12/2009
 	- renamed word() to keyword().

Modified: trunk/libtest-yaml-meta-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-yaml-meta-perl/META.yml?rev=56324&op=diff
==============================================================================
--- trunk/libtest-yaml-meta-perl/META.yml (original)
+++ trunk/libtest-yaml-meta-perl/META.yml Sat Apr 17 19:15:36 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                     Test-YAML-Meta
-version:                  0.15
+version:                  0.16
 abstract:                 A test module to validate a META.yml file.
 author:
   - Barbie <barbie at cpan.org>
@@ -27,10 +27,10 @@
 provides:
   Test::YAML::Meta:
     file:     lib/Test/YAML/Meta.pm
-    version:  0.15
+    version:  0.16
   Test::YAML::Meta::Version:
     file:     lib/Test/YAML/Meta/Version.pm
-    version:  0.15
+    version:  0.16
 no_index:
   directory:
     - t

Modified: trunk/libtest-yaml-meta-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-yaml-meta-perl/debian/changelog?rev=56324&op=diff
==============================================================================
--- trunk/libtest-yaml-meta-perl/debian/changelog (original)
+++ trunk/libtest-yaml-meta-perl/debian/changelog Sat Apr 17 19:15:36 2010
@@ -1,3 +1,9 @@
+libtest-yaml-meta-perl (0.16-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 17 Apr 2010 21:15:05 +0200
+
 libtest-yaml-meta-perl (0.15-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta.pm?rev=56324&op=diff
==============================================================================
--- trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta.pm (original)
+++ trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta.pm Sat Apr 17 19:15:36 2010
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.15';
+$VERSION = '0.16';
 
 #----------------------------------------------------------------------------
 

Modified: trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta/Version.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta/Version.pm?rev=56324&op=diff
==============================================================================
--- trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta/Version.pm (original)
+++ trunk/libtest-yaml-meta-perl/lib/Test/YAML/Meta/Version.pm Sat Apr 17 19:15:36 2010
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.15';
+$VERSION = '0.16';
 
 #----------------------------------------------------------------------------
 
@@ -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) = @_;