[SCM] Debian packaging of libperl5i-perl branch, master, updated. debian/2.9.1-2-22-gd4dd6c4

[Xavier Guimard]

The following commit has been merged in the master branch:
commit 21673bbc54b7039c4c6d169646af2663941b27fa
Author: Xavier Guimard <x.guimard at free.fr>
Date:   Thu May 2 13:12:56 2013 +0200

    Remove 0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch

diff --git a/debian/patches/0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch b/debian/patches/0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch
deleted file mode 100644
index 784bf3e..0000000
--- a/debian/patches/0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch
+++ /dev/null
@@ -1,54 +0,0 @@
-Origin: https://github.com/doherty/perl5i
-Bug: https://github.com/schwern/perl5i/issues/218
-Bug-Debian: http://bugs.debian.org/655329
-Reviewed-by: gregor herrmann <gregoa at debian.org>
-Last-Update: 2012-04-09
-
-
-From 879a4664c556a016856975e81127535573e300e1 Mon Sep 17 00:00:00 2001
-From: Mike Doherty <doherty at cs.dal.ca>
-Date: Mon, 2 Apr 2012 21:59:36 -0400
-Subject: [PATCH] Make one test TODO in t/utf8.t - failure caused by RT#54777
-
-autodie (used in perl5i) causes the open pragma (used in utf8::all)
-to fail to modify the default PerlIO layers. This doesn't fix the
-underlying issue, it just marks the test as a known failure. Also,
-don't try to delete files unless they exist.
-
-Fixes #218
----
- t/utf8.t |   11 ++++++++---
- 1 file changed, 8 insertions(+), 3 deletions(-)
-
-diff --git a/t/utf8.t b/t/utf8.t
-index d50a967..086d2ad 100644
---- a/t/utf8.t
-+++ b/t/utf8.t
-@@ -17,8 +17,13 @@ use Test::More;
- 
-     # Test the standard handles and all newly opened handles are utf8
-     ok open my $test_fh, ">", "perlio_test";
--    END { unlink "perlio_test" }
--    for my $fh (*STDOUT, *STDIN, *STDERR, $test_fh) {
-+    END { unlink 'perlio_test' if -e 'perlio_test' }
-+    TODO: {
-+        local $TODO = 'autodie clobbers IO layers';
-+        my @layers = PerlIO::get_layers($test_fh);
-+        ok(@layers->grep(qr/utf8/)->flatten) or diag explain { $test_fh => \@layers};
-+    }
-+    for my $fh (*STDOUT, *STDIN, *STDERR) {
-         my @layers = PerlIO::get_layers($fh);
-         ok(@layers->grep(qr/utf8/)->flatten) or diag explain { $fh => \@layers };
-     }
-@@ -28,7 +33,7 @@ use Test::More;
- # And off
- {
-     ok open my $test_fh, ">", "perlio_test2";
--    END { unlink "perlio_test2" }
-+    END { unlink 'perlio_test2' if -e 'perlio_test2' }
- 
-     my @layers = PerlIO::get_layers($test_fh);
-     ok( !grep /utf8/, @layers ) or diag explain { $test_fh => \@layers };
--- 
-1.7.9.5
-
diff --git a/debian/patches/series b/debian/patches/series
index b5de392..4df2150 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,2 @@
 fix-test-for-mips
-0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch
 disable-failing-tests.patch

-- 
Debian packaging of libperl5i-perl