r45885 - in /trunk/libmoosex-method-signatures-perl: Changes MANIFEST META.yml debian/changelog lib/MooseX/Method/Signatures.pm lib/MooseX/Method/Signatures/Meta/Method.pm t/too_many_args.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Oct 16 14:54:46 UTC 2009
Author: jawnsy-guest
Date: Fri Oct 16 14:54:40 2009
New Revision: 45885
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45885
Log:
New upstream release
Added:
trunk/libmoosex-method-signatures-perl/t/too_many_args.t
- copied unchanged from r45884, branches/upstream/libmoosex-method-signatures-perl/current/t/too_many_args.t
Modified:
trunk/libmoosex-method-signatures-perl/Changes
trunk/libmoosex-method-signatures-perl/MANIFEST
trunk/libmoosex-method-signatures-perl/META.yml
trunk/libmoosex-method-signatures-perl/debian/changelog
trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm
trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm
Modified: trunk/libmoosex-method-signatures-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/Changes?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/Changes (original)
+++ trunk/libmoosex-method-signatures-perl/Changes Fri Oct 16 14:54:40 2009
@@ -1,4 +1,10 @@
Version history for MooseX::Method::Signatures
+
+0.29 Thu, 15 Oct 2009 23:27:08 +0200
+ * Fix regression introduced in 0.29.
+ Validation for methods without named arguments wasn't strict enough
+ anymore. Passing too many arguments hasn't been rejected. Thanks
+ Justin Hunter for finding this.
0.28 Fri, 09 Oct 2009 01:28:02 +0200
* Fix default values for named arguments.
Modified: trunk/libmoosex-method-signatures-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/MANIFEST?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/MANIFEST (original)
+++ trunk/libmoosex-method-signatures-perl/MANIFEST Fri Oct 16 14:54:40 2009
@@ -43,6 +43,7 @@
t/signatures.t
t/sigs-optional.t
t/structured.t
+t/too_many_args.t
t/traits.t
t/type_alias.t
t/types.t
Modified: trunk/libmoosex-method-signatures-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/META.yml?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/META.yml (original)
+++ trunk/libmoosex-method-signatures-perl/META.yml Fri Oct 16 14:54:40 2009
@@ -41,4 +41,4 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Method-Signatures
license: http://dev.perl.org/licenses/
repository: git://github.com/rafl/moosex-method-signatures.git
-version: 0.28
+version: 0.29
Modified: trunk/libmoosex-method-signatures-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/debian/changelog?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/debian/changelog (original)
+++ trunk/libmoosex-method-signatures-perl/debian/changelog Fri Oct 16 14:54:40 2009
@@ -1,3 +1,9 @@
+libmoosex-method-signatures-perl (0.29-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 16 Oct 2009 07:16:57 -0400
+
libmoosex-method-signatures-perl (0.28-1) unstable; urgency=low
* New upstream release
Modified: trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm (original)
+++ trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm Fri Oct 16 14:54:40 2009
@@ -19,7 +19,7 @@
use namespace::autoclean;
-our $VERSION = '0.28';
+our $VERSION = '0.29';
has package => (
is => 'ro',
Modified: trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm?rev=45885&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm (original)
+++ trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm Fri Oct 16 14:54:40 2009
@@ -407,10 +407,7 @@
$i++;
}
- if ($self->_has_slurpy_positional) {
- push @positional_args, @{ $_ }[$i .. $#{ $_ }];
- }
- elsif (%named) {
+ if (%named) {
my %rest = @{ $_ }[$i .. $#{ $_ }];
while (my ($key, $spec) = each %named) {
if (exists $rest{$key}) {
@@ -425,6 +422,9 @@
@named_args{keys %rest} = values %rest;
}
+ elsif ($#{ $_ } >= $i) {
+ push @positional_args, @{ $_ }[$i .. $#{ $_ }];
+ }
return [\@positional_args, \%named_args];
};
More information about the Pkg-perl-cvs-commits
mailing list