From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from pigeon.gentoo.org ([208.92.234.80] helo=lists.gentoo.org) by finch.gentoo.org with esmtp (Exim 4.60) (envelope-from ) id 1RwTnL-0007Pq-4d for garchives@archives.gentoo.org; Sun, 12 Feb 2012 07:24:25 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id F08B9E055D; Sun, 12 Feb 2012 07:22:59 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id B0328E055C for ; Sun, 12 Feb 2012 07:22:59 +0000 (UTC) Received: from hornbill.gentoo.org (hornbill.gentoo.org [94.100.119.163]) (using TLSv1 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp.gentoo.org (Postfix) with ESMTPS id F06F81B400A for ; Sun, 12 Feb 2012 07:22:58 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by hornbill.gentoo.org (Postfix) with ESMTP id 9248AE5406 for ; Sun, 12 Feb 2012 07:22:56 +0000 (UTC) From: "Kent Fredric" To: gentoo-commits@lists.gentoo.org Content-type: text/plain; charset=UTF-8 Reply-To: gentoo-dev@lists.gentoo.org, "Kent Fredric" Message-ID: Subject: [gentoo-commits] proj/perl-overlay:master commit in: scripts/ X-VCS-Repository: proj/perl-overlay X-VCS-Files: scripts/gen_ebuild.pl X-VCS-Directories: scripts/ X-VCS-Committer: kent X-VCS-Committer-Name: Kent Fredric X-VCS-Revision: b6c34a07e3e80260db3571c14015f3c7e53e137a Date: Sun, 12 Feb 2012 07:22:56 +0000 (UTC) Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-Id: Gentoo Linux mail X-BeenThere: gentoo-commits@lists.gentoo.org Content-Transfer-Encoding: quoted-printable X-Archives-Salt: 22775cc8-28d1-43f6-a178-9408033f2b80 X-Archives-Hash: 7e63f9ddf56b83cd38bb1af9f4e3fbf6 commit: b6c34a07e3e80260db3571c14015f3c7e53e137a Author: Kent Fredric gmail com> AuthorDate: Sun Feb 12 02:05:10 2012 +0000 Commit: Kent Fredric gmail com> CommitDate: Sun Feb 12 02:05:10 2012 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3Db6c34a07 [scripts] gen_ebuild more verbose error handling --- scripts/gen_ebuild.pl | 33 ++++++++++++++++++++++++++++----- 1 files changed, 28 insertions(+), 5 deletions(-) diff --git a/scripts/gen_ebuild.pl b/scripts/gen_ebuild.pl index 87d91d7..e8635b6 100755 --- a/scripts/gen_ebuild.pl +++ b/scripts/gen_ebuild.pl @@ -10,6 +10,7 @@ use FindBin; use lib "$FindBin::Bin/lib"; use env::gentoo::perl_experimental; use utf8; +use Data::Dump qw( pp ); =20 my $env =3D env::gentoo::perl_experimental->new(); my $flags; @@ -145,20 +146,32 @@ else { $fh->say('IUSE=3D""'); } =20 +pp($handler2); + if ( $handler2->has_cdeps ) { $fh->say('perl_meta_configure() {'); for my $dep ( @{ $handler2->cdeps } ) { $fh->say( "\t# " . $dep->{dep} ); - $fh->say( "\techo " . $dep->{install} ); + if ( not defined $dep->{install} ) { + $fh->say( "\t#echo unresolved"); + warn "cdep " . $dep->{dep} . " was not resolved to a dependency"; + } else { + $fh->say( "\techo " . $dep->{install} ); + } } $fh->say('}'); push @{$depends}, '$(perl_meta_configure)'; } if ( $handler2->has_bdeps ) { $fh->say('perl_meta_build() {'); - for my $dep ( @{ $handler2->bdeps } ) { + for my $dep ( @{ $handler2->bdeps } ) {=20 $fh->say( "\t# " . $dep->{dep} ); - $fh->say( "\techo " . $dep->{install} ); + if ( not defined $dep->{install} ) { + $fh->say( "\t#echo unresolved"); + warn "bdep " . $dep->{dep} . " was not resolved to a dependency"; + } else { + $fh->say( "\techo " . $dep->{install} ); + } } $fh->say('}'); push @{$depends}, '$(perl_meta_build)'; @@ -168,7 +181,12 @@ if ( $handler2->has_rdeps ) { $fh->say('perl_meta_runtime() {'); for my $dep ( @{ $handler2->rdeps } ) { $fh->say( "\t# " . $dep->{dep} ); - $fh->say( "\techo " . $dep->{install} ); + if ( not defined $dep->{install} ) { + $fh->say( "\t#echo unresolved"); + warn "rdep: " . $dep->{dep} . " was not resolved to a dependency"; + } else { + $fh->say( "\techo " . $dep->{install} ); + } } $fh->say('}'); push @{$depends}, '$(perl_meta_runtime)'; @@ -179,7 +197,12 @@ if ( $handler2->has_tdeps ) { $fh->say('perl_meta_test() {'); for my $dep ( @{ $handler2->tdeps } ) { $fh->say( "\t# " . $dep->{dep} ); - $fh->say( "\techo " . $dep->{install} ); + if ( not defined $dep->{install} ) { + $fh->say( "\t#echo unresolved"); + warn "tdep: " . $dep->{dep} . " was not resolved to a dependency"; + } else { + $fh->say( "\techo " . $dep->{install} ); + } } $fh->say('}'); push @{$depends}, 'test? ( $(perl_meta_test) )';