r63749 - in /trunk/libpackage-deprecationmanager-perl: Changes INSTALL META.json META.yml Makefile.PL README SIGNATURE debian/changelog debian/control debian/copyright dist.ini lib/Package/DeprecationManager.pm t/basic.t t/release-eol.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Fri Oct 15 10:52:02 UTC 2010
Author: ansgar
Date: Fri Oct 15 10:51:42 2010
New Revision: 63749
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63749
Log:
* New upstream release.
* Add build-dep on libtest-requires-perl, liblist-moreutils-perl.
* debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
systems"; refer to /usr/share/common-licenses/GPL-1.
* Bump Standards-Version to 3.9.1.
* Update my email address.
Modified:
trunk/libpackage-deprecationmanager-perl/Changes
trunk/libpackage-deprecationmanager-perl/INSTALL
trunk/libpackage-deprecationmanager-perl/META.json
trunk/libpackage-deprecationmanager-perl/META.yml
trunk/libpackage-deprecationmanager-perl/Makefile.PL
trunk/libpackage-deprecationmanager-perl/README
trunk/libpackage-deprecationmanager-perl/SIGNATURE
trunk/libpackage-deprecationmanager-perl/debian/changelog
trunk/libpackage-deprecationmanager-perl/debian/control
trunk/libpackage-deprecationmanager-perl/debian/copyright
trunk/libpackage-deprecationmanager-perl/dist.ini
trunk/libpackage-deprecationmanager-perl/lib/Package/DeprecationManager.pm
trunk/libpackage-deprecationmanager-perl/t/basic.t
trunk/libpackage-deprecationmanager-perl/t/release-eol.t
Modified: trunk/libpackage-deprecationmanager-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/Changes?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/Changes (original)
+++ trunk/libpackage-deprecationmanager-perl/Changes Fri Oct 15 10:51:42 2010
@@ -1,3 +1,17 @@
+0.06 2010-10-14
+
+- The -ignore parameter now accepts regular expressions as well as package
+ names.
+
+
+0.05 2010-10-14
+
+- Fixed what looked like a bug in -ignore handling, although I couldn't seem
+ to write a test that triggered it.
+
+- Removed hard dep on Test::Warn for the benefit of Moose.
+
+
0.04 2010-07-14
- A single feature will now warn more than once if each warning consists of a
Modified: trunk/libpackage-deprecationmanager-perl/INSTALL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/INSTALL?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/INSTALL (original)
+++ trunk/libpackage-deprecationmanager-perl/INSTALL Fri Oct 15 10:51:42 2010
@@ -38,7 +38,7 @@
## Documentation
-Package-DeprecationManager documentation is available as in POD.
+Package-DeprecationManager documentation is available as POD.
You can run perldoc from a shell to read the documentation:
% perldoc Package::DeprecationManager
Modified: trunk/libpackage-deprecationmanager-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/META.json?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/META.json (original)
+++ trunk/libpackage-deprecationmanager-perl/META.json Fri Oct 15 10:51:42 2010
@@ -4,7 +4,7 @@
"Dave Rolsky <autarch at urth.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670",
+ "generated_by" : "Dist::Zilla version 4.102341, CPAN::Meta::Converter version 2.101670",
"license" : [
"artistic_2"
],
@@ -29,8 +29,7 @@
"test" : {
"requires" : {
"Test::Exception" : 0,
- "Test::More" : "0.88",
- "Test::Warn" : 0
+ "Test::More" : "0.88"
}
}
},
@@ -46,6 +45,6 @@
"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/Package-DeprecationManager.git;a=summary"
}
},
- "version" : "0.04"
+ "version" : "0.06"
}
Modified: trunk/libpackage-deprecationmanager-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/META.yml?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/META.yml (original)
+++ trunk/libpackage-deprecationmanager-perl/META.yml Fri Oct 15 10:51:42 2010
@@ -5,11 +5,10 @@
build_requires:
Test::Exception: 0
Test::More: 0.88
- Test::Warn: 0
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.102341, CPAN::Meta::Converter version 2.101670'
license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,4 +21,4 @@
resources:
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Package-DeprecationManager
repository: git://git.moose.perl.org/Package-DeprecationManager.git
-version: 0.04
+version: 0.06
Modified: trunk/libpackage-deprecationmanager-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/Makefile.PL?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/Makefile.PL (original)
+++ trunk/libpackage-deprecationmanager-perl/Makefile.PL Fri Oct 15 10:51:42 2010
@@ -13,8 +13,7 @@
'AUTHOR' => 'Dave Rolsky <autarch at urth.org>',
'BUILD_REQUIRES' => {
'Test::Exception' => '0',
- 'Test::More' => '0.88',
- 'Test::Warn' => '0'
+ 'Test::More' => '0.88'
},
'CONFIGURE_REQUIRES' => {
'ExtUtils::MakeMaker' => '6.31'
@@ -28,7 +27,7 @@
'Params::Util' => '0',
'Sub::Install' => '0'
},
- 'VERSION' => '0.04',
+ 'VERSION' => '0.06',
'test' => {
'TESTS' => 't/*.t'
}
Modified: trunk/libpackage-deprecationmanager-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/README?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/README (original)
+++ trunk/libpackage-deprecationmanager-perl/README Fri Oct 15 10:51:42 2010
@@ -1,7 +1,7 @@
This archive contains the distribution Package-DeprecationManager,
-version 0.04:
+version 0.06:
Manage deprecation warnings for your distribution
Modified: trunk/libpackage-deprecationmanager-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/SIGNATURE?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/SIGNATURE (original)
+++ trunk/libpackage-deprecationmanager-perl/SIGNATURE Fri Oct 15 10:51:42 2010
@@ -14,18 +14,18 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 6642925d2daf0fb21877330229dc13f2a86470aa Changes
-SHA1 28f8a1c551c9dd430041a21d1054144c77aabb4b INSTALL
+SHA1 92856b6360165fb9b2644a62fcbfa9d774d812cd Changes
+SHA1 e605c1369fca70aef0107226cbf4d5250a02f18c INSTALL
SHA1 23c628b4a8a36738405ccdacaeb912d2e727b4c0 LICENSE
SHA1 8290538f0bb62f1c05437cbfe29284f47e4fda41 MANIFEST
-SHA1 129fbf6edb56b2f1ad95c4f6360ccc65a17e152f META.json
-SHA1 30fc3eac3602373311bbf80276a9780ba77d9c86 META.yml
-SHA1 1bd0b7c62f37e3558db55d7d685ef199742c20e0 Makefile.PL
-SHA1 218967da13971956286fc575249e82ae1a910ec6 README
-SHA1 73f213e605e407b0a78905dc9a33ff4dcb669563 dist.ini
-SHA1 7f96800b03152ef2ffe3d8b3d39feb28617ec030 lib/Package/DeprecationManager.pm
-SHA1 3ac28f36eab33352fd9f6e98ab587575dd9af65a t/basic.t
-SHA1 24b525e3c18f37f8022a01ec30de757cefb679ff t/release-eol.t
+SHA1 538d32ff9bbc45d61b14c21bf1c1463d0912dbc7 META.json
+SHA1 90a3b0d967bab745d34fc70f56a5a14b8a371281 META.yml
+SHA1 23ed780c17145ab83e8b8ebb11d5cfe3ea068804 Makefile.PL
+SHA1 d4d7c07eaa72ca3f56d5c082efc39e277cc21990 README
+SHA1 3f06fa8928b09dff6f5af69eae807422be798560 dist.ini
+SHA1 ca9da43e3eb587386d2affd6a5925814a1ab6e9b lib/Package/DeprecationManager.pm
+SHA1 fd4115706b6342bb8e4011cec3bc5bb43802ccf2 t/basic.t
+SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 9433c240fe590bc404ab68ff63984df763e347ed t/release-pod-coverage.t
@@ -33,7 +33,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAkw+BH4ACgkQIgMCsV8qvRJA5gCffn7p7UpQs2974EEOxCA2lD2z
-CF0An2c2Pyx19yTYcUgsib4B4COrJSli
-=mNys
+iEYEARECAAYFAky3XsYACgkQIgMCsV8qvRK8fACgic0EUnW9nSxgPZyhijswTIpv
+faUAoIJFe6HvpltlFGHRSjg5IvJGFRMU
+=t+Q5
-----END PGP SIGNATURE-----
Modified: trunk/libpackage-deprecationmanager-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/debian/changelog?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/debian/changelog (original)
+++ trunk/libpackage-deprecationmanager-perl/debian/changelog Fri Oct 15 10:51:42 2010
@@ -1,3 +1,14 @@
+libpackage-deprecationmanager-perl (0.06-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add build-dep on libtest-requires-perl, liblist-moreutils-perl.
+ * debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
+ systems"; refer to /usr/share/common-licenses/GPL-1.
+ * Bump Standards-Version to 3.9.1.
+ * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Fri, 15 Oct 2010 12:49:18 +0200
+
libpackage-deprecationmanager-perl (0.04-1) unstable; urgency=low
* Initial Release. (Closes: #590324)
Modified: trunk/libpackage-deprecationmanager-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/debian/control?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/debian/control (original)
+++ trunk/libpackage-deprecationmanager-perl/debian/control Fri Oct 15 10:51:42 2010
@@ -2,20 +2,20 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: libparams-util-perl, libsub-install-perl,
- libtest-exception-perl, libtest-warn-perl, perl,
- perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
+Build-Depends-Indep: liblist-moreutils-perl, libparams-util-perl,
+ libsub-install-perl, libtest-exception-perl, libtest-requires-perl,
+ libtest-warn-perl, perl, perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.9.0
+Uploaders: Ansgar Burchardt <ansgar at debian.org>
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Package-DeprecationManager/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpackage-deprecationmanager-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/
Package: libpackage-deprecationmanager-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libparams-util-perl,
- libsub-install-perl, perl
+Depends: ${misc:Depends}, ${perl:Depends}, liblist-moreutils-perl,
+ libparams-util-perl, libsub-install-perl, perl
Description: Manage deprecation warnings for your distribution
Package::DeprecationManager allows you to manage a set of deprecations for
one or more modules.
Modified: trunk/libpackage-deprecationmanager-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/debian/copyright?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/debian/copyright (original)
+++ trunk/libpackage-deprecationmanager-perl/debian/copyright Fri Oct 15 10:51:42 2010
@@ -7,15 +7,15 @@
License: Artistic-2.0
Files: debian/*
-Copyright: 2010, Ansgar Burchardt <ansgar at 43-1.org>
+Copyright: 2010, Ansgar Burchardt <ansgar at debian.org>
License: Artistic or Artistic-2.0 or GPL-1+
License: Artistic
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'.
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'.
License: Artistic-2.0
Copyright (c) 2000-2006, The Perl Foundation.
@@ -214,5 +214,5 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'.
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libpackage-deprecationmanager-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/dist.ini?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/dist.ini (original)
+++ trunk/libpackage-deprecationmanager-perl/dist.ini Fri Oct 15 10:51:42 2010
@@ -2,7 +2,7 @@
author = Dave Rolsky <autarch at urth.org>
copyright_year = 2010
-version = 0.04
+version = 0.06
[@Basic]
@@ -36,6 +36,5 @@
[Prereqs / TestRequires]
Test::Exception = 0
Test::More = 0.88
-Test::Warn = 0
[@Git]
Modified: trunk/libpackage-deprecationmanager-perl/lib/Package/DeprecationManager.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/lib/Package/DeprecationManager.pm?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/lib/Package/DeprecationManager.pm (original)
+++ trunk/libpackage-deprecationmanager-perl/lib/Package/DeprecationManager.pm Fri Oct 15 10:51:42 2010
@@ -1,12 +1,13 @@
package Package::DeprecationManager;
BEGIN {
- $Package::DeprecationManager::VERSION = '0.04';
+ $Package::DeprecationManager::VERSION = '0.06';
}
use strict;
use warnings;
use Carp qw( croak );
+use List::MoreUtils qw( any );
use Params::Util qw( _HASH );
use Sub::Install;
@@ -65,7 +66,8 @@
my $deprecated_at = shift;
my $ignore = shift;
- my %ignore = map { $_ => 1 } @{ $ignore || [] };
+ my %ignore = map { $_ => 1 } grep { !ref } @{ $ignore || [] };
+ my @ignore_res = grep {ref} @{ $ignore || [] };
my %warned;
@@ -74,13 +76,13 @@
my ( $package, undef, undef, $sub ) = caller(1);
- my $skipped = 0;
+ my $skipped = 1;
+
if ( keys %ignore ) {
- while ( defined $package && $ignore{$package} ) {
- # We want to start two levels back, since we already looked
- # one level back and found an internal package.
- $package = caller($skipped++ + 2);
- $skipped++;
+ while ( defined $package
+ && ( $ignore{$package} || any { $package =~ $_ } @ignore_res )
+ ) {
+ $package = caller( $skipped++ );
}
}
@@ -113,7 +115,9 @@
$warned{$package}{ $args{feature} }{$msg} = 1;
- local $Carp::CarpLevel = $Carp::CarpLevel + 1 + $skipped;
+ # We skip at least two levels. One for this anon sub, and one for the
+ # sub calling it.
+ local $Carp::CarpLevel = $Carp::CarpLevel + $skipped;
Carp::cluck($msg);
};
@@ -133,7 +137,7 @@
=head1 VERSION
-version 0.04
+version 0.06
=head1 SYNOPSIS
@@ -190,13 +194,14 @@
you don't want to deprecate an entire subroutine, just a certain usage.
You can also provide an optional array reference in the C<-ignore>
-parameter. This is a list of package names to ignore when looking at the stack
-to figure out what code used the deprecated feature. This should be packages
-in your distribution that can appear on the call stack when a deprecated
-feature is used.
+parameter.
+
+The values to be ignored can be package names or regular expressions (made
+with C<qr//>). Use this to ignore packages in your distribution that can
+appear on the call stack when a deprecated feature is used.
As part of the import process, C<Package::DeprecationManager> will export two
-subroutines into its caller. It proves an C<import()> sub for the caller and a
+subroutines into its caller. It provides an C<import()> sub for the caller and a
C<deprecated()> sub.
The C<import()> sub allows callers of I<your> class to specify an C<-api_version>
@@ -254,7 +259,7 @@
=head1 AUTHOR
- Dave Rolsky <autarch at urth.org>
+Dave Rolsky <autarch at urth.org>
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libpackage-deprecationmanager-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/t/basic.t?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/t/basic.t (original)
+++ trunk/libpackage-deprecationmanager-perl/t/basic.t Fri Oct 15 10:51:42 2010
@@ -3,7 +3,10 @@
use Test::Exception;
use Test::More;
-use Test::Warn;
+
+use Test::Requires {
+ 'Test::Warn' => '0.21',
+};
{
throws_ok {
@@ -144,7 +147,7 @@
use Package::DeprecationManager -deprecations => {
'foo' => '1.00',
},
- -ignore => [ 'My::Foo', 'My::Bar' ];
+ -ignore => [ 'My::Package1', 'My::Package2' ];
sub foo {
deprecated('foo is deprecated');
@@ -152,23 +155,61 @@
}
{
- package My::Foo;
+ package Dep2;
+
+ use Package::DeprecationManager -deprecations => {
+ 'bar' => '1.00',
+ },
+ -ignore => [ 'My::Package2' ];
+
+ sub bar {
+ deprecated('bar is deprecated');
+ }
+}
+
+{
+ package Dep3;
+
+ use Package::DeprecationManager -deprecations => {
+ 'baz' => '1.00',
+ },
+ -ignore => [ qr/My::Package[12]/ ];
+
+ sub baz {
+ deprecated('baz is deprecated');
+ }
+}
+
+{
+ package My::Package1;
sub foo { Dep::foo() }
-}
-
-{
- package My::Bar;
-
- sub foo { My::Foo::foo() }
+ sub bar { Dep2::bar() }
+ sub baz { Dep3::baz() }
+}
+
+{
+ package My::Package2;
+
+ sub foo { My::Package1::foo() }
+ sub bar { My::Package1::bar() }
+ sub baz { My::Package1::baz() }
}
{
package My::Baz;
- ::warning_like{ My::Bar::foo() }
+ ::warning_like{ My::Package1::bar() }
+ qr/^bar is deprecated at t.basic\.t line \d+/,
+ 'deprecation warning for call to My::Package1::bar()';
+
+ ::warning_like{ My::Package2::foo() }
qr/^foo is deprecated at t.basic\.t line \d+/,
- 'deprecation warning for call to My::Bar::foo()';
+ 'deprecation warning for call to My::Package2::foo()';
+
+ ::warning_like{ My::Package1::baz() }
+ qr/^baz is deprecated at t.basic\.t line \d+/,
+ 'deprecation warning for call to My::Package2::foo()';
}
{
@@ -176,9 +217,9 @@
Dep->import( -api_version => '0.8' );
- ::warning_is{ My::Bar::foo() }
- q{},
- 'no wanrning when calling My::Bar::foo()';
+ ::warning_is{ My::Package2::foo() }
+ q{},
+ 'no warning when calling My::Package2::foo()';
}
done_testing();
Modified: trunk/libpackage-deprecationmanager-perl/t/release-eol.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-deprecationmanager-perl/t/release-eol.t?rev=63749&op=diff
==============================================================================
--- trunk/libpackage-deprecationmanager-perl/t/release-eol.t (original)
+++ trunk/libpackage-deprecationmanager-perl/t/release-eol.t Fri Oct 15 10:51:42 2010
@@ -13,4 +13,4 @@
eval 'use Test::EOL';
plan skip_all => 'Test::EOL required' if $@;
-all_perl_files_ok();
+all_perl_files_ok({ trailing_whitespace => 1 });
More information about the Pkg-perl-cvs-commits
mailing list