r35771 - in /trunk/libmodule-util-perl: Changes MANIFEST META.yml README debian/changelog debian/control debian/copyright lib/Module/Util.pm t/01..module.t t/data/NS2/ t/data/NS2/One.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue May 19 03:18:11 UTC 2009
Author: jawnsy-guest
Date: Tue May 19 03:18:06 2009
New Revision: 35771
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35771
Log:
* New upstream release
* Fixed namespace support, which was broken in 1.04 and fixed for 1.05
(See RT#40632)
* Suppress warnings for File::Find on Perl > 5.8
* Fixed Description and made a better long description
* Removed stray line in copyright file
* dch -r
Added:
trunk/libmodule-util-perl/t/data/NS2/
trunk/libmodule-util-perl/t/data/NS2/One.pm
Modified:
trunk/libmodule-util-perl/Changes
trunk/libmodule-util-perl/MANIFEST
trunk/libmodule-util-perl/META.yml
trunk/libmodule-util-perl/README
trunk/libmodule-util-perl/debian/changelog
trunk/libmodule-util-perl/debian/control
trunk/libmodule-util-perl/debian/copyright
trunk/libmodule-util-perl/lib/Module/Util.pm
trunk/libmodule-util-perl/t/01..module.t
Modified: trunk/libmodule-util-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/Changes?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/Changes (original)
+++ trunk/libmodule-util-perl/Changes Tue May 19 03:18:06 2009
@@ -1,4 +1,14 @@
Changes document for Module::Util
+
+1.07 - Tue Apr 7 2009
+ - No changes since 1.06
+
+1.06 - Mon Mar 16 2009
+ - Attempted to get tests working with perl 5.6 (RT 44173)
+ - Suppressed warnings generated by File::Find (RT 40924)
+
+1.05 - Fri Nov 7 2008
+ - Bugfix RT 40632
1.04 - Sat Jun 28 2008
- Removed dependency on File::Find::Rule
Modified: trunk/libmodule-util-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/MANIFEST?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/MANIFEST (original)
+++ trunk/libmodule-util-perl/MANIFEST Tue May 19 03:18:06 2009
@@ -9,4 +9,5 @@
t/01..module.t
t/99..pod.t
t/data/NS/One.pm
+t/data/NS2/One.pm
t/more/01..validate_all_cpan.t
Modified: trunk/libmodule-util-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/META.yml?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/META.yml (original)
+++ trunk/libmodule-util-perl/META.yml Tue May 19 03:18:06 2009
@@ -1,6 +1,6 @@
---
name: Module-Util
-version: 1.04
+version: 1.07
author:
- 'Matt Lawrence E<lt>mattlaw at cpan.orgE<gt>'
abstract: Module name tools and transformations
@@ -14,7 +14,7 @@
provides:
Module::Util:
file: lib/Module/Util.pm
- version: 1.04
+ version: 1.07
generated_by: Module::Build version 0.2808
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
Modified: trunk/libmodule-util-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/README?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/README (original)
+++ trunk/libmodule-util-perl/README Tue May 19 03:18:06 2009
@@ -164,6 +164,9 @@
AUTHOR
Matt Lawrence <mattlaw at cpan.org>
+THANKS
+ Alexander Kühne and Adrian Lai for submitting patches.
+
COPYRIGHT
Copyright 2005 Matt Lawrence, All Rights Reserved.
Modified: trunk/libmodule-util-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/debian/changelog?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/debian/changelog (original)
+++ trunk/libmodule-util-perl/debian/changelog Tue May 19 03:18:06 2009
@@ -1,3 +1,14 @@
+libmodule-util-perl (1.07-1) unstable; urgency=low
+
+ * New upstream release
+ * Fixed namespace support, which was broken in 1.04 and fixed for 1.05
+ (See RT#40632)
+ * Suppress warnings for File::Find on Perl > 5.8
+ * Fixed Description and made a better long description
+ * Removed stray line in copyright file
+
+ -- Jonathan Yu <frequency at cpan.org> Mon, 18 May 2009 23:09:46 -0400
+
libmodule-util-perl (1.04-1) unstable; urgency=low
* Initial Release. Closes: #509442
Modified: trunk/libmodule-util-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/debian/control?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/debian/control (original)
+++ trunk/libmodule-util-perl/debian/control Tue May 19 03:18:06 2009
@@ -1,11 +1,12 @@
Source: libmodule-util-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7), libmodule-build-perl
-Build-Depends-Indep: perl (>= 5.5.3)
+Build-Depends: debhelper (>= 7), perl-modules (>= 5.10) | libmodule-build-perl
+Build-Depends-Indep: perl (>= 5.8.0)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jeremiah C. Foster <jeremiah at jeremiahfoster.com>
-Standards-Version: 3.8.0
+Uploaders: Jeremiah C. Foster <jeremiah at jeremiahfoster.com>,
+ Jonathan Yu <frequency at cpan.org>
+Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/Module-Util/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmodule-util-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmodule-util-perl/
@@ -13,9 +14,12 @@
Package: libmodule-util-perl
Architecture: any
Depends: perl (>= 5.5.3), ${shlibs:Depends}, ${misc:Depends}
-Description: Module name tools and transformations
- This module provides a few useful functions for manipulating module names. Its
- main aim is to centralise some of the functions commonly used by modules that
+Description: Perl module to manipulate Perl module names
+ Module::Util provides useful functions to manipulate module names. Its main
+ aim is to centralise some of the functions commonly used by modules that
manipulate other modules in some way, like converting module names to relative
paths.
-
+ .
+ It also provides some general utility functions for working with modules, such
+ as determining whether a string "looks like" a module name, or testing if a
+ module is loaded (using %INC magic).
Modified: trunk/libmodule-util-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/debian/copyright?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/debian/copyright (original)
+++ trunk/libmodule-util-perl/debian/copyright Tue May 19 03:18:06 2009
@@ -26,4 +26,3 @@
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'
-The upstream author is:
Modified: trunk/libmodule-util-perl/lib/Module/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/lib/Module/Util.pm?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/lib/Module/Util.pm (original)
+++ trunk/libmodule-util-perl/lib/Module/Util.pm Tue May 19 03:18:06 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '1.04';
+our $VERSION = '1.07';
=head1 NAME
@@ -35,6 +35,7 @@
use Exporter;
use File::Spec::Functions qw( catfile rel2abs abs2rel splitpath splitdir );
+use File::Find;
=head1 EXPORTS
@@ -194,7 +195,7 @@
for my $root (@inc) {
my $ns_root = rel2abs($ns_path, $root);
- for my $path (_find_modules($root)) {
+ for my $path (_find_modules($ns_root)) {
my $rel_path = abs2rel($path, rel2abs($root));
push @out, fs_path_to_module($rel_path);
}
@@ -207,7 +208,8 @@
sub _find_modules {
my @roots = @_;
- require File::Find;
+ # versions of File::Find from earlier perls don't have this feature
+ BEGIN { unimport warnings qw( File::Find ) if $] >= 5.008 }
my @out;
File::Find::find({
@@ -392,6 +394,10 @@
Matt Lawrence E<lt>mattlaw at cpan.orgE<gt>
+=head1 THANKS
+
+Alexander Kühne and Adrian Lai for submitting patches.
+
=head1 COPYRIGHT
Copyright 2005 Matt Lawrence, All Rights Reserved.
Modified: trunk/libmodule-util-perl/t/01..module.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/t/01..module.t?rev=35771&op=diff
==============================================================================
--- trunk/libmodule-util-perl/t/01..module.t (original)
+++ trunk/libmodule-util-perl/t/01..module.t Tue May 19 03:18:06 2009
@@ -2,7 +2,7 @@
use warnings;
use File::Spec::Functions qw( catfile catdir );
-use Test::More tests => 42;
+use Test::More tests => 43;
our $module;
BEGIN {
@@ -62,7 +62,7 @@
is_deeply(\@in_ns, ['NS::One'], 'find_in_namespace');
@in_ns = find_in_namespace('', $dir);
- is_deeply(\@in_ns, ['NS::One'], 'find_in_namespace');
+ is_deeply([ sort @in_ns ], ['NS2::One', 'NS::One'], 'find_in_namespace');
for my $invalid (@invalid) {
ok(!find_in_namespace($invalid), "'$invalid' is not a valid namespace");
@@ -79,6 +79,18 @@
$path = find_installed($module) || '';
ok(!path_to_module($path), "path_to_module($path) fails");
+SKIP: {
+ skip "No warnings suppression on perl < 5.8", 1 unless $] >= 5.008;
+
+ my @warnings;
+ local $SIG{__WARN__} = sub { push @warnings, @_ };
+
+ find_in_namespace('', catdir(qw( fake path )));
+ ok !@warnings, 'no warnings generated when searching in missing path'
+ or diag join("\n", @warnings);
+}
+
+
__END__
vim: ft=perl ts=8 sts=4 sw=4 sr et
Added: trunk/libmodule-util-perl/t/data/NS2/One.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-util-perl/t/data/NS2/One.pm?rev=35771&op=file
==============================================================================
--- trunk/libmodule-util-perl/t/data/NS2/One.pm (added)
+++ trunk/libmodule-util-perl/t/data/NS2/One.pm Tue May 19 03:18:06 2009
@@ -1,0 +1,8 @@
+package NS2::One;
+
+our $VERSION = 1;
+
+# Dummy Module for namespace test
+
+1;
+
More information about the Pkg-perl-cvs-commits
mailing list