Skip Menu |

This queue is for tickets about the OrePAN CPAN distribution.

Report information
The Basics
Id: 104460
Status: new
Priority: 0/
Queue: OrePAN
People
Owner: Nobody in particular
Requestors: PERLANCAR [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Fri May 15 07:17:20 2015 PERLANCAR [...] cpan.org - Ticket created
Subject: Only support directory no_index, no support for file/package/namespace
Currently OrePAN (0.08 as of this writing) only supports skipping directories ($meta->{no_index}{directory}) and does not support other types (file, package, namespace).
  Fri May 15 07:27:59 2015 PERLANCAR [...] cpan.org - Correspondence added
On Fri May 15 07:17:20 2015, PERLANCAR wrote: Show quoted text
> Currently OrePAN (0.08 as of this writing) only supports skipping > directories ($meta->{no_index}{directory}) and does not support other > types (file, package, namespace).
Here's a patch to add support for no_index of type file. I need this to add my dist Perinci-CmdLine-Any-Bundled which contains this type of no_index. Please review. Thanks. perlancar
  Fri May 15 07:28:11 2015 PERLANCAR [...] cpan.org - Correspondence added
On Fri May 15 07:17:20 2015, PERLANCAR wrote: Show quoted text
> Currently OrePAN (0.08 as of this writing) only supports skipping > directories ($meta->{no_index}{directory}) and does not support other > types (file, package, namespace).
Here's a patch to add support for no_index of type file. I need this to add my dist Perinci-CmdLine-Any-Bundled which contains this type of no_index. Please review. Thanks. perlancar
Subject: OrePAN-Archive-0.08-support_no_index_file.patch
--- /home/s1/perl5/perlbrew/perls/perl-5.18.4/lib/site_perl/5.18.4/OrePAN/Archive.pm.orig 2015-05-15 18:22:09.845340606 +0700 +++ /home/s1/perl5/perlbrew/perls/perl-5.18.4/lib/site_perl/5.18.4/OrePAN/Archive.pm 2015-05-15 18:24:53.632789971 +0700 @@ -182,6 +182,8 @@ my $ignore_dirs = $meta->{no_index} && $meta->{no_index}->{directory} ? $meta->{no_index}->{directory} : []; my @ignore_dirs = ref $ignore_dirs ? @$ignore_dirs : [$ignore_dirs]; push @ignore_dirs, "t","xt", 'contrib', 'examples','inc','share','private', 'blib'; + my $ignore_files = $meta->{no_index} && $meta->{no_index}->{file} ? $meta->{no_index}->{file} : []; + my @ignore_files = ref $ignore_files ? @$ignore_files : [$ignore_files]; infof("files"); my $archive = $self->archive; my @files = @{$self->files()}; @@ -191,6 +193,7 @@ my $quote = quotemeta($archive); next if any { $file =~ m{^$quote/$_/} } @ignore_dirs; next if $file !~ /\.pm(?:\.PL)?$/; + next if any { $file =~ m{^$quote/$_$} } @ignore_files; infof("parsing: $file"); my ( $pkg, $ver) = _parse_version($file); infof("parsed: %s version: %s", $pkg || 'unknown', $ver || 'none'); @@ -280,4 +283,3 @@ } 1; -