r48796 - in /trunk/libtest-cpan-meta-perl: Changes META.yml debian/changelog lib/Test/CPAN/Meta.pm lib/Test/CPAN/Meta/Version.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Dec 16 00:11:09 2009
New Revision: 48796

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48796
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=48796&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/Changes (original)
+++ trunk/libtest-cpan-meta-perl/Changes Wed Dec 16 00:11:09 2009
@@ -1,10 +1,13 @@
 # Changes log for Test::CPAN::Meta
+
+0.15    12/12/2009
+	- clarified spec defined and user defined keys, as promoted by Kevin
+	  Ryde in RT#52685 (thanks Kevin).
 
 0.14    07/12/2009
 	- RT#46473: license url with fragment part (Kevin Ryde)
 	- RT#47393: "optional_features" as map rather than list (Kevin Ryde)
 	- above applied to 1.4, 1.3 and 1.2 version of the meta-spec.
-
 
 0.13    24/05/2009
 	- added version checking to standard 94metatest.t

Modified: trunk/libtest-cpan-meta-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-cpan-meta-perl/META.yml?rev=48796&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/META.yml (original)
+++ trunk/libtest-cpan-meta-perl/META.yml Wed Dec 16 00:11:09 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                     Test-CPAN-Meta
-version:                  0.14
+version:                  0.15
 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.14
+    version:  0.15
   Test::CPAN::Meta::Version:
     file:     lib/Test/CPAN/Meta/Version.pm
-    version:  0.14
+    version:  0.15
 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=48796&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/debian/changelog (original)
+++ trunk/libtest-cpan-meta-perl/debian/changelog Wed Dec 16 00:11:09 2009
@@ -1,3 +1,9 @@
+libtest-cpan-meta-perl (0.15-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 15 Dec 2009 16:00:33 -0500
+
 libtest-cpan-meta-perl (0.14-1) unstable; urgency=low
 
   [ Jonathan Yu ]

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=48796&op=diff
==============================================================================
--- trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm (original)
+++ trunk/libtest-cpan-meta-perl/lib/Test/CPAN/Meta.pm Wed Dec 16 00:11:09 2009
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.14';
+$VERSION = '0.15';
 
 #----------------------------------------------------------------------------
 

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=48796&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 Wed Dec 16 00:11:09 2009
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.14';
+$VERSION = '0.15';
 
 #----------------------------------------------------------------------------
 
@@ -539,7 +539,12 @@
 =item * word($self,$key,$value)
 
 Validates that key is in an acceptable format for the META.yml specification,
-i.e. any in the character class [-_a-z].
+i.e. any in the character class [-_a-z]. 
+
+For user defined keys, although not explicitly stated in the specifications 
+(v1.0 - v1.4), the convention is to precede the key with a pattern matching 
+qr{\Ax_}i. Following this any character from the character class [-_a-zA-Z]
+can be used. This clarification has been added to v2.0 of the specification.
 
 =item * module($self,$key,$value)
 
@@ -710,7 +715,8 @@
 sub word {
     my ($self,$key) = @_;
     if(defined $key) {
-        return 1    if($key && $key =~ /^([-_a-z]+)$/);
+        return 1    if($key && $key =~ /^([-_a-z]+)$/);     # spec defined
+        return 1    if($key && $key =~ /^x_([-_a-z]+)$/i);  # user defined
     } else {
         $key = '<undef>';
     }