perl-functions.eclass: add perl_get_raw_vendorlib

diff --git a/eclass/perl-functions.eclass b/eclass/perl-functions.eclass
index be27d7e2509d763d7ca194cde639f301d8712c6b..5073215e0e729d5167a44ac67d2c7257bb22f8ab 100644 (file)
--- 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