r35768 - in /branches/upstream/libmodule-util-perl/current: Changes MANIFEST META.yml README 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:10:11 UTC 2009 

Author: jawnsy-guest
Date: Tue May 19 03:10:04 2009
New Revision: 35768

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35768
Log:
[svn-upgrade] Integrating new upstream version, libmodule-util-perl (1.07)

Added:
    branches/upstream/libmodule-util-perl/current/t/data/NS2/
    branches/upstream/libmodule-util-perl/current/t/data/NS2/One.pm
Modified:
    branches/upstream/libmodule-util-perl/current/Changes
    branches/upstream/libmodule-util-perl/current/MANIFEST
    branches/upstream/libmodule-util-perl/current/META.yml
    branches/upstream/libmodule-util-perl/current/README
    branches/upstream/libmodule-util-perl/current/lib/Module/Util.pm
    branches/upstream/libmodule-util-perl/current/t/01..module.t

Modified: branches/upstream/libmodule-util-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/Changes?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/Changes (original)
+++ branches/upstream/libmodule-util-perl/current/Changes Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/MANIFEST?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/MANIFEST (original)
+++ branches/upstream/libmodule-util-perl/current/MANIFEST Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/META.yml?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/META.yml (original)
+++ branches/upstream/libmodule-util-perl/current/META.yml Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/README?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/README (original)
+++ branches/upstream/libmodule-util-perl/current/README Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/lib/Module/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/lib/Module/Util.pm?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/lib/Module/Util.pm (original)
+++ branches/upstream/libmodule-util-perl/current/lib/Module/Util.pm Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/t/01..module.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/t/01..module.t?rev=35768&op=diff
==============================================================================
--- branches/upstream/libmodule-util-perl/current/t/01..module.t (original)
+++ branches/upstream/libmodule-util-perl/current/t/01..module.t Tue May 19 03:10:04 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: branches/upstream/libmodule-util-perl/current/t/data/NS2/One.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-util-perl/current/t/data/NS2/One.pm?rev=35768&op=file
==============================================================================
--- branches/upstream/libmodule-util-perl/current/t/data/NS2/One.pm (added)
+++ branches/upstream/libmodule-util-perl/current/t/data/NS2/One.pm Tue May 19 03:10:04 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