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