From 859d5403887df584af7e88e7bea7899ea6549fd0 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Sun, 25 Jun 2017 19:16:42 +1200
Subject: Fix for '.' removal from @INC in Perl 5.26
Bug:
https://rt.cpan.org/Ticket/Display.html?id=121140
Bug:
https://bugs.gentoo.org/615602
Bug:
https://github.com/bestpractical/dbix-searchbuilder/pull/5
---
Makefile.PL | 1 +
t/01basics.t | 2 +-
t/01nocap_api.t | 2 +-
t/01records.t | 2 +-
t/01searches.t | 2 +-
t/02distinct_values.t | 2 +-
t/02null_order.t | 2 +-
t/02order_outer.t | 2 +-
t/02records_cachable.t | 2 +-
t/02records_datetime.t | 2 +-
t/02records_dt_interval.t | 2 +-
t/02records_integers.t | 2 +-
t/02records_object.t | 2 +-
t/02searches_function.t | 2 +-
t/02searches_joins.t | 2 +-
t/03compatibility.t | 2 +-
t/03cud_from_select.t | 2 +-
t/03rebless.t | 2 +-
t/03transactions.t | 2 +-
t/03versions.t | 2 +-
t/10schema.t | 4 ++--
t/11schema_records.t | 2 +-
t/20set_edge_cases.t | 2 +-
23 files changed, 24 insertions(+), 23 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index 49ec3f0..837f26f 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,3 +1,4 @@
+use lib '.';
use inc::Module::Install;
name ('DBIx-SearchBuilder');
diff --git a/t/01basics.t b/t/01basics.t
index a46ede6..f0c18df 100644
--- a/t/01basics.t
+++ b/t/01basics.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 4;
diff --git a/t/01nocap_api.t b/t/01nocap_api.t
index 1ea417e..be45395 100644
--- a/t/01nocap_api.t
+++ b/t/01nocap_api.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
use vars qw(@SPEC_METHODS @MODULES);
my @SPEC_METHODS = qw(AUTOLOAD DESTROY CLONE);
diff --git a/t/01records.t b/t/01records.t
index a1f1366..d701e94 100644
--- a/t/01records.t
+++ b/t/01records.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 66;
diff --git a/t/01searches.t b/t/01searches.t
index 83a2001..1276544 100644
--- a/t/01searches.t
+++ b/t/01searches.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 150;
diff --git a/t/02distinct_values.t b/t/02distinct_values.t
index f20328d..826db21 100644
--- a/t/02distinct_values.t
+++ b/t/02distinct_values.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 9;
diff --git a/t/02null_order.t b/t/02null_order.t
index 9feda47..fab111d 100644
--- a/t/02null_order.t
+++ b/t/02null_order.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 11;
diff --git a/t/02order_outer.t b/t/02order_outer.t
index 08a236b..14a39fe 100644
--- a/t/02order_outer.t
+++ b/t/02order_outer.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 98;
diff --git a/t/02records_cachable.t b/t/02records_cachable.t
index cdbb9da..9418990 100644
--- a/t/02records_cachable.t
+++ b/t/02records_cachable.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 16;
diff --git a/t/02records_datetime.t b/t/02records_datetime.t
index f1a0d7a..6882729 100644
--- a/t/02records_datetime.t
+++ b/t/02records_datetime.t
@@ -5,7 +5,7 @@ BEGIN { $ENV{'TZ'} = 'Europe/Moscow' };
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 38;
diff --git a/t/02records_dt_interval.t b/t/02records_dt_interval.t
index ef1ead3..283746f 100644
--- a/t/02records_dt_interval.t
+++ b/t/02records_dt_interval.t
@@ -5,7 +5,7 @@ BEGIN { $ENV{'TZ'} = 'Europe/Moscow' };
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 17;
diff --git a/t/02records_integers.t b/t/02records_integers.t
index d13e2ee..95b8504 100644
--- a/t/02records_integers.t
+++ b/t/02records_integers.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 37;
diff --git a/t/02records_object.t b/t/02records_object.t
index 18c724e..34576db 100644
--- a/t/02records_object.t
+++ b/t/02records_object.t
@@ -5,7 +5,7 @@ use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 11;
diff --git a/t/02searches_function.t b/t/02searches_function.t
index 2fd6e7e..c8682de 100644
--- a/t/02searches_function.t
+++ b/t/02searches_function.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 18;
diff --git a/t/02searches_joins.t b/t/02searches_joins.t
index 1661f2b..cbdc3c9 100644
--- a/t/02searches_joins.t
+++ b/t/02searches_joins.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 59;
diff --git a/t/03compatibility.t b/t/03compatibility.t
index 14eb382..3939503 100644
--- a/t/03compatibility.t
+++ b/t/03compatibility.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 2;
diff --git a/t/03cud_from_select.t b/t/03cud_from_select.t
index 7f5d21b..2f324b7 100644
--- a/t/03cud_from_select.t
+++ b/t/03cud_from_select.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 14;
diff --git a/t/03rebless.t b/t/03rebless.t
index 888bb94..467cf00 100644
--- a/t/03rebless.t
+++ b/t/03rebless.t
@@ -6,7 +6,7 @@ use warnings;
use Test::More;
use DBIx::SearchBuilder::Handle;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 4;
diff --git a/t/03transactions.t b/t/03transactions.t
index e641c19..ef0f973 100644
--- a/t/03transactions.t
+++ b/t/03transactions.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 52;
diff --git a/t/03versions.t b/t/03versions.t
index 79bb2e9..4acba37 100644
--- a/t/03versions.t
+++ b/t/03versions.t
@@ -5,7 +5,7 @@ use warnings;
use Test::More;
use DBIx::SearchBuilder::Handle;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 6;
diff --git a/t/10schema.t b/t/10schema.t
index 2ff5ab6..fcf1a7b 100644
--- a/t/10schema.t
+++ b/t/10schema.t
@@ -8,7 +8,7 @@ use constant TESTS_PER_DRIVER => 14;
our @AvailableDrivers;
BEGIN {
- require("t/utils.pl");
+ require("./t/utils.pl");
my $total = 3 + scalar(@AvailableDrivers) * TESTS_PER_DRIVER;
if( not eval { require DBIx::DBSchema } ) {
plan skip_all => "DBIx::DBSchema not installed";
@@ -22,7 +22,7 @@ BEGIN {
use_ok("DBIx::SearchBuilder::Handle");
}
-require_ok("t/testmodels.pl");
+require_ok("./t/testmodels.pl");
foreach my $d ( @AvailableDrivers ) {
SKIP: {
diff --git a/t/11schema_records.t b/t/11schema_records.t
index 4fc4dc4..a586cda 100644
--- a/t/11schema_records.t
+++ b/t/11schema_records.t
@@ -5,7 +5,7 @@ use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 63;
diff --git a/t/20set_edge_cases.t b/t/20set_edge_cases.t
index 943f76a..d22b1ee 100644
--- a/t/20set_edge_cases.t
+++ b/t/20set_edge_cases.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
use Test::More;
-BEGIN { require "t/utils.pl" }
+BEGIN { require "./t/utils.pl" }
our (@AvailableDrivers);
use constant TESTS_PER_DRIVER => 20;
--
2.14.1
