Fungii wrote:
----- Original Message ----- From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Fungii" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, April 29, 2004 9:00 PM
Subject: Re: Perldoc on Win98


cd D:\perl\site\lib\Pod\
copy Perldoc.pm Perldoc.pm.orig
attrib -r Perldoc.pm
edit Perldoc.pm

If you get it to work, make a diff of the changes:


I got it to work.

Great.


One space, all I had to do was delete one space!
In the function 'page' line 1500:

last if system("$pager \"$output\"") == 0;

Changed to:

last if system("$pager\"$output\"") == 0;

(Deleted the space between $pager and \"$output\".)

That's odd. 'system' has always been sorta messed up on Windows with non-standard behaviours & undocumented behaviours, but I don't get this one. One thing I've learned with regard to 'system' when working with Ken Williams to help on a few aspects of Module::Build & ExtUtils::CBuilder is that the 'system' call seems to behave much more reliably when you use the LIST form. You might want to give it a try, and possibly mention it as a possiblility to Sean.


A quick way to go about it would be to use Text::ParseWords (Core module) to break the string into a shell like series of arguments at the point of the call to system. Ideally, the code could be modified to keep the arguments separate throughout, but that's a bigger project, and I'd check with Sean first.

Again, it's great you tracked down the problem. Too many people spend time trying to find their way around problems instead of fixing them and contributing back to the community.

Thanks,
Randy.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to