[gentoo-commits] proj/perl-overlay:master commit in: eclass/

[Torsten Veller]

commit:     d1606e0e72565de8b26cc098033f52e97ccc311a
Author:     Torsten Veller <tove <AT> gentoo <DOT> org>
AuthorDate: Tue Jun  5 18:19:42 2012 +0000
Commit:     Torsten Veller <tove <AT> gentoo <DOT> org>
CommitDate: Tue Jun  5 18:19:42 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=d1606e0e

Use EBUILD_DEATH_HOOKS

This should probably improved:
- perl-info should be maintained better
- Version-Requirements returns a deprecation warning

---
 eclass/perl-module.eclass |   34 ++++++++++++++++++++++++++++++++++
 1 files changed, 34 insertions(+), 0 deletions(-)

diff --git a/eclass/perl-module.eclass b/eclass/perl-module.eclass
index 76ba26c..23c6809 100644
--- a/eclass/perl-module.eclass
+++ b/eclass/perl-module.eclass
@@ -285,6 +285,40 @@ perlinfo() {
 	perl_set_version
 }
 
+has perl_diagnostics ${EBUILD_DEATH_HOOKS} || EBUILD_DEATH_HOOKS+=" perl_diagnostics"
+
+perl_diagnostics() {
+	local d
+	d=${T}/perl-diagnostics.log
+	[[ -e ${d} ]] && return
+	: > $d
+
+	{
+		echo "perl: $(type -p perl)"
+		echo
+		echo "ENV values:"
+		env | grep -E '^(PERL|HOME=|MANPATH|PATH|TEST|GENTOO_PERL)'
+		echo
+		echo "perl -V:"
+		perl -V 2>&1
+		echo
+		if type -p perl-info 2>/dev/null ; then
+			echo "perl-info output:"
+			echo
+			perl-info
+			echo
+		fi
+		echo "Corelist Versions:"
+		perl -MModule::CoreList -e 'for $mod ( Module::CoreList->find_modules(qr/^/) ) { eval "require $mod; print q[$mod : ] . \$${mod}::VERSION . qq[\n]; 1" or print qq{\e[31mNA: $mod\e[0m\n};}'
+	} >> $d
+
+	eerror
+	eerror "-- Gentoo Perl Team specific bug reporting request --"
+	eerror "Please attach the contents of the following file with your bug report:"
+	eerror " $d"
+	eerror
+}
+
 perl_check_module_version() {
 	local REAL_PV
 	local gpmv="$(type -p gentoo-perlmod-version.pl)"