diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-07-08 13:14:05 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 08:36:27 +0000 |
| commit | 8bafa73588ba25326f9c8e2987e930b62d25444f (patch) | |
| tree | 18b526c68f814b842f03553e0e7f22ab47352ea9 /lib/Pod | |
| parent | 3ea7755680302231fb5fb2feb962b211d651338f (diff) | |
| download | perl-8bafa73588ba25326f9c8e2987e930b62d25444f.tar.gz | |
warnings, line numbers & windows
Message-ID: <12022.1057655645@www59.gmx.net>
p4raw-id: //depot/perl@20068
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Text/Termcap.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Pod/Text/Termcap.pm b/lib/Pod/Text/Termcap.pm index f0187f24ca..61453e2510 100644 --- a/lib/Pod/Text/Termcap.pm +++ b/lib/Pod/Text/Termcap.pm @@ -44,8 +44,10 @@ sub initialize { my ($ospeed, $term, $termios); # The default Term::Cap path won't work on Solaris. - $ENV{TERMPATH} = "$ENV{HOME}/.termcap:/etc/termcap" - . ":/usr/share/misc/termcap:/usr/share/lib/termcap"; + # $ENV{HOME} is usually not set on MSWin32. + my $home = exists $ENV{HOME} ? "$ENV{HOME}/.termcap:" : ''; + $ENV{TERMPATH} = $home . '/etc/termcap:/usr/share/misc/termcap' + . ':/usr/share/lib/termcap'; # Fall back on a hard-coded terminal speed if POSIX::Termios isn't # available (such as on VMS). |