diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-13 16:31:34 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-13 16:31:34 +0000 |
commit | 434d2535978fdc93cf6e9722bc7f9d272a9c2632 (patch) | |
tree | dd1640d56ae63acd3cdc1ed34863bc656a13dbc3 /t/op/stat.t | |
parent | d132b95fb004c5e3d94e297d3804c90cfef96fed (diff) | |
parent | 8ea97a1e700347a7b6ed9267c8c34f286f94d5d6 (diff) | |
download | perl-434d2535978fdc93cf6e9722bc7f9d272a9c2632.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4798
Diffstat (limited to 't/op/stat.t')
-rwxr-xr-x | t/op/stat.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 0af55bbaab..37237f0bdf 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -14,9 +14,10 @@ print "1..58\n"; $Is_MSWin32 = $^O eq 'MSWin32'; $Is_Dos = $^O eq 'dos'; $Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32; +$Is_Cygwin = $^O eq 'cygwin'; chop($cwd = ($Is_MSWin32 ? `cd` : `pwd`)); -$DEV = `ls -l /dev` unless $Is_Dosish; +$DEV = `ls -l /dev` unless $Is_Dosish or $Is_Cygwin; unlink "Op.stat.tmp"; if (open(FOO, ">Op.stat.tmp")) { @@ -163,7 +164,7 @@ else {print "not ok 33\n";} if (! -b '.') {print "ok 34\n";} else {print "not ok 34\n";} -if ($^O eq 'amigaos' or $Is_Dosish) { +if ($^O eq 'amigaos' or $Is_Dosish or $Is_Cygwin) { print "ok 35 # skipped: no -u\n"; goto tty_test; } |