r48810 - in /branches/upstream/libtest-yaml-meta-perl/current: Changes META.yml lib/Test/YAML/Meta.pm lib/Test/YAML/Meta/Version.pm

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed Dec 16 00:51:50 UTC 2009


Author: jawnsy-guest
Date: Wed Dec 16 00:51:44 2009
New Revision: 48810

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48810
Log:
[svn-upgrade] Integrating new upstream version, libtest-yaml-meta-perl (0.14)

Modified:
    branches/upstream/libtest-yaml-meta-perl/current/Changes
    branches/upstream/libtest-yaml-meta-perl/current/META.yml
    branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta.pm
    branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta/Version.pm

Modified: branches/upstream/libtest-yaml-meta-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-yaml-meta-perl/current/Changes?rev=48810&op=diff
==============================================================================
--- branches/upstream/libtest-yaml-meta-perl/current/Changes (original)
+++ branches/upstream/libtest-yaml-meta-perl/current/Changes Wed Dec 16 00:51:44 2009
@@ -1,4 +1,8 @@
 # Changes log for Test::YAML::Meta
+
+0.14    12/12/2009
+	- clarified spec defined and user defined keys, as promoted by Kevin
+	  Ryde in RT#52685 (thanks Kevin).
 
 0.13    07/12/2009
 	- RT#46473: license url with fragment part (Kevin Ryde)

Modified: branches/upstream/libtest-yaml-meta-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-yaml-meta-perl/current/META.yml?rev=48810&op=diff
==============================================================================
--- branches/upstream/libtest-yaml-meta-perl/current/META.yml (original)
+++ branches/upstream/libtest-yaml-meta-perl/current/META.yml Wed Dec 16 00:51:44 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                     Test-YAML-Meta
-version:                  0.13
+version:                  0.14
 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.13
+    version:  0.14
   Test::YAML::Meta::Version:
     file:     lib/Test/YAML/Meta/Version.pm
-    version:  0.13
+    version:  0.14
 no_index:
   directory:
     - t

Modified: branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta.pm?rev=48810&op=diff
==============================================================================
--- branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta.pm (original)
+++ branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta.pm Wed Dec 16 00:51:44 2009
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.13';
+$VERSION = '0.14';
 
 #----------------------------------------------------------------------------
 

Modified: branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta/Version.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta/Version.pm?rev=48810&op=diff
==============================================================================
--- branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta/Version.pm (original)
+++ branches/upstream/libtest-yaml-meta-perl/current/lib/Test/YAML/Meta/Version.pm Wed Dec 16 00:51:44 2009
@@ -4,7 +4,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.13';
+$VERSION = '0.14';
 
 #----------------------------------------------------------------------------
 
@@ -540,6 +540,11 @@
 
 Validates that key is in an acceptable format for the META.yml specification,
 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>';
     }




More information about the Pkg-perl-cvs-commits mailing list