From:	s0052mol AT ural2 DOT vsz DOT bme DOT hu (Molnar Laszlo)
Newsgroups:	comp.os.msdos.djgpp
Subject:	Re: perl for djgpp
Date:	1 Oct 1997 18:59:29 GMT
Organization:	Technical University of Budapest
Distribution:	world
Message-ID:	<60u6ih$hq4$1@goliat.eik.bme.hu>
References:	<3431BA57 DOT 427D AT primenet DOT com>
NNTP-Posting-Host:	ural2.hszk.bme.hu
Lines:	47
To:	djgpp AT delorie DOT com
DJ-Gateway:	from newsgroup comp.os.msdos.djgpp

Smith A. Cat (imbe AT primenet DOT com) wrote:
: since other people found the problem in perldoc also, i don't feel so
: bad about having been told it didn't exist.

My problem was, that you forgot to mention what was your problem with
perldoc. You only said: change this and this, and everything works fine.
And I said that perldoc works for me without your changes, and that was
true. And I think using "$$" (the string format of PID) as filename
extension should work under DOS, because DOS will truncate the filename if
neccessary. Of course I can be wrong, but I didn't get any report about
this situation. 

Meanwhile I got reports from some people about another problem (I assume
this is a different problem, because your patch didn't solve this). The 
problem is that if you set SHELL=path_of_bash, then perldoc CAN fail,
because bash removes the '\' characters from the command line of the
pager. It didn't failed for ->ME<-, because I have TEMP=e:\, and less.exe
and more.com still worked.  But with the detailed bug reports I was able
reproduce the problem. 

Here is the patch that works for ->ME<- (thanks to Teun Burgers):

*** perldoc.~   Tue Sep 23 22:09:12 1997
--- perldoc     Wed Oct  1 19:17:40 1997
***************
*** 231,236 ****
        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};
--- 231,236 ----
        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};
 
-------

If this doesn't solve your problem, then please send me a detailed bug
report (include your autoexec.bat, config.sys, djgpp.env and everything
you think that can be important). 

Laszlo Molnar

- Raw text -