diff options
| -rw-r--r-- | Mk/Scripts/qa.sh | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/Mk/Scripts/qa.sh b/Mk/Scripts/qa.sh index 878279c522e8..3330bdb7db51 100644 --- a/Mk/Scripts/qa.sh +++ b/Mk/Scripts/qa.sh @@ -737,6 +737,20 @@ sonames() { EOT } +perlcore_port_module_mapping() { + case "$1" in + Net) + echo "Net::Config" + ;; + libwww) + echo "LWP" + ;; + *) + echo "$1" | sed -e 's/-/::/g' + ;; + esac +} + perlcore() { local portname version module gotsome [ -x "${LOCALBASE}/bin/corelist" ] || return 0 @@ -744,7 +758,7 @@ perlcore() { portname=$(expr "${dep}" : ".*/p5-\(.*\)") if [ -n "${portname}" ]; then gotsome=1 - module=$(echo ${portname}|sed -e 's/-/::/g') + module=$(perlcore_port_module_mapping "${portname}") version=$(expr "${dep}" : ".*>=*\([^:<]*\)") while read l; do |