From: Molnar Laszlo <molnarl@cdata.tvnet.hu>
Date: Tue, 6 Jan 1998 18:14:59 +0000 (+0100)
Subject: Fix utils/perldoc.PL for dos-djgpp:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0151c6efc77004eadcc86505e0e29b10208d3f66;p=p5sagit%2Fp5-mst-13.2.git

Fix utils/perldoc.PL for dos-djgpp:
	Subject: 5.004_56: perldoc.PL dos-djgpp patches

p4raw-id: //depot/perl@402
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 3acb461..76385e2 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -64,6 +64,7 @@ $global_target = "";
 
 $Is_VMS = $^O eq 'VMS';
 $Is_MSWin32 = $^O eq 'MSWin32';
+$Is_Dos = $^O eq 'dos';
 
 sub usage{
     warn "@_\n" if @_;
@@ -111,7 +112,7 @@ usage if $opt_h || $opt_h; # avoid -w warning
 
 if ($opt_t + $opt_u + $opt_m + $opt_l > 1) {
     usage("only one of -t, -u, -m or -l")
-} elsif ($Is_MSWin32) {
+} elsif ($Is_MSWin32 || $Is_Dos) {
     $opt_t = 1 unless $opt_t + $opt_u + $opt_m + $opt_l;
 }
 
@@ -151,7 +152,7 @@ sub containspod {
 sub minus_f_nocase {
      my($file) = @_;
      # on a case-forgiving file system we can simply use -f $file
-     if ($Is_VMS or $Is_MSWin32 or $^O eq 'os2') {
+     if ($Is_VMS or $Is_MSWin32 or $Is_Dos or $^O eq 'os2') {
         return $file if -f $file and -r _;
 	warn "Ignored $file: unreadable\n" if -f _;
 	return '';
@@ -224,7 +225,7 @@ sub searchfor {
 		     $ret = check_file "$dir/$s.com")
 		or ( $^O eq 'os2' and 
 		     $ret = check_file "$dir/$s.cmd")
-		or ( ($Is_MSWin32 or $^O eq 'os2') and 
+		or ( ($Is_MSWin32 or $Is_Dos or $^O eq 'os2') and
 		     $ret = check_file "$dir/$s.bat")
 		or ( $ret = check_file "$dir/pod/$s.pod")
 		or ( $ret = check_file "$dir/pod/$s")
@@ -320,6 +321,11 @@ if ($Is_MSWin32) {
 } elsif ($Is_VMS) {
 	$tmp = 'Sys$Scratch:perldoc.tmp1_'.$$;
 	push @pagers, qw( most more less type/page );
+} elsif ($Is_Dos) {
+	$tmp = "$ENV{TEMP}/perldoc1.$$";
+	$tmp =~ tr!\\/!//!s;
+	push @pagers, qw( less.exe more.com< );
+	unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
 } else {
 	if ($^O eq 'os2') {
 	  require POSIX;