diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2002-07-03 07:56:05 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-07-04 10:19:11 +0000 |
| commit | 1feb1812070a7e60b7ba9bdbf416adcf10c7b764 (patch) | |
| tree | d006379ae13fc15e0a46ed233a8bffebb782e61a /ext/Fcntl | |
| parent | da23663c86d14cc7395fe6c1d13b0871bc772995 (diff) | |
| download | perl-1feb1812070a7e60b7ba9bdbf416adcf10c7b764.tar.gz | |
Re: autom4te and perl 5.8.0
Message-ID: <Pine.SOL.4.10.10207031150540.6601-100000@maxwell.phys.lafayette.edu>
(with an additional paranoid nit : skip test unless -c $devnull)
p4raw-id: //depot/perl@17398
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/t/fcntl.t | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/ext/Fcntl/t/fcntl.t b/ext/Fcntl/t/fcntl.t index 02fd95823e..d5d772f235 100644 --- a/ext/Fcntl/t/fcntl.t +++ b/ext/Fcntl/t/fcntl.t @@ -12,7 +12,7 @@ BEGIN { use Fcntl; -print "1..6\n"; +print "1..7\n"; print "ok 1\n"; @@ -45,7 +45,24 @@ if (sysopen(my $wo, "fcntl$$", O_WRONLY|O_CREAT)) { print "not ok 2 # sysopen O_WRONLY failed: $!\n"; } +# Opening of character special devices gets special treatment in doio.c +# Didn't work as of perl-5.8.0-RC2. +use File::Spec; # To portably get /dev/null + +my $devnull = File::Spec->devnull; +if (-c $devnull) { + if (sysopen(my $wo, $devnull, O_WRONLY)) { + print "ok 7 # open /dev/null O_WRONLY\n"; + close($wo); + } + else { + print "not ok 7 # open /dev/null O_WRONLY\n"; + } +} +else { + print "ok 7 # Skipping /dev/null sysopen O_WRONLY test\n"; +} + END { 1 while unlink "fcntl$$"; } - |