5.005_03 compatible use of mkdir

diff --git a/SGI/t/10read.t b/SGI/t/10read.t
index 875bcffdaa93fd6231950305974225046018d9b5..f5f2abe7bccb792afe28b251fe26d46a3d361087 100644 (file)
--- a/SGI/t/10read.t
+++ b/SGI/t/10read.t
@@ -4,7 +4,7 @@ use Imager;
 use Imager::Test qw(is_image is_color3);
 use Test::More tests => 103;
 
 use Imager::Test qw(is_image is_color3);
 use Test::More tests => 103;
 

--d 'testout' or mkdir 'testout';
+-d 'testout' or mkdir 'testout', 0777;

 
 Imager::init_log('testout/10read.log', 2);
 
 
 Imager::init_log('testout/10read.log', 2);
 

diff --git a/SGI/t/20write.t b/SGI/t/20write.t
index 7a140c3f13e35c1a173aeefee62021c453976f69..1ca6aef024fb6829e26b2383220d6b0bc21742cf 100644 (file)
--- a/SGI/t/20write.t
+++ b/SGI/t/20write.t
@@ -5,7 +5,7 @@ use Test::More tests => 51;
 use Imager::Test qw(test_image test_image_16 is_image);
 use IO::Seekable;
 
 use Imager::Test qw(test_image test_image_16 is_image);
 use IO::Seekable;
 

--d 'testout' or mkdir 'testout';
+-d 'testout' or mkdir 'testout', 0777;

 
 Imager::init_log('testout/20write.log', 2);
 
 
 Imager::init_log('testout/20write.log', 2);