From: "Kent Fredric" <kentfredric@gmail.com>
To: gentoo-commits@lists.gentoo.org
Subject: [gentoo-commits] proj/perl-overlay:master commit in: scripts/lib/
Date: Mon, 14 Nov 2011 02:57:32 +0000 (UTC) [thread overview]
Message-ID: <e01ba77c86e09acec1efa29e06456bfce89e4c69.kent@gentoo> (raw)
commit: e01ba77c86e09acec1efa29e06456bfce89e4c69
Author: Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Mon Nov 14 02:51:16 2011 +0000
Commit: Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Mon Nov 14 02:51:16 2011 +0000
URL: http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=e01ba77c
[scripts/lib] add a few other exception rules to deptools
---
scripts/lib/deptools.pm | 51 ++++++++++++++++++++++++-----------------------
1 files changed, 26 insertions(+), 25 deletions(-)
diff --git a/scripts/lib/deptools.pm b/scripts/lib/deptools.pm
index b85c518..947d5b0 100644
--- a/scripts/lib/deptools.pm
+++ b/scripts/lib/deptools.pm
@@ -47,19 +47,24 @@ sub _vmap_perl_strange {
'Net-Ping' => virtual 'net-ping',
'Pod-Parser' => virtual 'PodParser',
'Config-General' => perl 'config-general',
- 'CGI-Simple' => perl 'Cgi-Simple',
+ 'CGI-Simple' => perl 'Cgi-Simple',
+ 'Text-Template' => perl 'text-template',
);
}
sub _vmap_overlay_native {
return (
- 'Archive-Extract', 'B-Debug', 'B-Lint', 'constant', 'CPAN',
- 'CPANPLUS', 'CPANPLUS-Dist-Build', 'Devel-DProf', 'Devel-PPPort', 'Devel-SelfStubber',
- 'Dumpvalue', 'ExtUtils-Constant', 'ExtUtils-MakeMaker', 'File-Fetch', 'Filter-Simple',
- 'HTTP-Tiny', 'i18n-langtags', 'if', 'IPC-SysV', 'Log-Message',
- 'Log-Message-Simple', 'Math-Complex', 'Module-CoreList', 'NEXT', 'Object-Accessor',
- 'Pod-LaTeX', 'Pod-Perldoc', 'Pod-Plainer', 'SelfLoader', 'Term-UI',
- 'Unicode-Collate', 'Unicode-Normalize',
+ (
+ 'Archive-Extract', 'B-Debug', 'B-Lint', 'constant',
+ 'CPAN', 'CPANPLUS', 'CPANPLUS-Dist-Build', 'Devel-DProf',
+ 'Devel-PPPort', 'Devel-SelfStubber', 'Dumpvalue', 'ExtUtils-Constant',
+ 'ExtUtils-MakeMaker', 'File-Fetch', 'Filter-Simple', 'HTTP-Tiny',
+ 'i18n-langtags', 'if', 'IPC-SysV', 'Log-Message',
+ 'Log-Message-Simple', 'Math-Complex', 'Module-CoreList', 'NEXT',
+ 'Object-Accessor', 'Pod-LaTeX', 'Pod-Perldoc', 'Pod-Plainer',
+ 'SelfLoader', 'Term-UI', 'Unicode-Collate', 'Unicode-Normalize',
+ ),
+ ( 'Exporter', 'base', )
);
}
@@ -98,9 +103,8 @@ sub provider_map {
require dep::specialvs;
my $specialvs = dep::specialvs->new();
-
for my $provider (@providers) {
-
+
next if $provider->is_backpan;
next if $provider->is_dev;
@@ -112,8 +116,8 @@ sub provider_map {
next unless $mod->name eq $wanted->module;
# specials
- $specialvs->set_latest_mod( $provider->distribution , $mod );
- $specialvs->set_newest_mod( $provider->distribution, $mod );
+ $specialvs->set_latest_mod( $provider->distribution, $mod );
+ $specialvs->set_newest_mod( $provider->distribution, $mod );
$specialvs->set_oldest_mod( $provider->distribution, $mod );
if ( $wanted->no_version_dep or $mod->version >= $wanted->version ) {
@@ -128,6 +132,7 @@ sub provider_map {
}
return \%moduleprov, $specialvs;
}
+
sub get_deps {
my ($release) = shift;
@@ -154,7 +159,7 @@ sub get_dep_phases {
$phases{$phase} //= [];
$modules{$module} //= [];
-
+
require Gentoo::PerlMod::Version;
my $v = Gentoo::PerlMod::Version::gentooize_version( $dep->{version}, { lax => 1 } );
@@ -165,7 +170,7 @@ sub get_dep_phases {
}
sub dispatch_dependency_handler {
-
+
my ( $release, $module, $declaration, $feeder ) = @_;
my ( $moduleprov, $specialvs ) = provider_map( $module, $declaration->[0] );
@@ -177,9 +182,8 @@ sub dispatch_dependency_handler {
$feeder->begin_dep( $release, $module, $declaration );
-
- if( $module eq 'perl' ){
- $feeder->perl_dep( $module, $declaration , gentooize_pkg( 'perl', $declaration->[1] ));
+ if ( $module eq 'perl' ) {
+ $feeder->perl_dep( $module, $declaration, gentooize_pkg( 'perl', $declaration->[1] ) );
return $feeder->done;
}
@@ -187,19 +191,16 @@ sub dispatch_dependency_handler {
if ($multi) { $feeder->evt_multi( $module, $declaration ); }
- #pp {
- # moduleprov => $moduleprov,
+ #pp {
+ # moduleprov => $moduleprov,
# specialvs => $specialvs,
# release => $release,
- # module => $module,
+ # module => $module,
# declaration => $declaration,
# latest => $specialvs->latest,
#};
- if( $specialvs->has_latest ) {
- $feeder->set_latest( $specialvs->latest,
- gentooize_pkg( $specialvs->latest->[0],
- $declaration->[1] )
- );
+ if ( $specialvs->has_latest ) {
+ $feeder->set_latest( $specialvs->latest, gentooize_pkg( $specialvs->latest->[0], $declaration->[1] ) );
}
for my $prov ( keys %{$moduleprov} ) {
next reply other threads:[~2011-11-14 2:58 UTC|newest]
Thread overview: 33+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-11-14 2:57 Kent Fredric [this message]
-- strict thread matches above, loose matches on Subject: below --
2014-10-04 20:19 [gentoo-commits] proj/perl-overlay:master commit in: scripts/lib/ Kent Fredric
2014-10-04 20:19 Kent Fredric
2014-10-01 9:44 Kent Fredric
2014-10-01 9:44 Kent Fredric
2014-07-24 2:12 Kent Fredric
2014-08-20 11:03 ` Kent Fredric
2014-07-24 2:12 Kent Fredric
2014-08-20 11:03 ` Kent Fredric
2014-07-24 2:12 Kent Fredric
2013-05-01 22:23 Kent Fredric
2013-05-01 22:23 Kent Fredric
2013-04-26 19:59 Kent Fredric
2013-02-24 6:00 Kent Fredric
2013-02-10 12:18 Kent Fredric
2013-02-09 13:27 Kent Fredric
2013-02-05 12:24 Kent Fredric
2012-07-31 17:10 Kent Fredric
2012-07-31 17:10 Kent Fredric
2012-06-10 7:17 Kent Fredric
2012-04-06 20:43 Kent Fredric
2012-03-27 9:30 Kent Fredric
2012-03-03 11:58 Kent Fredric
2012-02-28 21:55 Kent Fredric
2012-02-28 21:55 Kent Fredric
2012-02-28 12:02 Kent Fredric
2012-02-27 21:01 Kent Fredric
2012-02-23 7:05 Kent Fredric
2012-02-23 7:05 Kent Fredric
2012-02-15 10:58 Kent Fredric
2012-01-06 16:38 Kent Fredric
2011-10-31 8:46 Kent Fredric
2011-10-25 19:46 Kent Fredric
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=e01ba77c86e09acec1efa29e06456bfce89e4c69.kent@gentoo \
--to=kentfredric@gmail.com \
--cc=gentoo-commits@lists.gentoo.org \
--cc=gentoo-dev@lists.gentoo.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox