Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-harness-perl / libtest-harness-perl-3.12 / t / compat / regression.t

diff --git a/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/compat/regression.t b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/compat/regression.t
new file mode 100644 (file)
index 0000000..1d848f9
--- /dev/null
+++ b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/compat/regression.t
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use strict;
+use lib 't/lib';
+
+use Test::More tests => 1;
+use Test::Harness;
+
+{
+
+    #28567
+    unshift @INC, 'wibble';
+    my @before = Test::Harness::_filtered_inc();
+    unshift @INC, sub {die};
+    my @after = Test::Harness::_filtered_inc();
+    is_deeply \@after, \@before, 'subref removed from @INC';
+}