summaryrefslogtreecommitdiff
path: root/lib/Term
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2001-10-26 15:34:31 +0000
committerGurusamy Sarathy <gsar@cpan.org>2001-10-26 15:34:31 +0000
commit26ca33de5eb0a460b46f4ed20a6b5d2124faf109 (patch)
treecc88ceda284749589c34c11be5a00632c7b443ba /lib/Term
parent63141bc47db9953e6097684fabf56f36dd452e86 (diff)
downloadperl-26ca33de5eb0a460b46f4ed20a6b5d2124faf109.tar.gz
Term/Cap.t attempts to access the floppy drive for no good reason
on dosish systems p4raw-id: //depot/perl@12695
Diffstat (limited to 'lib/Term')
-rw-r--r--lib/Term/Cap.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 86198dc791..438a144f09 100644
--- a/lib/Term/Cap.t
+++ b/lib/Term/Cap.t
@@ -42,7 +42,7 @@ SKIP: {
ok( grep($file, Term::Cap::termcap_path()),
'termcap_path() should find file from $ENV{TERMCAP}' );
- $ENV{TERMCAP} = (grep { $^O eq $_ } qw( os2 MSWin32 dos )) ? 'a:/' : '/';
+ $ENV{TERMCAP} = '/';
ok( grep($file, Term::Cap::termcap_path()),
'termcap_path() should find file from $ENV{TERMPATH}' );
}