diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-16 17:32:16 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-11-02 18:01:42 +0000 |
| commit | 4457f3fc414965b3f281e91fc2e24332a7149345 (patch) | |
| tree | 35f0c3c918d5d42cc3c65e6652eb389a3970bbd5 /lib/perl5db.pl | |
| parent | b53d6a00df0da96446042ea510b013d59cf81109 (diff) | |
| download | perl-4457f3fc414965b3f281e91fc2e24332a7149345.tar.gz | |
Remove DOS/DJGPP support
DJGPP is a port of the GNU toolchain to 32-bit x86 systems running DOS.
The last known attempt to build Perl on it was on 5.20, which only got
as far as building miniperl.
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 77c9407135..c9fddcbcc1 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -531,7 +531,7 @@ BEGIN { use vars qw($VERSION $header); # bump to X.XX in blead, only use X.XX_XX in maint -$VERSION = '1.62'; +$VERSION = '1.67'; $header = "perl5db.pl version $VERSION"; @@ -1541,7 +1541,7 @@ We then determine what the console should be on various systems: =cut - elsif ( $^O eq 'dos' or -e "con" or $^O eq 'MSWin32' ) { + elsif ( -e "con" or $^O eq 'MSWin32' ) { $console = "con"; } @@ -8969,7 +8969,7 @@ Just checks the contents of C<$^O> and sets the C<$doccmd> global accordingly. =cut sub setman { - $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos)\z/s + $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|amigaos|riscos)\z/s ? "man" # O Happy Day! : "perldoc"; # Alas, poor unfortunates } ## end sub setman |