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 (file)
--- 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}' );
 }