Description: Fix FTBFS with '.' removed from perl's @INC
 .
 slack (1:0.15.2-9) unstable; urgency=medium
 .
   * Applied patch from Dominic Hargreaves to fix FTBFS with '.' removed from
     perl's @INC (closes: #835491)
Author: Dominic Hargreaves <dom@earth.li>
Bug-Debian: https://bugs.debian.org/835491

---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: vendor, https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=835491
Bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=835491
Bug-Debian: https://bugs.debian.org/835491
Reviewed-By: Andrew Pollock <apollock@debian.org>
Last-Update: <2016-08-30>

--- slack-0.15.2.orig/test/01_module.t
+++ slack-0.15.2/test/01_module.t
@@ -5,7 +5,7 @@ use Test::More tests => 40;
 
 BEGIN {
     chdir 'test' if -d 'test';
-    unshift @INC, '../src';
+    unshift @INC, '../src', '.';
     use_ok("Slack");
 }
 
--- slack-0.15.2.orig/test/02_getroles.t
+++ slack-0.15.2/test/02_getroles.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use Test::More tests => 6;
 use test_util;
--- slack-0.15.2.orig/test/03_sync.t
+++ slack-0.15.2/test/03_sync.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use warnings FATAL => qw(all);
 use Test::More;
--- slack-0.15.2.orig/test/04_stage.t
+++ slack-0.15.2/test/04_stage.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use warnings FATAL => qw(all);
 use Test::More tests => 15;
--- slack-0.15.2.orig/test/05_runscript.t
+++ slack-0.15.2/test/05_runscript.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use Test::More tests => 18;
 use test_util;
--- slack-0.15.2.orig/test/06_installfiles.t
+++ slack-0.15.2/test/06_installfiles.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use warnings FATAL => qw(all);
 use Test::More tests => 13;
--- slack-0.15.2.orig/test/07_frontend.t
+++ slack-0.15.2/test/07_frontend.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use warnings FATAL => qw(all);
 use Test::More tests => 13;
--- slack-0.15.2.orig/test/08_diff.t
+++ slack-0.15.2/test/08_diff.t
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use strict;
 use POSIX qw(strftime);
 #use Test::More qw(no_plan); # tests => 12;
--- slack-0.15.2.orig/test/gen_config_file
+++ slack-0.15.2/test/gen_config_file
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+BEGIN { unshift @INC, '.' }
+
 use test_util qw(gen_config_file);
 
 die unless $#ARGV==1;
