minor changes for compatibility with 5.005_03

diff --git a/ICO/ICO.xs b/ICO/ICO.xs
index bb239817526f89ba5ccf71abc9417281eb214a61..0baa43a2f07bc9fba7ad0dcede737c92716e0de9 100644 (file)
--- a/ICO/ICO.xs
+++ b/ICO/ICO.xs
@@ -4,6 +4,7 @@
 #include "imext.h"
 #include "imperl.h"
 #include "imicon.h"
+#include "ppport.h"
 
 DEFINE_IMAGER_CALLBACKS;
 

diff --git a/ICO/t/t10icon.t b/ICO/t/t10icon.t
index dd378586d4662c592596ef2332c2cf4c0bca0b8a..141d216452d29fef3deb2bbf30d24a53b406eb26 100644 (file)
--- a/ICO/t/t10icon.t
+++ b/ICO/t/t10icon.t
@@ -1,10 +1,11 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 94;
 
 BEGIN { use_ok('Imager::File::ICO'); }
 
--d 'testout' or mkdir 'testout';
+-d 'testout' or mkdir 'testout', 0777;
 
 my $im = Imager->new;
 # type=>'ico' or 'cur' and read ico and cur since they're pretty much

diff --git a/ICO/t/t20readone.t b/ICO/t/t20readone.t
index 9fc04c817427dfef932003335ce289024323b779..a3da5c11b327ecf965e99667e40e8408ef9e0cf6 100644 (file)
--- a/ICO/t/t20readone.t
+++ b/ICO/t/t20readone.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 

diff --git a/ICO/t/t21readmult.t b/ICO/t/t21readmult.t
index 1a62c6e99a397e4a7a835256151a0658c346bd31..3670db19a48047cea2098afcf27199fa5cd9ec92 100644 (file)
--- a/ICO/t/t21readmult.t
+++ b/ICO/t/t21readmult.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 

diff --git a/ICO/t/t30cursor.t b/ICO/t/t30cursor.t
index d5bde95428f6cb672d68c4e0be180f3ff4e053bb..7d00b40cb2a7aa273350ba2760458633fa6fab99 100644 (file)
--- a/ICO/t/t30cursor.t
+++ b/ICO/t/t30cursor.t
@@ -1,10 +1,11 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 25;
 
 BEGIN { use_ok('Imager::File::CUR'); }
 
--d 'testout' or mkdir 'testout';
+-d 'testout' or mkdir 'testout', 0777;
 
 my $im = Imager->new;
 

diff --git a/ICO/t/t40readcurone.t b/ICO/t/t40readcurone.t
index 65232e46395f54264da34e5599ca17d860763993..2cee11bba2674281cc4992e7a1b1d2187fc53420 100644 (file)
--- a/ICO/t/t40readcurone.t
+++ b/ICO/t/t40readcurone.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 

diff --git a/ICO/t/t41curmultread.t b/ICO/t/t41curmultread.t
index a5fdab6bc8001b492828440517f795d7df3a82cd..5dfd24a64725d2698ad0301134acf17b813d97e1 100644 (file)
--- a/ICO/t/t41curmultread.t
+++ b/ICO/t/t41curmultread.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 

diff --git a/ICO/t/t50readfail.t b/ICO/t/t50readfail.t
index 5d3d6e783c5f4ce5f1e21510eb5809c6babe6d4d..37366a60cf117fab5f90b2d26fe6b66b6e60139b 100644 (file)
--- a/ICO/t/t50readfail.t
+++ b/ICO/t/t50readfail.t
@@ -1,6 +1,7 @@
 #!perl -w
 use strict;
 use Imager;
+use lib '../t';
 use Test::More tests => 40;
 
 sub get_data;

diff --git a/ICO/t/t60writefail.t b/ICO/t/t60writefail.t
index 2b4edbef504caf41e08b8835be2f058ec7feb5be..6cc85dec0b6ccf7e0a2e594b15e4bacf640da508 100644 (file)
--- a/ICO/t/t60writefail.t
+++ b/ICO/t/t60writefail.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 69;
 use Imager ':handy';
 

diff --git a/ICO/t/t70icosing.t b/ICO/t/t70icosing.t
index 6a42ec840557cc2e59b18997db9c714d5476dfe5..2a24fd69d4719f851e49c23bb9d0703baa1f4440 100644 (file)
--- a/ICO/t/t70icosing.t
+++ b/ICO/t/t70icosing.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';

diff --git a/ICO/t/t71icomult.t b/ICO/t/t71icomult.t
index fbb2f9e421143941654b43a1ce40169d9cea49e5..3e3aaefd806f92476b454fdb434ccf32038a8097 100644 (file)
--- a/ICO/t/t71icomult.t
+++ b/ICO/t/t71icomult.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';

diff --git a/ICO/t/t72cursing.t b/ICO/t/t72cursing.t
index d8632abc65ed95e9e2940fa830e349bef3f45429..d73cfe629e6ef28acbf7067899ee0fd73ea829b4 100644 (file)
--- a/ICO/t/t72cursing.t
+++ b/ICO/t/t72cursing.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';

diff --git a/ICO/t/t73curmult.t b/ICO/t/t73curmult.t
index b2ba49ed511fcc16aa7348dfd893b9eeaf8f842d..0da6ed600aa3e8a70cf809f0fe459ed72f1748ef 100644 (file)
--- a/ICO/t/t73curmult.t
+++ b/ICO/t/t73curmult.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';

diff --git a/t/t07iolayer.t b/t/t07iolayer.t
index f8ab6504579b65f45a488ee4c0267a6e9575786f..0ce19fd0b092a9015cc7e4f8d07dfe8374414c9d 100644 (file)
--- a/t/t07iolayer.t
+++ b/t/t07iolayer.t
@@ -1,7 +1,9 @@
 #!perl -w
 use strict;
+use lib 't';
 use Test::More tests => 64;
-use Fcntl ':seek';
+# for SEEK_SET etc, Fcntl doesn't provide these in 5.005_03
+use IO::Seekable;
 
 BEGIN { use_ok(Imager => ':all') };
 

diff --git a/t/t69rubthru.t b/t/t69rubthru.t
index 2e49ad90efa512bc55e45ee2af11f6626868cab8..b968b84de3270328ca346076af5d6900522b3474 100644 (file)
--- a/t/t69rubthru.t
+++ b/t/t69rubthru.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib 't';
 use Test::More tests => 28;
 BEGIN { use_ok(Imager => qw(:all :handy)); }
 

diff --git a/t/tr18561.t b/t/tr18561.t
index fb7264fa3288e0be2f09dc363c39dc22b72244e6..7963957899a3597e0563016ebaf911197176c7f6 100644 (file)
--- a/t/tr18561.t
+++ b/t/tr18561.t
@@ -2,6 +2,7 @@
 # regression test for RT issue 18561
 # 
 use strict;
+use lib 't';
 use Test::More tests => 1;
 eval {
   use Imager;

diff --git a/t/tr18561b.t b/t/tr18561b.t
index 6b933894d134680648933c9b47b373abdb477904..130dd5afa5c9bd9eafffa17e486b44dc1aecce7c 100644 (file)
--- a/t/tr18561b.t
+++ b/t/tr18561b.t
@@ -3,6 +3,7 @@
 # the old _color() code could return floating colors in some cases
 # but in most cases the caller couldn't handle it
 use strict;
+use lib 't';
 use Test::More tests => 1;
 eval {
   use Imager;