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]

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];
         };