r77268 - in /trunk/libdevel-declare-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/Devel/ lib/Devel/Declare/Context/ lib/Devel/Declare/MethodInstaller/ t/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Fri Jul 8 21:54:36 UTC 2011
Author: ansgar
Date: Fri Jul 8 21:54:26 2011
New Revision: 77268
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77268
Log:
* New upstream release.
* Add build-dep on libtest-warn-perl.
Added:
trunk/libdevel-declare-perl/t/method-installer-redefine.t
- copied unchanged from r77267, branches/upstream/libdevel-declare-perl/current/t/method-installer-redefine.t
Modified:
trunk/libdevel-declare-perl/Changes
trunk/libdevel-declare-perl/MANIFEST
trunk/libdevel-declare-perl/META.yml
trunk/libdevel-declare-perl/Makefile.PL
trunk/libdevel-declare-perl/debian/changelog
trunk/libdevel-declare-perl/debian/control
trunk/libdevel-declare-perl/inc/Module/Install.pm
trunk/libdevel-declare-perl/inc/Module/Install/Base.pm
trunk/libdevel-declare-perl/inc/Module/Install/MakeMaker.pm
trunk/libdevel-declare-perl/inc/Module/Install/Makefile.pm
trunk/libdevel-declare-perl/inc/Module/Install/Metadata.pm
trunk/libdevel-declare-perl/lib/Devel/Declare.pm
trunk/libdevel-declare-perl/lib/Devel/Declare/Context/Simple.pm
trunk/libdevel-declare-perl/lib/Devel/Declare/MethodInstaller/Simple.pm
Modified: trunk/libdevel-declare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Changes?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Changes (original)
+++ trunk/libdevel-declare-perl/Changes Fri Jul 8 21:54:26 2011
@@ -1,4 +1,8 @@
Changes for Devel-Declare
+
+0.006005 - 06 Jul 2011
+ - Add a flag for controlling 'redefined' warnings when installing subs into
+ namespaces (clkao).
0.006004 - 02 May 2011
- Bail out earlier when being called while not lexing (Zefram).
Modified: trunk/libdevel-declare-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/MANIFEST?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/MANIFEST (original)
+++ trunk/libdevel-declare-perl/MANIFEST Fri Jul 8 21:54:26 2011
@@ -29,6 +29,7 @@
t/lines.t
t/load_module.t
t/methinstaller-simple.t
+t/method-installer-redefine.t
t/method-installer-runtime.t
t/method-no-semi.t
t/method.t
Modified: trunk/libdevel-declare-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/META.yml?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/META.yml (original)
+++ trunk/libdevel-declare-perl/META.yml Fri Jul 8 21:54:26 2011
@@ -6,12 +6,13 @@
B::Hooks::OP::Check: 0.18
ExtUtils::MakeMaker: 6.42
Test::More: 0.88
+ Test::Warn: 0
configure_requires:
B::Hooks::OP::Check: 0.18
ExtUtils::Depends: 0.302
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -30,4 +31,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/rafl/devel-declare.git
-version: 0.006004
+version: 0.006005
Modified: trunk/libdevel-declare-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Makefile.PL?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Makefile.PL (original)
+++ trunk/libdevel-declare-perl/Makefile.PL Fri Jul 8 21:54:26 2011
@@ -21,6 +21,7 @@
configure_requires 'B::Hooks::OP::Check' => '0.18';
test_requires 'Test::More' => '0.88';
+test_requires 'Test::Warn';
repository 'git://github.com/rafl/devel-declare.git';
Modified: trunk/libdevel-declare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/debian/changelog?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/debian/changelog (original)
+++ trunk/libdevel-declare-perl/debian/changelog Fri Jul 8 21:54:26 2011
@@ -1,3 +1,10 @@
+libdevel-declare-perl (0.006005-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add build-dep on libtest-warn-perl.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Fri, 08 Jul 2011 23:50:54 +0200
+
libdevel-declare-perl (0.006004-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libdevel-declare-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/debian/control?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/debian/control (original)
+++ trunk/libdevel-declare-perl/debian/control Fri Jul 8 21:54:26 2011
@@ -6,6 +6,7 @@
libb-hooks-op-check-perl,
libextutils-depends-perl,
libsub-name-perl,
+ libtest-warn-perl,
perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>,
Modified: trunk/libdevel-declare-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/inc/Module/Install.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/inc/Module/Install.pm (original)
+++ trunk/libdevel-declare-perl/inc/Module/Install.pm Fri Jul 8 21:54:26 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libdevel-declare-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/inc/Module/Install/Base.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libdevel-declare-perl/inc/Module/Install/Base.pm Fri Jul 8 21:54:26 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libdevel-declare-perl/inc/Module/Install/MakeMaker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/inc/Module/Install/MakeMaker.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/inc/Module/Install/MakeMaker.pm (original)
+++ trunk/libdevel-declare-perl/inc/Module/Install/MakeMaker.pm Fri Jul 8 21:54:26 2011
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libdevel-declare-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/inc/Module/Install/Makefile.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libdevel-declare-perl/inc/Module/Install/Makefile.pm Fri Jul 8 21:54:26 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libdevel-declare-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/inc/Module/Install/Metadata.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libdevel-declare-perl/inc/Module/Install/Metadata.pm Fri Jul 8 21:54:26 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libdevel-declare-perl/lib/Devel/Declare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/lib/Devel/Declare.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/lib/Devel/Declare.pm (original)
+++ trunk/libdevel-declare-perl/lib/Devel/Declare.pm Fri Jul 8 21:54:26 2011
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.006004';
+our $VERSION = '0.006005';
use constant DECLARE_NAME => 1;
use constant DECLARE_PROTO => 2;
Modified: trunk/libdevel-declare-perl/lib/Devel/Declare/Context/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/lib/Devel/Declare/Context/Simple.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/lib/Devel/Declare/Context/Simple.pm (original)
+++ trunk/libdevel-declare-perl/lib/Devel/Declare/Context/Simple.pm Fri Jul 8 21:54:26 2011
@@ -13,7 +13,7 @@
sub init {
my $self = shift;
- @{$self}{ qw(Declarator Offset) } = @_;
+ @{$self}{ qw(Declarator Offset WarningOnRedefined) } = @_;
return $self;
}
@@ -30,6 +30,11 @@
sub declarator {
my $self = shift;
return $self->{Declarator}
+}
+
+sub warning_on_redefine {
+ my $self = shift;
+ return $self->{WarningOnRedefined}
}
sub skip_declarator {
Modified: trunk/libdevel-declare-perl/lib/Devel/Declare/MethodInstaller/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/lib/Devel/Declare/MethodInstaller/Simple.pm?rev=77268&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/lib/Devel/Declare/MethodInstaller/Simple.pm (original)
+++ trunk/libdevel-declare-perl/lib/Devel/Declare/MethodInstaller/Simple.pm Fri Jul 8 21:54:26 2011
@@ -7,7 +7,7 @@
use strict;
use warnings;
-our $VERSION = '0.006004';
+our $VERSION = '0.006005';
sub install_methodhandler {
my $class = shift;
@@ -17,10 +17,11 @@
*{$args{into}.'::'.$args{name}} = sub (&) {};
}
+ my $warnings = warnings::enabled("redefine");
my $ctx = $class->new(%args);
Devel::Declare->setup_for(
$args{into},
- { $args{name} => { const => sub { $ctx->parser(@_) } } }
+ { $args{name} => { const => sub { $ctx->parser(@_, $warnings) } } }
);
}
@@ -35,7 +36,11 @@
my $code = shift;
# So caller() gets the subroutine name
no strict 'refs';
- *{$name} = subname $name => $code;
+ my $installer = $self->warning_on_redefine
+ ? sub { *{$name} = subname $name => $code; }
+ : sub { no warnings 'redefine';
+ *{$name} = subname $name => $code; };
+ $installer->();
return;
};
} else {
More information about the Pkg-perl-cvs-commits
mailing list