r38103 - in /trunk/libtest-portability-files-perl/debian/patches: ./ negative_options.patch series

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sun Jun 14 19:31:02 2009
New Revision: 38103

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38103
Log:
Add the actual patches :o

Added:
    trunk/libtest-portability-files-perl/debian/patches/
    trunk/libtest-portability-files-perl/debian/patches/negative_options.patch
    trunk/libtest-portability-files-perl/debian/patches/series

Added: trunk/libtest-portability-files-perl/debian/patches/negative_options.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-portability-files-perl/debian/patches/negative_options.patch?rev=38103&op=file
==============================================================================
--- trunk/libtest-portability-files-perl/debian/patches/negative_options.patch (added)
+++ trunk/libtest-portability-files-perl/debian/patches/negative_options.patch Sun Jun 14 19:31:02 2009
@@ -1,0 +1,27 @@
+Author: Chris Dolan <cdolan at cpan.org>
+Applied-By: Jonathan Yu <frequency at cpan.org>
+Debian-Specific: no
+Bug: http://rt.cpan.org/Public/Bug/Display.html?id=21631
+Description: Fix negative options (setting test to false)
+ Test::Portability::Files has had a problem (since its last release circa 2006)
+ with turning off tests. While you do get the choice of enabling tests, you
+ cannot disable tests -- thus leaving you with a superset of the defaults +
+ whatever extra tests you have enabled.
+--- a/lib/Test/Portability/Files.pm
++++ b/lib/Test/Portability/Files.pm
+@@ -276,12 +276,12 @@
+ sub options {
+     my %opts = @_;
+     for my $test (keys %tests) {
+-        $tests{$test} = $opts{"test_$test"} if $opts{"test_$test"}
++        $tests{$test} = $opts{"test_$test"} if exists $opts{"test_$test"}
+     }
+     for my $opt (keys %options) {
+-        $options{$opt} = $opts{$opt} if $opts{$opt}
++        $options{$opt} = $opts{$opt} if exists $opts{$opt}
+     }
+-    @tests{keys %tests} = (1)x(keys %tests) if $opts{all_tests};
++    @tests{keys %tests} = (1)x(keys %tests) if exists $opts{all_tests};
+ }
+ 
+ =item C<test_name_portability()>

Added: trunk/libtest-portability-files-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-portability-files-perl/debian/patches/series?rev=38103&op=file
==============================================================================
--- trunk/libtest-portability-files-perl/debian/patches/series (added)
+++ trunk/libtest-portability-files-perl/debian/patches/series Sun Jun 14 19:31:02 2009
@@ -1,0 +1,1 @@
+negative_options.patch