diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 20:34:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 20:34:36 +0000 |
| commit | bf25f2b50fbae0ff3232f944043a1f9b1e545fb5 (patch) | |
| tree | 226283cb3e48cd21f37fb407d84618f41f85a7c0 /lib | |
| parent | 9539f6108f2e901fde18a066bd1d54414bbb7af6 (diff) | |
| download | perl-bf25f2b50fbae0ff3232f944043a1f9b1e545fb5.tar.gz | |
VMS tweakage from Charles Lane.
. command.com doubles an output line when prompting for extensions
. Term::Cap has no business trying to run obscure Un*x utilities on VMS
. perl5db doesn't clean up after itself
p4raw-id: //depot/perl@12385
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/Cap.pm | 6 | ||||
| -rw-r--r-- | lib/perl5db.pl | 10 |
2 files changed, 14 insertions, 2 deletions
diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm index 550f7fae29..3c545d6fb9 100644 --- a/lib/Term/Cap.pm +++ b/lib/Term/Cap.pm @@ -173,7 +173,11 @@ sub Tgetent { ## public -- static method { # last resort--fake up a termcap from terminfo local $ENV{TERM} = $term; - $entry = `infocmp -C 2>/dev/null`; + if ($^O ne 'VMS') { + $entry = `infocmp -C 2>/dev/null`; + } else { + $entry = undef; + } } croak "Can't find a valid termcap file" unless @termcap_path || $entry; diff --git a/lib/perl5db.pl b/lib/perl5db.pl index aa475d884d..aab1a68abf 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -721,7 +721,7 @@ EOP next CMD; } } - $cmd =~ /^q$/ && ($fall_off_end = 1) && exit $?; + $cmd =~ /^q$/ && ($fall_off_end = 1) && clean_ENV() && exit $?; $cmd =~ /^h$/ && do { print_help($help); next CMD; }; @@ -3008,6 +3008,14 @@ sub end_report { print $OUT "Use `q' to quit or `R' to restart. `h q' for details.\n" } +sub clean_ENV { + if (defined($ini_pids)) { + $ENV{PERLDB_PIDS} = $ini_pids; + } else { + delete($ENV{PERLDB_PIDS}); + } +} + END { $finished = 1 if $inhibit_exit; # So that some keys may be disabled. $fall_off_end = 1 unless $inhibit_exit; |