Hello community,
here is the log from the commit of package perl-Module-Pluggable
checked in at Wed Mar 7 23:16:03 CET 2007.
--------
--- perl-Module-Pluggable/perl-Module-Pluggable.changes 2006-10-19 17:02:15.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Module-Pluggable/perl-Module-Pluggable.changes 2007-03-07 23:12:31.043463000 +0100
@@ -1,0 +2,11 @@
+Wed Mar 7 15:15:36 CET 2007 - pth@suse.de
+
+- Update to 3.5
+ * Patch from Audrey Tang to prevent clobbering of $@
+ * Make sure we don't fail taint checking when other
+ Module::Pluggable::* modules are installed.
+ * Few more patches from Jos Boumans to get read for CORE
+ * Remove Class::Inspector dependency and inline code
+ * Prepare for assimilation into CORE
+
+-------------------------------------------------------------------
Old:
----
Module-Pluggable-3.1.tar.bz2
New:
----
Module-Pluggable-3.5.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-Pluggable.spec ++++++
--- /var/tmp/diff_new_pack.K14706/_old 2007-03-07 23:15:38.000000000 +0100
+++ /var/tmp/diff_new_pack.K14706/_new 2007-03-07 23:15:38.000000000 +0100
@@ -1,7 +1,7 @@
#
-# spec file for package perl-Module-Pluggable (Version 3.1)
+# spec file for package perl-Module-Pluggable (Version 3.5)
#
-# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
# package are under the same license as the package itself.
#
@@ -13,12 +13,12 @@
Name: perl-Module-Pluggable
BuildRequires: perl-Class-Inspector perl-Module-Build
URL: http://search.cpan.org/~simonw/Module-Pluggable/
-License: Artistic License, GNU General Public License (GPL) - all versions
-Group: Development/Languages/Perl
+License: Artistic License
+Group: Development/Libraries/Perl
Requires: perl-Class-Inspector perl = %{perl_version}
Autoreqprov: on
Summary: Automatically give your module the ability to have plugins
-Version: 3.1
+Version: 3.5
Release: 1
Source: Module-Pluggable-%{version}.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -73,6 +73,14 @@
%doc %{_mandir}/man3/Module::Pluggable.3pm.gz
%doc %{_mandir}/man3/Module::Pluggable::Object.3pm.gz
-%changelog -n perl-Module-Pluggable
+%changelog
+* Wed Mar 07 2007 - pth@suse.de
+- Update to 3.5
+ * Patch from Audrey Tang to prevent clobbering of $@
+ * Make sure we don't fail taint checking when other
+ Module::Pluggable::* modules are installed.
+ * Few more patches from Jos Boumans to get read for CORE
+ * Remove Class::Inspector dependency and inline code
+ * Prepare for assimilation into CORE
* Thu Oct 19 2006 - pth@suse.de
- Initial package
++++++ Module-Pluggable-3.1.tar.bz2 -> Module-Pluggable-3.5.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/Build.PL new/Module-Pluggable-3.5/Build.PL
--- old/Module-Pluggable-3.1/Build.PL 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/Build.PL 2007-01-30 00:13:00.000000000 +0100
@@ -5,7 +5,6 @@
->new( module_name => "Module::Pluggable",
license => 'perl',
requires => {
- 'Class::Inspector' => 0,
'Test::More' => '0.62',
'File::Basename' => 0,
'File::Spec' => '3.00',
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/Changes new/Module-Pluggable-3.5/Changes
--- old/Module-Pluggable-3.1/Changes 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/Changes 2007-01-30 00:13:00.000000000 +0100
@@ -1,3 +1,17 @@
+2007-01-29 - 3.5
+ Patch from Audrey Tang to prevent clobbering of $@
+
+2006-11-27 - 3.4
+ Make sure we don't fail taint checking when other
+ Module::Pluggable::* modules are installed.
+
+2006-11-24 - 3.3
+ Few more patches from Jos Boumans to get read for CORE
+
+2006-11-15 - 3.2
+ Remove Class::Inspector dependency and inline code
+ Prepare for assimilation into CORE
+
2006-07-11 - 3.1
Force Test::More version to be latest which stops it trampling on $_
Use Class::Inspector tests to check to see Package is loaded thus
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/lib/Devel/InnerPackage.pm new/Module-Pluggable-3.5/lib/Devel/InnerPackage.pm
--- old/Module-Pluggable-3.1/lib/Devel/InnerPackage.pm 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/lib/Devel/InnerPackage.pm 2007-01-30 00:13:00.000000000 +0100
@@ -4,9 +4,6 @@
use base qw(Exporter);
use vars qw($VERSION @EXPORT_OK);
-use Class::Inspector;
-
-
$VERSION = '0.3';
@EXPORT_OK = qw(list_packages);
@@ -74,12 +71,40 @@
$cand =~ s!::$!!;
my @children = list_packages($pack.$cand);
- push @packs, "$pack$cand" unless $cand =~ /^::/ || !Class::Inspector->loaded($pack.$cand); # or @children;
+ push @packs, "$pack$cand" unless $cand =~ /^::/ ||
+ !__PACKAGE__->_loaded($pack.$cand); # or @children;
push @packs, @children;
}
return grep {$_ !~ /::::ISA::CACHE/} @packs;
}
+### XXX this is an inlining of the Class-Inspector->loaded()
+### method, but inlined to remove the dependency.
+sub _loaded {
+ my ($class, $name) = @_;
+
+ no strict 'refs';
+
+ # Handle by far the two most common cases
+ # This is very fast and handles 99% of cases.
+ return 1 if defined ${"${name}::VERSION"};
+ return 1 if defined @{"${name}::ISA"};
+
+ # Are there any symbol table entries other than other namespaces
+ foreach ( keys %{"${name}::"} ) {
+ next if substr($_, -2, 2) eq '::';
+ return 1 if defined &{"${name}::$_"};
+ }
+
+ # No functions, and it doesn't have a version, and isn't anything.
+ # As an absolute last resort, check for an entry in %INC
+ my $filename = join( '/', split /(?:'|::)/, $name ) . '.pm';
+ return 1 if defined $INC{$filename};
+
+ '';
+}
+
+
=head1 AUTHOR
Simon Wistow
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/lib/Module/Pluggable/Object.pm new/Module-Pluggable-3.5/lib/Module/Pluggable/Object.pm
--- old/Module-Pluggable-3.1/lib/Module/Pluggable/Object.pm 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/lib/Module/Pluggable/Object.pm 2007-01-30 00:13:00.000000000 +0100
@@ -159,7 +159,7 @@
next unless $plugin =~ m!(?:[a-z\d]+)[a-z\d]!i;
- my $err = eval { $self->handle_finding_plugin($plugin) };
+ my $err = $self->handle_finding_plugin($plugin);
carp "Couldn't require $plugin : $err" if $err;
push @plugins, $plugin;
@@ -215,7 +215,7 @@
foreach my $plugin (Devel::InnerPackage::list_packages($path)) {
- my $err = eval { $self->handle_finding_plugin($plugin) };
+ my $err = $self->handle_finding_plugin($plugin);
#next if $err;
#next unless $INC{$plugin};
push @plugins, $plugin;
@@ -228,6 +228,7 @@
sub _require {
my $self = shift;
my $pack = shift;
+ local $@;
eval "CORE::require $pack";
return $@;
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/lib/Module/Pluggable.pm new/Module-Pluggable-3.5/lib/Module/Pluggable.pm
--- old/Module-Pluggable-3.1/lib/Module/Pluggable.pm 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/lib/Module/Pluggable.pm 2007-01-30 00:13:00.000000000 +0100
@@ -9,7 +9,7 @@
# Peter Gibbons: I wouldn't say I've been missing it, Bob!
-$VERSION = '3.1';
+$VERSION = '3.5';
sub import {
my $class = shift;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/Makefile.PL new/Module-Pluggable-3.5/Makefile.PL
--- old/Module-Pluggable-3.1/Makefile.PL 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/Makefile.PL 2007-01-30 00:13:00.000000000 +0100
@@ -5,7 +5,6 @@
'NAME' => 'Module::Pluggable',
'VERSION_FROM' => 'lib/Module/Pluggable.pm',
'PREREQ_PM' => {
- 'Class::Inspector' => '0',
'File::Basename' => '0',
'File::Spec' => '3.00',
'Test::More' => '0.62'
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/MANIFEST new/Module-Pluggable-3.5/MANIFEST
--- old/Module-Pluggable-3.1/MANIFEST 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/MANIFEST 2007-01-30 00:13:00.000000000 +0100
@@ -12,6 +12,7 @@
t/01use.t
t/02alsoworks.t
t/02works.t
+t/02works_taint.t
t/03diffname.t
t/04acmedir.t
t/04acmedir_single.t
@@ -39,22 +40,22 @@
t/17devel_inner_package.t
t/18skipped_package.t
t/19can_ok_clobber.t
-t/lib/No/Middle.pm
+t/20dodgy_files.t
t/acme/Acme/MyTest/Plugin/Foo.pm
t/lib/Acme/MyTest/Plugin/Foo.pm
t/lib/ExtTest/Plugin/Bar.plugin
t/lib/ExtTest/Plugin/Foo.plugin
t/lib/ExtTest/Plugin/Quux/Foo.plugin
-t/lib/MyTest/Extend/Plugin/Bar.pm
-t/lib/MyTest/Plugin/Bar.pm
-t/lib/MyTest/Plugin/Foo.pm
-t/lib/MyTest/Plugin/Quux/Foo.pm
+t/lib/InnerTest/Plugin/Foo.pm
t/lib/MyOtherTest/Plugin/Bar.pm
t/lib/MyOtherTest/Plugin/Foo.pm
t/lib/MyOtherTest/Plugin/Quux.pm
t/lib/MyOtherTest/Plugin/Quux/Foo.pm
-t/lib/InnerTest/Plugin/Foo.pm
-t/plugins/test.plugin
+t/lib/MyTest/Extend/Plugin/Bar.pm
+t/lib/MyTest/Plugin/Bar.pm
+t/lib/MyTest/Plugin/Foo.pm
+t/lib/MyTest/Plugin/Quux/Foo.pm
+t/lib/No/Middle.pm
+t/lib/OddTest/Plugin/-Dodgy.pm
+t/lib/OddTest/Plugin/Foo.pm
t/lib/TA/C/A/I.pm
-
-
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/MANIFEST.SKIP new/Module-Pluggable-3.5/MANIFEST.SKIP
--- old/Module-Pluggable-3.1/MANIFEST.SKIP 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/MANIFEST.SKIP 2007-01-30 00:13:00.000000000 +0100
@@ -1,6 +1,8 @@
-Build
+Build$
_build
blib
-Makefile
+Makefile$
\.tar\.gz$
\.svn
+\.bak$
+^Module-Pluggable
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/META.yml new/Module-Pluggable-3.5/META.yml
--- old/Module-Pluggable-3.1/META.yml 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/META.yml 2007-01-30 00:13:00.000000000 +0100
@@ -1,6 +1,6 @@
---
name: Module-Pluggable
-version: 3.1
+version: 3.5
author:
- 'Simon Wistow '
abstract: automatically give your module the ability to have plugins
@@ -8,7 +8,6 @@
resources:
license: http://dev.perl.org/licenses/
requires:
- Class::Inspector: 0
File::Basename: 0
File::Spec: 3.00
Test::More: 0.62
@@ -18,7 +17,7 @@
version: 0.3
Module::Pluggable:
file: lib/Module/Pluggable.pm
- version: 3.1
+ version: 3.5
Module::Pluggable::Object:
file: lib/Module/Pluggable/Object.pm
generated_by: Module::Build version 0.2801
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/01use.t new/Module-Pluggable-3.5/t/01use.t
--- old/Module-Pluggable-3.1/t/01use.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/01use.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,4 +1,4 @@
-#!perl -wT
+#!perl -w
use strict;
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/02alsoworks.t new/Module-Pluggable-3.5/t/02alsoworks.t
--- old/Module-Pluggable-3.1/t/02alsoworks.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/02alsoworks.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 5;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/02works.t new/Module-Pluggable-3.5/t/02works.t
--- old/Module-Pluggable-3.1/t/02works.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/02works.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 5;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/02works_taint.t new/Module-Pluggable-3.5/t/02works_taint.t
--- old/Module-Pluggable-3.1/t/02works_taint.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Pluggable-3.5/t/02works_taint.t 2007-01-30 00:13:00.000000000 +0100
@@ -0,0 +1,41 @@
+#!perl -wT
+
+# NOTE: Module::Pluggable is going into core
+# and CORE tests can't modify @INC under taint
+# so this is a work around to make sure it
+# still works under taint checking.
+
+use strict;
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Module::Pluggable::Object);
+ok(@plugins = sort $foo->plugins);
+
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object");
+
+@plugins = ();
+
+ok(@plugins = sort MyTest->plugins);
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object under class method");
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable search_path => 'Module::Pluggable';
+
+
+sub new {
+ my $class = shift;
+ return bless {}, $class;
+
+}
+1;
+
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/03diffname.t new/Module-Pluggable-3.5/t/03diffname.t
--- old/Module-Pluggable-3.1/t/03diffname.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/03diffname.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/04acmedir_single.t new/Module-Pluggable-3.5/t/04acmedir_single.t
--- old/Module-Pluggable-3.1/t/04acmedir_single.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/04acmedir_single.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/04acmedir.t new/Module-Pluggable-3.5/t/04acmedir.t
--- old/Module-Pluggable-3.1/t/04acmedir.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/04acmedir.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/04acmepath_single.t new/Module-Pluggable-3.5/t/04acmepath_single.t
--- old/Module-Pluggable-3.1/t/04acmepath_single.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/04acmepath_single.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/04acmepath.t new/Module-Pluggable-3.5/t/04acmepath.t
--- old/Module-Pluggable-3.1/t/04acmepath.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/04acmepath.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/05postpath.t new/Module-Pluggable-3.5/t/05postpath.t
--- old/Module-Pluggable-3.1/t/05postpath.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/05postpath.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/06multipath.t new/Module-Pluggable-3.5/t/06multipath.t
--- old/Module-Pluggable-3.1/t/06multipath.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/06multipath.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/07instantiate.t new/Module-Pluggable-3.5/t/07instantiate.t
--- old/Module-Pluggable-3.1/t/07instantiate.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/07instantiate.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 6;
my $foo;
@@ -24,7 +25,8 @@
package MyTest;
use File::Spec::Functions qw(catdir);
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'booga', instantiate => 'new');
use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'wooga', instantiate => 'nosomuchmethod');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/08nothing.t new/Module-Pluggable-3.5/t/08nothing.t
--- old/Module-Pluggable-3.1/t/08nothing.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/08nothing.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 2;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/09require.t new/Module-Pluggable-3.5/t/09require.t
--- old/Module-Pluggable-3.1/t/09require.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/09require.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 2;
my $t = MyTest->new();
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/10innerpack_inner.t new/Module-Pluggable-3.5/t/10innerpack_inner.t
--- old/Module-Pluggable-3.1/t/10innerpack_inner.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/10innerpack_inner.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/10innerpack_noinner.t new/Module-Pluggable-3.5/t/10innerpack_noinner.t
--- old/Module-Pluggable-3.1/t/10innerpack_noinner.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/10innerpack_noinner.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/10innerpack_override.t new/Module-Pluggable-3.5/t/10innerpack_override.t
--- old/Module-Pluggable-3.1/t/10innerpack_override.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/10innerpack_override.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/10innerpack.t new/Module-Pluggable-3.5/t/10innerpack.t
--- old/Module-Pluggable-3.1/t/10innerpack.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/10innerpack.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 4;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/11usetwice.t new/Module-Pluggable-3.5/t/11usetwice.t
--- old/Module-Pluggable-3.1/t/11usetwice.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/11usetwice.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 3;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/12onlyarray.t new/Module-Pluggable-3.5/t/12onlyarray.t
--- old/Module-Pluggable-3.1/t/12onlyarray.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/12onlyarray.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/12onlyregex.t new/Module-Pluggable-3.5/t/12onlyregex.t
--- old/Module-Pluggable-3.1/t/12onlyregex.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/12onlyregex.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/12only.t new/Module-Pluggable-3.5/t/12only.t
--- old/Module-Pluggable-3.1/t/12only.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/12only.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/13exceptarray.t new/Module-Pluggable-3.5/t/13exceptarray.t
--- old/Module-Pluggable-3.1/t/13exceptarray.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/13exceptarray.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/13exceptregex.t new/Module-Pluggable-3.5/t/13exceptregex.t
--- old/Module-Pluggable-3.1/t/13exceptregex.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/13exceptregex.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/13except.t new/Module-Pluggable-3.5/t/13except.t
--- old/Module-Pluggable-3.1/t/13except.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/13except.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 10;
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/14package.t new/Module-Pluggable-3.5/t/14package.t
--- old/Module-Pluggable-3.1/t/14package.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/14package.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 5;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/15topicsafe.t new/Module-Pluggable-3.5/t/15topicsafe.t
--- old/Module-Pluggable-3.1/t/15topicsafe.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/15topicsafe.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More 'no_plan';
use Module::Pluggable search_path => 'Acme::MyTest';
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/16different_extension.t new/Module-Pluggable-3.5/t/16different_extension.t
--- old/Module-Pluggable-3.1/t/16different_extension.t 2006-07-11 20:57:09.000000000 +0200
+++ new/Module-Pluggable-3.5/t/16different_extension.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use strict;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 5;
my $foo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/17devel_inner_package.t new/Module-Pluggable-3.5/t/17devel_inner_package.t
--- old/Module-Pluggable-3.1/t/17devel_inner_package.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/17devel_inner_package.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,8 +1,9 @@
-#!perl -wT
+#!perl -w
use Test::More tests => 3;
use Devel::InnerPackage qw(list_packages);
-use lib qw(t/lib);
+use FindBin;
+use lib "$FindBin::Bin/lib";
my @packages;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/18skipped_package.t new/Module-Pluggable-3.5/t/18skipped_package.t
--- old/Module-Pluggable-3.1/t/18skipped_package.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/18skipped_package.t 2007-01-30 00:13:00.000000000 +0100
@@ -1,7 +1,8 @@
-#!perl -wT
+#!perl -w
use Test::More tests => 1;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Devel::InnerPackage qw(list_packages);
use No::Middle;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/19can_ok_clobber.t new/Module-Pluggable-3.5/t/19can_ok_clobber.t
--- old/Module-Pluggable-3.1/t/19can_ok_clobber.t 2006-07-11 20:57:10.000000000 +0200
+++ new/Module-Pluggable-3.5/t/19can_ok_clobber.t 2007-01-30 00:13:00.000000000 +0100
@@ -2,7 +2,8 @@
use strict;
use warnings;
use Data::Dumper;
-use lib 't/lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests=>5;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/20dodgy_files.t new/Module-Pluggable-3.5/t/20dodgy_files.t
--- old/Module-Pluggable-3.1/t/20dodgy_files.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Pluggable-3.5/t/20dodgy_files.t 2007-01-30 00:13:00.000000000 +0100
@@ -0,0 +1,67 @@
+#!perl -w
+
+use strict;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = OddTest->new());
+
+my @plugins;
+my @expected = ('OddTest::Plugin::-Dodgy', 'OddTest::Plugin::Foo');
+ok(@plugins = sort $foo->plugins);
+is_deeply(\@plugins, \@expected, "is deeply");
+
+my @odd_plugins;
+my @odd_expected = qw(OddTest::Plugin::Foo);
+ok(@odd_plugins = sort $foo->odd_plugins);
+is_deeply(\@odd_plugins, \@odd_expected, "is deeply");
+
+
+package OddTest::Pluggable;
+
+use Data::Dumper;
+use base qw(Module::Pluggable::Object);
+
+
+sub find_files {
+ my $self = shift;
+ my @files = $self->SUPER::find_files(@_);
+ return grep { !/(^|\/)-/ } $self->SUPER::find_files(@_) ;
+}
+
+package OddTest;
+
+use strict;
+use Module::Pluggable;
+
+
+sub new {
+ my $class = shift;
+ return bless {}, $class;
+
+}
+
+sub odd_plugins {
+ my $self = shift;
+ my %opts;
+ my ($pkg, $file) = caller;
+ # the default name for the method is 'plugins'
+ my $sub = $opts{'sub_name'} || 'plugins';
+ # get our package
+ my ($package) = $opts{'package'} || "OddTest";
+ $opts{filename} = $file;
+ $opts{package} = $package;
+
+
+
+ my $op = OddTest::Pluggable->new( package => ref($self) );
+ return $op->plugins(@_);
+
+
+}
+
+
+1;
+
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/lib/OddTest/Plugin/-Dodgy.pm new/Module-Pluggable-3.5/t/lib/OddTest/Plugin/-Dodgy.pm
--- old/Module-Pluggable-3.1/t/lib/OddTest/Plugin/-Dodgy.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Pluggable-3.5/t/lib/OddTest/Plugin/-Dodgy.pm 2007-01-30 00:13:00.000000000 +0100
@@ -0,0 +1,5 @@
+package OddFiles::Plugin::Dodgy;
+
+sub new {}
+
+1;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Module-Pluggable-3.1/t/lib/OddTest/Plugin/Foo.pm new/Module-Pluggable-3.5/t/lib/OddTest/Plugin/Foo.pm
--- old/Module-Pluggable-3.1/t/lib/OddTest/Plugin/Foo.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Pluggable-3.5/t/lib/OddTest/Plugin/Foo.pm 2007-01-30 00:13:00.000000000 +0100
@@ -0,0 +1,5 @@
+package OddFiles/Plugin/Foo.pm
+
+sub new {}
+
+1;
Files old/Module-Pluggable-3.1/t/plugins/test.plugin and new/Module-Pluggable-3.5/t/plugins/test.plugin differ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org