Enhancements to debugger, Term::ReadLine, Term::Cap

[p5sagit/p5-mst-13.2.git] / lib / Term / Cap.pm

diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm
index 0b3b4aa..388f0ed 100644 (file)
--- a/lib/Term/Cap.pm
+++ b/lib/Term/Cap.pm
@@ -105,7 +105,9 @@ sub termcap_path { ## private
     my @termcap_path;
     # $TERMCAP, if it's a filespec
     push(@termcap_path, $ENV{TERMCAP}) if ((exists $ENV{TERMCAP}) &&
-                                           ($ENV{TERMCAP} =~ /^\//));
+                                           ($ENV{TERMCAP} =~ /^\//
+                                           or $^O eq 'os2' and
+                                           $ENV{TERMCAP} =~ /^[a-z]:\//i));
     if ((exists $ENV{TERMPATH}) && ($ENV{TERMPATH})) {
        # Add the users $TERMPATH
        push(@termcap_path, split(/(:|\s+)/, $ENV{TERMPATH}))