Bug #19158 for perlindex: 4 little hacks to make perlindex.bat work under WinXP

perlindex.bat is v.v. useful, but under my (WinXP) installation, (v5.8.7 ... ActiveState ... Built Nov 2 2005 08:44:52) it barfed. With following four little hacks it works perfectly. #1 require Pod::Text; import Pod::Text; #2 $opt_cbreak = 0; # RCH edits =1 to =0, which is same as -nocbreak #3 $path =~ s/^C:\\//; $prefix= 'c:'; #4 ($pager)= 'C:\Progra~1\Instal~2\Less\less.exe'; # supposing you have less installed # else notepad ?? $tmp = "$ENV{TEMP}\\perldoc1.$$"; sysopen(OUT, $tmp, O_WRONLY | O_EXCL | O_CREAT, 0600) or die ("Can't open $tmp: $!"); Pod::Text->new()->parse_from_file($path,\*OUT); close OUT or die "can't close $tmp: $!"; system("$pager $tmp"); unlink($tmp); Attached - File RCHperlindex.bat Pasted in below - Output of file compare Best Richard Hardwick +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ File compare: 06/05/2006 15:31:27 File 1: C:\Perl\bin\RCHperlindex.bat File 2: C:\Perl\bin\perlindex.bat *1* Difference: File 1, lines 56 to 59 File 2, lines 51 to 50 File 1 detail: 56: ############################################# 57: # RCH hack 58: require Pod::Text; import Pod::Text; 59: File 2 detail: *2* Difference: File 1, lines 84 to 87 File 2, lines 75 to 75 File 1 detail: 84: 85: ############################################# 86: # RCH hack 87: $opt_cbreak = 0;#RCH edits =1 to =0, which is same as -nocbreak File 2 detail: 75: $opt_cbreak = 1; *3* Difference: File 1, lines 335 to 338 File 2, lines 317 to 316 File 1 detail: 335: # RCH 2005-12-15 07:30 ## 336: $path =~ s/^C:\\//; 337: $prefix= 'c:'; 338: # RCH 2005-12-15 07:30 ## File 2 detail: *4* Difference: File 1, lines 340 to 365 File 2, lines 318 to 319 File 1 detail: 340: ############################################# 341: # RCH hack 342: # This is borrowed from sub printout of perldoc.bat 343: # perldoc.bat line 337 or so 344: # overwriting $pager="more /e" 345: # and $tmp 347: ($pager)= 'C:\Progra~1\Instal~2\Less\less.exe'; ...(comments snipped)... 358: $tmp = "$ENV{TEMP}\\perldoc1.$$"; 359: sysopen(OUT, $tmp, O_WRONLY | O_EXCL | O_CREAT, 0600) 360: or die ("Can't open $tmp: $!"); 361: Pod::Text->new()->parse_from_file($path,\*OUT); 362: close OUT or die "can't close $tmp: $!"; 363: system("$pager $tmp"); 364: unlink($tmp); 365: ############################################# File 2 detail: 318: print STDERR "Running pod2man $path\n"; 319: system "pod2man --official $path | $nroff -man | $pager";