fix compatibility with perl-5.26

.travis.yml

@@ -9,6 +9,8 @@ perl:
   - "5.18"
   - "5.20"
   - "5.22"
+  - "5.24"
+  - "5.26"
 
 env:
   global:

t/diagnostics.t

@@ -1,6 +1,7 @@
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 plan tests => 19;
 

t/dns-error.t

@@ -1,7 +1,8 @@
 # DNS error.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 
 # cover code which process stale DNS replies on closed streams

t/dns.t

@@ -1,7 +1,8 @@
 # DNS error.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 @CheckPoint = (
     {

t/err-EAGAIN.t

@@ -1,7 +1,8 @@
 # EAGAIN in sysread/syswrite
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 @CheckPoint = (
     [ 'timeout_write'   ], 'force EAGAIN in syswrite',

t/err-rw.t

@@ -1,7 +1,8 @@
 # errors in sysread/syswrite
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 use Config;
 plan skip_all => 'unstable on CPAN Testers (libev crashes)'

t/extra_fields.t

@@ -6,7 +6,8 @@
 # - class/method names instead of CODE ref in {cb}
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 my $SIZE = 204800;
 

t/fh-types-all.t

@@ -6,7 +6,8 @@
 # - unix socket
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 @CheckPoint = (
     [ 'client',     SENT            ], 'client: SENT',

t/fh-types-posix.t

@@ -6,7 +6,8 @@
 # - unix socket
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 if (WIN32) {
     plan skip_all => 'OS unsupported';

t/leak.t

@@ -1,7 +1,8 @@
 # Resources (mem/fd) shouldn't leak.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 if ($^O !~ /linux/i) {
     plan skip_all => 'require /proc';

t/plugin-alias.t

@@ -1,7 +1,8 @@
 # No-op plugins in action.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 BEGIN {
     eval { require Data::Alias; Data::Alias->VERSION('0.08') } or plan skip_all => 'Data::Alias required';
 }

t/plugin.t

@@ -1,7 +1,8 @@
 # No-op plugins in action.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 use IO::Stream::Noop;
 
 

t/timeout-connect.t

@@ -1,12 +1,13 @@
 # Connect timeout (Looks like Google DROP incoming packets on port 21.)
 use warnings;
 use strict;
+use lib 't';
 use IO::Stream::const ();
 BEGIN {
     local $SIG{__WARN__} = sub {};  # no 'constant redefined' warning
     *IO::Stream::const::TOCONNECT   = sub () { 0.1 };
 }
-use t::share;
+use share;
 
 
 @CheckPoint = (

t/timeout-write-slowclient.t

@@ -1,12 +1,13 @@
 # Write timeout.
 use warnings;
 use strict;
+use lib 't';
 use IO::Stream::const ();
 BEGIN {
     local $SIG{__WARN__} = sub {};  # no 'constant redefined' warning
     *IO::Stream::const::TOWRITE     = sub () { 1 };
 }
-use t::share;
+use share;
 
 
 @CheckPoint = (

t/timeout-write.t

@@ -1,12 +1,13 @@
 # Write timeout.
 use warnings;
 use strict;
+use lib 't';
 use IO::Stream::const ();
 BEGIN {
     local $SIG{__WARN__} = sub {};  # no 'constant redefined' warning
     *IO::Stream::const::TOWRITE     = sub () { 0.1 };
 }
-use t::share;
+use share;
 
 
 @CheckPoint = (

t/uc-echo.t

@@ -1,7 +1,8 @@
 # Use case: echo client/server
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 my $banner  = "Server ready";
 my $msg     = "Test message!\0\n";

t/uc-google.t

@@ -1,7 +1,8 @@
 # Use case: HTTP GET until EOF
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 IO::Stream->new({
 #    fh          => tcp_client('www.google.com', 80),

t/uc-proxy-big-alias.t

@@ -4,7 +4,8 @@
 #           data copying in proxy.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 BEGIN {
     eval { require Data::Alias; Data::Alias->VERSION('0.08'); Data::Alias->import(); 1 } or plan skip_all => 'Data::Alias required';
 }

t/uc-proxy-big.t

@@ -3,7 +3,8 @@
 #           send/recv a lot of data.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 my $SIZE = 204800;
 

t/uc-proxy.t

@@ -2,7 +2,8 @@
 # Use case: client connect to echo server using proxy.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 
 use constant ACCEPTED => 123;

t/wait_for.t

@@ -1,7 +1,8 @@
 # EREQINEOF and EREQINBUFLIMIT.
 use warnings;
 use strict;
-use t::share;
+use lib 't';
+use share;
 
 @CheckPoint = (
     [ 'reader', 0, EREQINEOF        ], 'reader: EREQINEOF',