Skip Menu |
 

This queue is for tickets about the pmtools CPAN distribution.

Report information
The Basics
Id: 50644
Status: resolved
Worked: 3 hours (180 min)
Priority: 0/
Queue: pmtools

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.10
Fixed in: (no value)

Attachments
note-pmtools-1.10-pminst.patch.txt



Subject: pminst duplication and MSWin32-x86-multi-thread::XML::Parser
Download (untitled) / with headers
text/plain 587b
The problem and solution $ perl pminst |grep XML::Parser$ XML::Parser MSWin32-x86-multi-thread::XML::Parser $ perl pminst -l |grep XML.Parser.pm$ C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/XML/Parser.pm C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/XML/Parser.pm $ perl -le"print for @INC" C:/perl/5.10.1/lib/MSWin32-x86-multi-thread C:/perl/5.10.1/lib C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread C:/perl/site/5.10.1/lib . $ patch -p1 < note-pmtools-1.10-pminst.patch.txt patching file pminst $ perl pminst |grep XML::Parser$ XML::Parser $ perl pminst |grep MSWin $
Subject: note-pmtools-1.10-pminst.patch.txt
diff -ruN pmtools-1.10/pminst pmtools-1.10-new/pminst --- pmtools-1.10/pminst 2009-10-19 03:55:19.671875000 -0700 +++ pmtools-1.10-new/pminst 2009-10-19 03:57:05.421875000 -0700 @@ -27,11 +27,22 @@ } sub wanted { - if (-d && /^[a-z]/) { - # this is so we don't go down site_perl etc too early - $File::Find::prune = 1; - return; + #if (-d && /^[a-z]/) { + if( -d ) { + my $in_inc = 0; + for my $inc( @INC ) { + if( $inc =~ /^\Q$startdir/ ){ + $in_inc++ + } + } + + if( /^[a-z]/ or $in_inc > 1) { + # this is so we don't go down site_perl etc too early + $File::Find::prune = 1; + return; + } } + return unless /\.pm$/; local $_ = $File::Find::name; ($tmpname = $_) =~ s{^\Q$startdir/}{};


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.