r40018 - in /branches/upstream/libparse-method-signatures-perl/current: Changes MANIFEST META.yml Makefile.PL README lib/Parse/Method/Signatures.pm t/signatures.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Thu Jul 16 20:44:21 UTC 2009 

Author: jawnsy-guest
Date: Thu Jul 16 20:44:15 2009
New Revision: 40018

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40018
Log:
[svn-upgrade] Integrating new upstream version, libparse-method-signatures-perl (1.003009)

Removed:
    branches/upstream/libparse-method-signatures-perl/current/README
Modified:
    branches/upstream/libparse-method-signatures-perl/current/Changes
    branches/upstream/libparse-method-signatures-perl/current/MANIFEST
    branches/upstream/libparse-method-signatures-perl/current/META.yml
    branches/upstream/libparse-method-signatures-perl/current/Makefile.PL
    branches/upstream/libparse-method-signatures-perl/current/lib/Parse/Method/Signatures.pm
    branches/upstream/libparse-method-signatures-perl/current/t/signatures.t

Modified: branches/upstream/libparse-method-signatures-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/Changes?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/Changes (original)
+++ branches/upstream/libparse-method-signatures-perl/current/Changes Thu Jul 16 20:44:15 2009
@@ -1,4 +1,8 @@
 Changelog for Parse::Method::Signatures
+
+1.003009 - 2009/07/16
+  - Fix 'Use of uninitialized value' when using regexps in signatures
+  - Depend on MooseX::Traits 0.06 to remove warning about 'bare has' attribute
 
 1.003008 - 2009/06/25
   - Fix ppi.t for the __MOP__ object key (Jesse Luehrs).

Modified: branches/upstream/libparse-method-signatures-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/MANIFEST?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/MANIFEST (original)
+++ branches/upstream/libparse-method-signatures-perl/current/MANIFEST Thu Jul 16 20:44:15 2009
@@ -23,7 +23,6 @@
 Makefile.PL
 MANIFEST			This list of files
 META.yml
-README
 t/ppi.t
 t/signatures.t
 t/struct.t

Modified: branches/upstream/libparse-method-signatures-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/META.yml?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/META.yml (original)
+++ branches/upstream/libparse-method-signatures-perl/current/META.yml Thu Jul 16 20:44:15 2009
@@ -25,7 +25,7 @@
 provides:
   Parse::Method::Signatures:
     file: lib/Parse/Method/Signatures.pm
-    version: 1.003008
+    version: 1.003009
   Parse::Method::Signatures::Param:
     file: lib/Parse/Method/Signatures/Param.pm
   Parse::Method::Signatures::Param::Bindable:
@@ -53,7 +53,7 @@
 requires:
   List::MoreUtils: 0
   Moose: 0
-  MooseX::Traits: 0
+  MooseX::Traits: 0.06
   MooseX::Types: 0.10
   MooseX::Types::Moose: 0
   MooseX::Types::Structured: 0
@@ -63,4 +63,4 @@
   homepage: http://github.com/ashb/parse-method-signatures/tree/master
   license: http://dev.perl.org/licenses/
   repository: git://github.com/ashb/parse-method-signatures.git
-version: 1.003008
+version: 1.003009

Modified: branches/upstream/libparse-method-signatures-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/Makefile.PL?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/Makefile.PL (original)
+++ branches/upstream/libparse-method-signatures-perl/current/Makefile.PL Thu Jul 16 20:44:15 2009
@@ -1,4 +1,4 @@
-use inc::Module::Install 0.79;
+use inc::Module::Install 0.91;
 
 use strict;
 use warnings;
@@ -8,7 +8,7 @@
 
 requires 'List::MoreUtils';
 requires 'Moose';
-requires 'MooseX::Traits';
+requires 'MooseX::Traits' => '0.06';
 requires 'MooseX::Types' => '0.10';
 requires 'MooseX::Types::Moose';
 requires 'MooseX::Types::Structured';
@@ -34,5 +34,5 @@
 );
 
 auto_provides;
-#auto_install;
+auto_install();
 WriteAll;

Modified: branches/upstream/libparse-method-signatures-perl/current/lib/Parse/Method/Signatures.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/lib/Parse/Method/Signatures.pm?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/lib/Parse/Method/Signatures.pm (original)
+++ branches/upstream/libparse-method-signatures-perl/current/lib/Parse/Method/Signatures.pm Thu Jul 16 20:44:15 2009
@@ -15,7 +15,7 @@
 use Carp qw/croak/;
 
 use namespace::clean -except => 'meta';
-our $VERSION = '1.003008';
+our $VERSION = '1.003009';
 our $ERROR_LEVEL = 0;
 our %LEXTABLE;
 our $DEBUG = $ENV{PMS_DEBUG} || 0;
@@ -155,11 +155,14 @@
 sub _replace_regexps {
   my ($self, $doc) = @_;
 
+  REGEXP:
   foreach my $node ( @{ $doc->find('Token::Regexp') || [] } ) {
     my $str = $node->content;
 
+    next REGEXP unless defined $node->{operator};
+
     # Rather annoyingly, there are *no* methods on Token::Regexp;
-    my ($word, $rest) = $str =~ /^(@{[$node->{operator}]})(.*)$/s;
+    my ($word, $rest) = $str =~ /^(\Q@{[$node->{operator}]}\E)(.*)$/s;
 
     my $subdoc = PPI::Document->new(\$rest);
     my @to_add = reverse map { $_->remove } $subdoc->children;

Modified: branches/upstream/libparse-method-signatures-perl/current/t/signatures.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-method-signatures-perl/current/t/signatures.t?rev=40018&op=diff
==============================================================================
--- branches/upstream/libparse-method-signatures-perl/current/t/signatures.t (original)
+++ branches/upstream/libparse-method-signatures-perl/current/t/signatures.t Thu Jul 16 20:44:15 2009
@@ -141,7 +141,15 @@
     ['($x = $a[0])',            'invalid label contents'],
 );
 
-plan tests => scalar @sigs * 3 + scalar @alternative + scalar @invalid;
+my @no_warn = (
+    ['($x where { $_ =~ /foo/ })', 'Regexp without operator' ]
+);
+
+plan tests => scalar @sigs * 3 
+            + scalar @alternative 
+            + scalar @invalid
+            + scalar @no_warn
+;
 
 test_sigs(sub {
     my ($input, $msg, $todo) = @_;
@@ -168,6 +176,8 @@
     dies_ok { Parse::Method::Signatures->signature($sig) } $msg;
 }, @invalid);
 
+test_no_warn(@no_warn);
+
 sub test_sigs {
     my ($test, @sigs) = @_;
 
@@ -179,3 +189,20 @@
         }
     }
 }
+
+sub test_no_warn {
+    my (@sigs) = @_;
+
+    my $warnings = "";
+    local $SIG{__WARN__} = sub { $warnings .= "@_"; };
+
+    for my $row (@sigs) {
+        my ($sig, $msg, $todo) = @{ $row };
+        TODO: {
+            $warnings = "";
+            local $TODO = $todo if $todo;
+            Parse::Method::Signatures->signature($sig);
+            is("", $warnings, $msg || "'$sig' generated no warnings");
+        }
+    }
+}

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