diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-03-02 18:49:18 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-03-02 19:44:06 -0500 |
| commit | c9cc59407affa7b6b624f2ef91a6a1507a2fcab5 (patch) | |
| tree | cbb90124d3c690fe3e96505972e641047b9517f4 /lib | |
| parent | cf412c929ccc10fe9df362c9d8a889b1f99f59ff (diff) | |
| download | perl-c9cc59407affa7b6b624f2ef91a6a1507a2fcab5.tar.gz | |
Defaulting to VMS is probably not right.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 67ad3d1d0e..aa06a758eb 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1560,10 +1560,15 @@ We then determine what the console should be on various systems: =cut - else { + elsif ($^O eq 'VMS') { + $console = 'sys$command'; + } + +# Keep this last. - # everything else is ... - $console = "sys\$command"; + else { + _db_warn("Can't figure out your console, using stdin"); + undef $console; } =pod |