blob: 82768b73757c7da92b35c345d78eb4499ba769a5 [file] [log] [blame]
# Copyright 2017 The Chromium OS Authors. All rights reserved.
# Use of this source code is governed by a BSD-style license that can be
# found in the LICENSE file.
# This script looks for old perl modules inside the chroot and updates them.
# It is used by update_chroot and
# Usage: simply run `` inside chroot without any argument.
SCRIPT_ROOT="$(readlink -f "$(dirname "$0")/..")"
. "${SCRIPT_ROOT}/" || exit 1
perl_rebuild() {
# If the user still has old perl modules installed, update them.
local perl_versions=$(find /usr/lib*/perl5/vendor_perl/ \
-maxdepth 1 -mindepth 1 -type d -printf '%P\n' | sort -u | wc -w)
if [[ "${perl_versions}" -gt 1 ]]; then
# Some perl packages might not exist anymore due to the upgrade, so unmerge
# any that no longer exist.
info "Looking for outdated perl packages"
local pkgs=()
for pkg in $(qlist -IC dev-perl/ perl-core/ virtual/perl-); do
equery which ${pkg} >/dev/null || pkgs+=( "${pkg}" )
if [[ ${#pkgs[@]} -gt 0 ]]; then
sudo qmerge -Uyq "${pkgs[@]}"
sudo perl-cleaner --all -- --quiet
[[ $# -eq 0 ]] || die "No argument should be provided."
# Script must run inside the chroot
assert_inside_chroot "$@"
perl_rebuild "$@"