diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2006-12-13 10:32:22 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-18 11:47:56 +0000 |
| commit | 295d5f02f7120b75c639212780c96fcd67ffb3d6 (patch) | |
| tree | a44f8e16930764c93d17f0f7918f6353d84862e0 /ext | |
| parent | 2563cec55ae473562ff3ccda41cd10289db419be (diff) | |
| download | perl-295d5f02f7120b75c639212780c96fcd67ffb3d6.tar.gz | |
Fixes for the test suite on OS/2
Message-ID: <20061214023222.GA29084@powdermilk.math.berkeley.edu>
p4raw-id: //depot/perl@29578
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/t/io_unix.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/IO/t/io_unix.t b/ext/IO/t/io_unix.t index 6d77062a64..33ee05675b 100644 --- a/ext/IO/t/io_unix.t +++ b/ext/IO/t/io_unix.t @@ -38,6 +38,13 @@ BEGIN { $PATH = "sock-$$"; +if ($^O eq 'os2') { # Can't create sockets with relative path... + require Cwd; + my $d = Cwd::cwd(); + $d =~ s/^[a-z]://i; + $PATH = "$d/$PATH"; +} + # Test if we can create the file within the tmp directory if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') { print "1..0 # Skip: cannot open '$PATH' for write\n"; |