r40020 - in /trunk/libparse-method-signatures-perl: Changes MANIFEST META.yml Makefile.PL README debian/changelog debian/control 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 21:56:04 UTC 2009
Author: jawnsy-guest
Date: Thu Jul 16 21:55:48 2009
New Revision: 40020
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40020
Log:
* New upstream release
+ Fix use of regular expressions in signatures
Removed:
trunk/libparse-method-signatures-perl/README
Modified:
trunk/libparse-method-signatures-perl/Changes
trunk/libparse-method-signatures-perl/MANIFEST
trunk/libparse-method-signatures-perl/META.yml
trunk/libparse-method-signatures-perl/Makefile.PL
trunk/libparse-method-signatures-perl/debian/changelog
trunk/libparse-method-signatures-perl/debian/control
trunk/libparse-method-signatures-perl/lib/Parse/Method/Signatures.pm
trunk/libparse-method-signatures-perl/t/signatures.t
Modified: trunk/libparse-method-signatures-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/Changes?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/Changes (original)
+++ trunk/libparse-method-signatures-perl/Changes Thu Jul 16 21:55:48 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: trunk/libparse-method-signatures-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/MANIFEST?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/MANIFEST (original)
+++ trunk/libparse-method-signatures-perl/MANIFEST Thu Jul 16 21:55:48 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: trunk/libparse-method-signatures-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/META.yml?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/META.yml (original)
+++ trunk/libparse-method-signatures-perl/META.yml Thu Jul 16 21:55:48 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: trunk/libparse-method-signatures-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/Makefile.PL?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/Makefile.PL (original)
+++ trunk/libparse-method-signatures-perl/Makefile.PL Thu Jul 16 21:55:48 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: trunk/libparse-method-signatures-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/debian/changelog?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/debian/changelog (original)
+++ trunk/libparse-method-signatures-perl/debian/changelog Thu Jul 16 21:55:48 2009
@@ -1,3 +1,10 @@
+libparse-method-signatures-perl (1.003009-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ + Fix use of regular expressions in signatures
+
+ -- Jonathan Yu <frequency at cpan.org> Thu, 16 Jul 2009 12:47:20 -0400
+
libparse-method-signatures-perl (1.003008-1) unstable; urgency=low
[ Nathan Handler ]
Modified: trunk/libparse-method-signatures-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/debian/control?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/debian/control (original)
+++ trunk/libparse-method-signatures-perl/debian/control Thu Jul 16 21:55:48 2009
@@ -5,8 +5,8 @@
Build-Depends-Indep: perl (>= 5.6.0-12), libtest-exception-perl,
libtest-differences-perl, libmoosex-types-structured-perl,
libaliased-perl, libppi-perl (>= 1.203), libmoosex-types-perl (>= 0.10),
- libmoosex-traits-perl, libnamespace-clean-perl (>= 0.10), libmoose-perl,
- liblist-moreutils-perl
+ libmoosex-traits-perl (>= 0.06), libnamespace-clean-perl (>= 0.10),
+ libmoose-perl, liblist-moreutils-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ryan Niebur <ryanryan52 at gmail.com>
Standards-Version: 3.8.2
@@ -18,8 +18,8 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libppi-perl (>= 1.203),
libmoosex-types-perl (>= 0.10), libmoosex-types-structured-perl,
- libmoosex-traits-perl, libnamespace-clean-perl (>= 0.10), libmoose-perl,
- liblist-moreutils-perl
+ libmoosex-traits-perl (>= 0.06), libnamespace-clean-perl (>= 0.10),
+ libmoose-perl, liblist-moreutils-perl
Description: Perl module to parse Perl6-like method signatures
Parse::Method::Signatures takes a method signature and extracts information
about it. For users of Perl5 who are unfamiliar with this feature, it is
Modified: trunk/libparse-method-signatures-perl/lib/Parse/Method/Signatures.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/lib/Parse/Method/Signatures.pm?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/lib/Parse/Method/Signatures.pm (original)
+++ trunk/libparse-method-signatures-perl/lib/Parse/Method/Signatures.pm Thu Jul 16 21:55:48 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: trunk/libparse-method-signatures-perl/t/signatures.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-method-signatures-perl/t/signatures.t?rev=40020&op=diff
==============================================================================
--- trunk/libparse-method-signatures-perl/t/signatures.t (original)
+++ trunk/libparse-method-signatures-perl/t/signatures.t Thu Jul 16 21:55:48 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