diff options
| author |   Torsten Veller <tove@gentoo.org> | 2012-06-05 20:19:42 +0200 |
|---|---|---|
| committer | Torsten Veller <tove@gentoo.org> | 2012-06-05 20:19:42 +0200 |
| commit | d1606e0e72565de8b26cc098033f52e97ccc311a (patch) | |
| tree | 458da98a285ff81063bd700bf48922a555426afc /eclass/perl-module.eclass | |
| parent | [fix] no version warnings if gentoo-perlmod-version.pl can't run (diff) | |
| download | perl-overlay-d1606e0e72565de8b26cc098033f52e97ccc311a.tar.gz perl-overlay-d1606e0e72565de8b26cc098033f52e97ccc311a.tar.bz2 perl-overlay-d1606e0e72565de8b26cc098033f52e97ccc311a.zip | |
Use EBUILD_DEATH_HOOKS
This should probably improved:
- perl-info should be maintained better
- Version-Requirements returns a deprecation warning
Diffstat (limited to 'eclass/perl-module.eclass')
| -rw-r--r-- | 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 76ba26cb2..23c6809f3 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)" |