From abb67e5d70a24c3a43f5749872918be0fd1f52ec Mon Sep 17 00:00:00 2001
From: Kolan Sh <backbone@backbone.ws>
Date: Sat, 6 Jun 2020 16:18:51 +0300
Subject: [PATCH] Upgrade perl package before perl-cleaner.

---
 sbin/gentoo-upgrade.sh | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sbin/gentoo-upgrade.sh b/sbin/gentoo-upgrade.sh
index 9241ac8..dc73e58 100755
--- a/sbin/gentoo-upgrade.sh
+++ b/sbin/gentoo-upgrade.sh
@@ -321,6 +321,8 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 	echo "======= STAGE $STAGE: Perl upgrade ======="
 
 	if [ -f /etc/portage/need_upgrade_perl ]; then
+		emerge -uq1v perl
+		[ 0 -ne $? ] && echo "Stage $STAGE: perl package upgrading failed ;-( =======" && exit $STAGE
 		echo "Running perl-cleaner..."
 		$NICE_CMD perl-cleaner --reallyall
 		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE