Skip Menu |
 

This queue is for tickets about the perlindex CPAN distribution.

Report information
The Basics
Id: 19158
Status: new
Priority: 0/
Queue: perlindex

People
Owner: Nobody in particular
Requestors: rch [...] skynet.be
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: 4 little hacks to make perlindex.bat work under WinXP
Download (untitled) / with headers
text/plain 2.8k
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";
Subject: RCHperlindex.bat
Download RCHperlindex.bat
application/octet-stream 18.3k

Message body not shown because it is not plain text.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.