From f739dca54352d35faceaf330d21ee3fe878ae2ee Mon Sep 17 00:00:00 2001
From: Kolan Sh <backbone@backbone.ws>
Date: Fri, 11 Sep 2015 13:10:07 +0300
Subject: [PATCH] Run perl-cleaner after package cleaning.

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

diff --git a/sbin/gentoo-upgrade.sh b/sbin/gentoo-upgrade.sh
index 7232cc7..03e88ea 100755
--- a/sbin/gentoo-upgrade.sh
+++ b/sbin/gentoo-upgrade.sh
@@ -387,24 +387,6 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 fi
 let STAGE_CNT++
 
-# Perl upgrade
-if [ $STAGE_CNT -eq $STAGE ]; then
-	echo "======= STAGE $STAGE: Perl upgrade ======="
-
-	if [ -f /etc/portage/need_upgrade_perl ]; then
-		echo "Running perl-cleaner..."
-		$NICE_CMD perl-cleaner --all
-		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE
-		rm /etc/portage/need_upgrade_perl
-		[ 0 != $? ] && echo "Stage $STAGE: cann't remove /etc/portage/need_upgrade_perl ;-( =======" && exit $STAGE
-	else
-		echo "------- Not need to upgrade perl -------"
-	fi
-
-        let STAGE++
-fi
-let STAGE_CNT++
-
 # Haskell upgrade
 if [ $STAGE_CNT -eq $STAGE ]; then
 	echo "======= STAGE $STAGE: Haskell upgrade ======="
@@ -490,6 +472,24 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 fi
 let STAGE_CNT++
 
+# Perl upgrade
+if [ $STAGE_CNT -eq $STAGE ]; then
+	echo "======= STAGE $STAGE: Perl upgrade ======="
+
+	if [ -f /etc/portage/need_upgrade_perl ]; then
+		echo "Running perl-cleaner..."
+		$NICE_CMD perl-cleaner --all
+		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE
+		rm /etc/portage/need_upgrade_perl
+		[ 0 != $? ] && echo "Stage $STAGE: cann't remove /etc/portage/need_upgrade_perl ;-( =======" && exit $STAGE
+	else
+		echo "------- Not need to upgrade perl -------"
+	fi
+
+        let STAGE++
+fi
+let STAGE_CNT++
+
 # Scan for missed shared libraries
 if [ $STAGE_CNT -eq $STAGE ]; then
         echo "======= STAGE $STAGE: Scan for old versions of shared libraries ======="