commit: 5663be66d3c1e1b1d86afa9905fcaba27da48a99
Author: Kent Fredric <kentnl <AT> gentoo <DOT> org>
AuthorDate: Mon Jan 23 23:17:42 2017 +0000
Commit: Kent Fredric <kentnl <AT> gentoo <DOT> org>
CommitDate: Fri Apr 21 21:30:57 2017 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=5663be66
perl-functions.eclass: add perl_get_raw_vendorlib
eclass/perl-functions.eclass | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/eclass/perl-functions.eclass b/eclass/perl-functions.eclass
index be27d7e2509..5073215e0e7 100644
--- a/eclass/perl-functions.eclass
+++ b/eclass/perl-functions.eclass
@@ -430,3 +430,21 @@ perl_get_module_version() {
print ${$stash->{VERSION}};
exit 0; ' "$@"
}
+
+# @FUNCTION: perl_get_raw_vendorlib
+# @USAGE: perl_get_raw_vendorlib
+# @DESCRIPTION:
+# Convenience function to optimise for a common case without double-handling
+# variables everywhere.
+#
+# Note: Will include EPREFIX where relevant
+perl_get_raw_vendorlib() {
+ debug-print-function $FUNCNAME "$@"
+
+ [[ $# -lt 1 ]] || die "${FUNCNAME}: Too many parameters ($#)"
+
+ perl -MConfig \
+ -e'exists $Config{$ARGV[0]} || die qq{No such Config key
"$ARGV[0]"};
+ print $Config{$ARGV[0]};
+ exit 0' -- "installvendorlib" || die "Can't extract
installvendorlib from Perl Configuration"
+}
\ No newline at end of file
