Hello community, here is the log from the commit of package perl-Module-Implementation for openSUSE:Factory checked in at 2013-07-30 16:45:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Module-Implementation (Old) and /work/SRC/openSUSE:Factory/.perl-Module-Implementation.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-Implementation" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Module-Implementation/perl-Module-Implementation.changes 2013-06-13 17:48:36.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Module-Implementation.new/perl-Module-Implementation.changes 2013-07-30 16:45:51.000000000 +0200 @@ -1,0 +2,8 @@ +Fri Jul 26 05:28:35 UTC 2013 - co...@suse.com + +- updated to 0.07 + - Require Test::Fatal 0.006+ to avoid test failures. Reported by Salve + Nilsen. RT #76809. +- remove old old_test_more.patch + +------------------------------------------------------------------- Old: ---- Module-Implementation-0.06.tar.gz New: ---- Module-Implementation-0.07.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Module-Implementation.spec ++++++ --- /var/tmp/diff_new_pack.t3qx03/_old 2013-07-30 16:45:53.000000000 +0200 +++ /var/tmp/diff_new_pack.t3qx03/_new 2013-07-30 16:45:53.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Module-Implementation -Version: 0.06 +Version: 0.07 Release: 0 %define cpan_name Module-Implementation Summary: Loads one of several alternate underlying implementations for a module @@ -25,19 +25,16 @@ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Module-Implementation/ Source: http://www.cpan.org/authors/id/D/DR/DROLSKY/%{cpan_name}-%{version}.tar.gz -# MANUAL -Patch0: old_test_more.patch BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Module::Runtime) >= 0.012 -BuildRequires: perl(Test::Fatal) +BuildRequires: perl(Test::Fatal) >= 0.006 BuildRequires: perl(Test::More) >= 0.88 BuildRequires: perl(Test::Requires) BuildRequires: perl(Try::Tiny) #BuildRequires: perl(Module::Implementation) -#BuildRequires: perl(Test::Spelling) Requires: perl(Module::Runtime) >= 0.012 Requires: perl(Try::Tiny) %{perl_requires} @@ -55,9 +52,6 @@ %prep %setup -q -n %{cpan_name}-%{version} -%if 0%{?suse_version} <= 1110 -%patch0 -%endif %build %{__perl} Makefile.PL INSTALLDIRS=vendor ++++++ Module-Implementation-0.06.tar.gz -> Module-Implementation-0.07.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/Changes new/Module-Implementation-0.07/Changes --- old/Module-Implementation-0.06/Changes 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/Changes 2013-07-14 18:58:57.000000000 +0200 @@ -1,6 +1,12 @@ +0.07 2013-07-14 + +- Require Test::Fatal 0.006+ to avoid test failures. Reported by Salve + Nilsen. RT #76809. + + 0.06 2012-02-12 -- Require Module::Runtime 0.012 which has a number of useful bug fixes. +- Require Module::Runtime 0.012, which has a number of useful bug fixes. 0.05 2012-02-09 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/LICENSE new/Module-Implementation-0.07/LICENSE --- old/Module-Implementation-0.06/LICENSE 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/LICENSE 2013-07-14 18:58:57.000000000 +0200 @@ -1,4 +1,4 @@ -This software is Copyright (c) 2012 by Dave Rolsky. +This software is Copyright (c) 2013 by Dave Rolsky. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/MANIFEST new/Module-Implementation-0.07/MANIFEST --- old/Module-Implementation-0.06/MANIFEST 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/MANIFEST 2013-07-14 18:58:57.000000000 +0200 @@ -8,6 +8,8 @@ README dist.ini lib/Module/Implementation.pm +t/00-compile.t +t/author-pod-spell.t t/basic.t t/both-fail.t t/env-value.t @@ -21,9 +23,9 @@ t/release-cpan-changes.t t/release-eol.t t/release-no-tabs.t +t/release-pod-coverage.t t/release-pod-linkcheck.t t/release-pod-no404s.t -t/release-pod-spell.t t/release-pod-syntax.t t/requested-fails.t t/taint.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/META.json new/Module-Implementation-0.07/META.json --- old/Module-Implementation-0.06/META.json 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/META.json 2013-07-14 18:58:57.000000000 +0200 @@ -4,7 +4,7 @@ "Dave Rolsky <auta...@urth.org>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 4.300006, CPAN::Meta::Converter version 2.113640", + "generated_by" : "Dist::Zilla version 4.300035, CPAN::Meta::Converter version 2.131560", "license" : [ "artistic_2" ], @@ -19,20 +19,31 @@ "ExtUtils::MakeMaker" : "6.30" } }, + "develop" : { + "requires" : { + "Pod::Coverage::TrustPod" : "0", + "Test::CPAN::Changes" : "0.19", + "Test::Pod" : "1.41", + "Test::Pod::Coverage" : "1.08" + } + }, "runtime" : { "requires" : { - "Carp" : 0, + "Carp" : "0", "Module::Runtime" : "0.012", - "Try::Tiny" : 0, - "strict" : 0, - "warnings" : 0 + "Try::Tiny" : "0", + "strict" : "0", + "warnings" : "0" } }, "test" : { "requires" : { - "Test::Fatal" : 0, + "File::Find" : "0", + "File::Temp" : "0", + "Test::Fatal" : "0.006", "Test::More" : "0.88", - "Test::Requires" : 0 + "Test::Requires" : "0", + "lib" : "0" } } }, @@ -40,14 +51,16 @@ "resources" : { "bugtracker" : { "mailto" : "bug-module-implementat...@rt.cpan.org", - "web" : "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Implementation" + "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=Module-Implementation" }, + "homepage" : "http://metacpan.org/release/Module-Implementation", "repository" : { "type" : "git", "url" : "git://git.urth.org/Module-Implementation.git", "web" : "http://git.urth.org/Module-Implementation.git" } }, - "version" : "0.06" + "version" : "0.07", + "x_authority" : "cpan:DROLSKY" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/META.yml new/Module-Implementation-0.07/META.yml --- old/Module-Implementation-0.06/META.yml 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/META.yml 2013-07-14 18:58:57.000000000 +0200 @@ -3,13 +3,16 @@ author: - 'Dave Rolsky <auta...@urth.org>' build_requires: - Test::Fatal: 0 + File::Find: 0 + File::Temp: 0 + Test::Fatal: 0.006 Test::More: 0.88 Test::Requires: 0 + lib: 0 configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300006, CPAN::Meta::Converter version 2.113640' +generated_by: 'Dist::Zilla version 4.300035, CPAN::Meta::Converter version 2.131560' license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -22,6 +25,8 @@ strict: 0 warnings: 0 resources: - bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Implementation + bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Module-Implementation + homepage: http://metacpan.org/release/Module-Implementation repository: git://git.urth.org/Module-Implementation.git -version: 0.06 +version: 0.07 +x_authority: cpan:DROLSKY diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/Makefile.PL new/Module-Implementation-0.07/Makefile.PL --- old/Module-Implementation-0.06/Makefile.PL 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/Makefile.PL 2013-07-14 18:58:57.000000000 +0200 @@ -11,11 +11,7 @@ my %WriteMakefileArgs = ( "ABSTRACT" => "Loads one of several alternate underlying implementations for a module", "AUTHOR" => "Dave Rolsky <autarch\@urth.org>", - "BUILD_REQUIRES" => { - "Test::Fatal" => 0, - "Test::More" => "0.88", - "Test::Requires" => 0 - }, + "BUILD_REQUIRES" => {}, "CONFIGURE_REQUIRES" => { "ExtUtils::MakeMaker" => "6.30" }, @@ -30,13 +26,34 @@ "strict" => 0, "warnings" => 0 }, - "VERSION" => "0.06", + "TEST_REQUIRES" => { + "File::Find" => 0, + "File::Temp" => 0, + "Test::Fatal" => "0.006", + "Test::More" => "0.88", + "Test::Requires" => 0, + "lib" => 0 + }, + "VERSION" => "0.07", "test" => { "TESTS" => "t/*.t" } ); +unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { + my $tr = delete $WriteMakefileArgs{TEST_REQUIRES}; + my $br = $WriteMakefileArgs{BUILD_REQUIRES}; + for my $mod ( keys %$tr ) { + if ( exists $br->{$mod} ) { + $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod}; + } + else { + $br->{$mod} = $tr->{$mod}; + } + } +} + unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) { my $br = delete $WriteMakefileArgs{BUILD_REQUIRES}; my $pp = $WriteMakefileArgs{PREREQ_PM}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/README new/Module-Implementation-0.07/README --- old/Module-Implementation-0.06/README 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/README 2013-07-14 18:58:57.000000000 +0200 @@ -1,11 +1,11 @@ This archive contains the distribution Module-Implementation, -version 0.06: +version 0.07: Loads one of several alternate underlying implementations for a module -This software is Copyright (c) 2012 by Dave Rolsky. +This software is Copyright (c) 2013 by Dave Rolsky. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/dist.ini new/Module-Implementation-0.07/dist.ini --- old/Module-Implementation-0.06/dist.ini 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/dist.ini 2013-07-14 18:58:57.000000000 +0200 @@ -3,37 +3,9 @@ license = Artistic_2_0 copyright_holder = Dave Rolsky -version = 0.06 +version = 0.07 -[NextRelease] -format = %-8v %{yyyy-MM-dd}d - -[@Basic] - -[InstallGuide] -[MetaJSON] - -[MetaResources] -bugtracker.web = http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Implementation -bugtracker.mailto = bug-module-implementat...@rt.cpan.org -repository.url = git://git.urth.org/Module-Implementation.git -repository.web = http://git.urth.org/Module-Implementation.git -repository.type = git - -[SurgicalPodWeaver] - -[SurgicalPkgVersion] - -[EOLTests] -[NoTabsTests] -[PodSyntaxTests] -[Test::CPAN::Changes] -[Test::Pod::LinkCheck] -[Test::Pod::No404s] - -[AutoPrereqs] -skip = Test::Spelling - -[CheckPrereqsIndexed] - -[@Git] +[@DROLSKY] +dist = Module-Implementation +stopwords = PurePerl +stopwords = env diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/lib/Module/Implementation.pm new/Module-Implementation-0.07/lib/Module/Implementation.pm --- old/Module-Implementation-0.06/lib/Module/Implementation.pm 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/lib/Module/Implementation.pm 2013-07-14 18:58:57.000000000 +0200 @@ -1,6 +1,9 @@ package Module::Implementation; { - $Module::Implementation::VERSION = '0.06'; + $Module::Implementation::VERSION = '0.07'; +} +BEGIN { + $Module::Implementation::AUTHORITY = 'cpan:DROLSKY'; } use strict; @@ -59,42 +62,49 @@ die "$env_value is not a valid implementation for $package" unless grep { $_ eq $env_value } @{$implementations}; - my $loaded = "${package}::$env_value"; + my $requested = "${package}::$env_value"; # Values from the %ENV hash are tainted. We know it's safe to untaint # this value because the value was one of our known implementations. - ($loaded) = $loaded =~ /^(.+)$/; + ($requested) = $requested =~ /^(.+)$/; try { - require_module($loaded); + require_module($requested); } catch { require Carp; - Carp::croak("Could not load $loaded: $_"); + Carp::croak("Could not load $requested: $_"); }; - return ( $env_value, $loaded ); + return ( $env_value, $requested ); } else { my $err; for my $possible ( @{$implementations} ) { - my $load = "${package}::$possible"; + my $try = "${package}::$possible"; my $ok; try { - require_module($load); + require_module($try); $ok = 1; } catch { - $err .= $_; + $err .= $_ if defined $_; }; - return ( $possible, $load ) if $ok; + return ( $possible, $try ) if $ok; } require Carp; - Carp::croak( - "Could not find a suitable $package implementation: $err"); + if ( defined $err && length $err ) { + Carp::croak( + "Could not find a suitable $package implementation: $err"); + } + else { + Carp::croak( + 'Module::Runtime failed to load a module but did not throw a real error. This should never happen. Something is very broken' + ); + } } } @@ -130,7 +140,7 @@ # ABSTRACT: Loads one of several alternate underlying implementations for a module - +__END__ =pod @@ -140,7 +150,7 @@ =head1 VERSION -version 0.06 +version 0.07 =head1 SYNOPSIS @@ -177,7 +187,7 @@ This module provides two subroutines, neither of which are exported. -=head2 Module::Implementation::<build_loader_sub(...) +=head2 Module::Implementation::build_loader_sub(...) This subroutine takes the following arguments. @@ -189,7 +199,7 @@ correspond to a module in the caller's namespace. In other words, using the example in the L</SYNOPSIS>, this module will look -for the C<Foo::Bar::XS> and C<Foo::Bar::PurePerl> modules will be installed +for the C<Foo::Bar::XS> and C<Foo::Bar::PurePerl> modules. This argument is required. @@ -264,14 +274,10 @@ =head1 COPYRIGHT AND LICENSE -This software is Copyright (c) 2012 by Dave Rolsky. +This software is Copyright (c) 2013 by Dave Rolsky. This is free software, licensed under: The Artistic License 2.0 (GPL Compatible) =cut - - -__END__ - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/00-compile.t new/Module-Implementation-0.07/t/00-compile.t --- old/Module-Implementation-0.06/t/00-compile.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Implementation-0.07/t/00-compile.t 2013-07-14 18:58:57.000000000 +0200 @@ -0,0 +1,74 @@ +#!perl + +use strict; +use warnings; + +use Test::More; + + + +use File::Find; +use File::Temp qw{ tempdir }; + +my @modules; +find( + sub { + return if $File::Find::name !~ /\.pm\z/; + my $found = $File::Find::name; + $found =~ s{^lib/}{}; + $found =~ s{[/\\]}{::}g; + $found =~ s/\.pm$//; + # nothing to skip + push @modules, $found; + }, + 'lib', +); + +sub _find_scripts { + my $dir = shift @_; + + my @found_scripts = (); + find( + sub { + return unless -f; + my $found = $File::Find::name; + # nothing to skip + open my $FH, '<', $_ or do { + note( "Unable to open $found in ( $! ), skipping" ); + return; + }; + my $shebang = <$FH>; + return unless $shebang =~ /^#!.*?\bperl\b\s*$/; + push @found_scripts, $found; + }, + $dir, + ); + + return @found_scripts; +} + +my @scripts; +do { push @scripts, _find_scripts($_) if -d $_ } + for qw{ bin script scripts }; + +my $plan = scalar(@modules) + scalar(@scripts); +$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); + +{ + # fake home for cpan-testers + # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 ); + + like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) + for sort @modules; + + SKIP: { + eval "use Test::Script 1.05; 1;"; + skip "Test::Script needed to test script compilation", scalar(@scripts) if $@; + foreach my $file ( @scripts ) { + my $script = $file; + $script =~ s!.*/!!; + script_compiles( $file, "$script script compiles" ); + } + } + +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/author-pod-spell.t new/Module-Implementation-0.07/t/author-pod-spell.t --- old/Module-Implementation-0.06/t/author-pod-spell.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Implementation-0.07/t/author-pod-spell.t 2013-07-14 18:58:57.000000000 +0200 @@ -0,0 +1,30 @@ + +BEGIN { + unless ($ENV{AUTHOR_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for testing by the author'); + } +} + +use strict; +use warnings; +use Test::More; + +# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.004003 +eval "use Test::Spelling 0.12; use Pod::Wordlist::hanekomu; 1" or die $@; + + +add_stopwords(<DATA>); +all_pod_files_spelling_ok( qw( bin lib ) ); +__DATA__ +PurePerl +env +DROLSKY +DROLSKY's +Rolsky +Rolsky's +Dave +autarch +lib +Module +Implementation diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/both-fail.t new/Module-Implementation-0.07/t/both-fail.t --- old/Module-Implementation-0.06/t/both-fail.t 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/t/both-fail.t 2013-07-14 18:58:57.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; use Test::More 0.88; -use Test::Fatal; +use Test::Fatal 0.006; { package T; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/release-cpan-changes.t new/Module-Implementation-0.07/t/release-cpan-changes.t --- old/Module-Implementation-0.06/t/release-cpan-changes.t 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/t/release-cpan-changes.t 2013-07-14 18:58:57.000000000 +0200 @@ -8,8 +8,12 @@ } -use Test::More; -eval 'use Test::CPAN::Changes'; -plan skip_all => 'Test::CPAN::Changes required for this test' if $@; -changes_ok(); +use strict; +use warnings; + +use Test::More 0.96 tests => 2; +use_ok('Test::CPAN::Changes'); +subtest 'changes_ok' => sub { + changes_file_ok('Changes'); +}; done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/release-pod-coverage.t new/Module-Implementation-0.07/t/release-pod-coverage.t --- old/Module-Implementation-0.06/t/release-pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Module-Implementation-0.07/t/release-pod-coverage.t 2013-07-14 18:58:57.000000000 +0200 @@ -0,0 +1,21 @@ +#!perl + +BEGIN { + unless ($ENV{RELEASE_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for release candidate testing'); + } +} + + +use Test::More; + +eval "use Test::Pod::Coverage 1.08"; +plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" + if $@; + +eval "use Pod::Coverage::TrustPod"; +plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage" + if $@; + +all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/release-pod-spell.t new/Module-Implementation-0.07/t/release-pod-spell.t --- old/Module-Implementation-0.06/t/release-pod-spell.t 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/t/release-pod-spell.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,34 +0,0 @@ - -BEGIN { - unless ($ENV{RELEASE_TESTING}) { - require Test::More; - Test::More::plan(skip_all => 'these tests are for release candidate testing'); - } -} - -use strict; -use warnings; - -use Test::Spelling; - -my @stopwords; -for (<DATA>) { - chomp; - push @stopwords, $_ - unless /\A (?: \# | \s* \z)/msx; -} - -add_stopwords(@stopwords); -set_spell_cmd('aspell list -l en'); - -# This prevents a weird segfault from the aspell command - see -# https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322 -local $ENV{LC_ALL} = 'C'; -all_pod_files_spelling_ok; - -__DATA__ -API -PurePerl -Rolsky -env -namespace diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/requested-fails.t new/Module-Implementation-0.07/t/requested-fails.t --- old/Module-Implementation-0.06/t/requested-fails.t 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/t/requested-fails.t 2013-07-14 18:58:57.000000000 +0200 @@ -2,7 +2,7 @@ use warnings; use Test::More 0.88; -use Test::Fatal; +use Test::Fatal 0.006; { package T; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Module-Implementation-0.06/t/taint.t new/Module-Implementation-0.07/t/taint.t --- old/Module-Implementation-0.06/t/taint.t 2012-02-12 16:37:05.000000000 +0100 +++ new/Module-Implementation-0.07/t/taint.t 2013-07-14 18:58:57.000000000 +0200 @@ -8,7 +8,7 @@ }; use Test::More 0.88; -use Test::Fatal; +use Test::Fatal 0.006; taint_checking_ok(); @@ -26,7 +26,9 @@ symbols => ['return_42'], ); - $ENV{T_IMPLEMENTATION} = 'Impl2'; + ::taint( $ENV{T_IMPLEMENTATION} = 'Impl2' ); + + ::tainted_ok( $ENV{T_IMPLEMENTATION}, '$ENV{T_IMPLEMENTATION} is tainted' ); ::is( ::exception{ $loader->() }, -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org