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