From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 26 Oct 2001 15:34:31 +0000 (+0000)
Subject: Term/Cap.t attempts to access the floppy drive for no good reason
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26ca33de5eb0a460b46f4ed20a6b5d2124faf109;p=p5sagit%2Fp5-mst-13.2.git

Term/Cap.t attempts to access the floppy drive for no good reason
on dosish systems

p4raw-id: //depot/perl@12695
---

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 86198dc..438a144 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}' );
 }