minor changes for compatibility with 5.005_03
authorTony Cook <tony@develop=help.com>
Wed, 5 Jul 2006 11:41:04 +0000 (11:41 +0000)
committerTony Cook <tony@develop=help.com>
Wed, 5 Jul 2006 11:41:04 +0000 (11:41 +0000)
17 files changed:
ICO/ICO.xs
ICO/t/t10icon.t
ICO/t/t20readone.t
ICO/t/t21readmult.t
ICO/t/t30cursor.t
ICO/t/t40readcurone.t
ICO/t/t41curmultread.t
ICO/t/t50readfail.t
ICO/t/t60writefail.t
ICO/t/t70icosing.t
ICO/t/t71icomult.t
ICO/t/t72cursing.t
ICO/t/t73curmult.t
t/t07iolayer.t
t/t69rubthru.t
t/tr18561.t
t/tr18561b.t

index bb23981..0baa43a 100644 (file)
@@ -4,6 +4,7 @@
 #include "imext.h"
 #include "imperl.h"
 #include "imicon.h"
+#include "ppport.h"
 
 DEFINE_IMAGER_CALLBACKS;
 
index dd37858..141d216 100644 (file)
@@ -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
index 9fc04c8..a3da5c1 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 
index 1a62c6e..3670db1 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 
index d5bde95..7d00b40 100644 (file)
@@ -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;
 
index 65232e4..2cee11b 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 
index a5fdab6..5dfd24a 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 
index 5d3d6e7..37366a6 100644 (file)
@@ -1,6 +1,7 @@
 #!perl -w
 use strict;
 use Imager;
+use lib '../t';
 use Test::More tests => 40;
 
 sub get_data;
index 2b4edbe..6cc85de 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 69;
 use Imager ':handy';
 
index 6a42ec8..2a24fd6 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';
index fbb2f9e..3e3aaef 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';
index d8632ab..d73cfe6 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';
index b2ba49e..0da6ed6 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib '../t';
 use Test::More tests => 1;
 use Imager;
 require '../t/testtools.pl';
index f8ab650..0ce19fd 100644 (file)
@@ -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') };
 
index 2e49ad9..b968b84 100644 (file)
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib 't';
 use Test::More tests => 28;
 BEGIN { use_ok(Imager => qw(:all :handy)); }
 
index fb7264f..7963957 100644 (file)
@@ -2,6 +2,7 @@
 # regression test for RT issue 18561
 # 
 use strict;
+use lib 't';
 use Test::More tests => 1;
 eval {
   use Imager;
index 6b93389..130dd5a 100644 (file)
@@ -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;