From 6d0f26ceb70eb622c097dbc3f4e3b84a587f76f7 Mon Sep 17 00:00:00 2001
From: Ettore Di Giacinto <mudler@gentoo.org>
Date: Wed, 29 Mar 2017 14:46:34 +0200
Subject: [PATCH] sabayon-detectobsolete: more perlish :sparkles:

---
 sabayon-detectobsolete | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/sabayon-detectobsolete b/sabayon-detectobsolete
index d18bba9..e600276 100644
--- a/sabayon-detectobsolete
+++ b/sabayon-detectobsolete
@@ -40,9 +40,7 @@ sub obsolete_package($$) {
     return 1 if "@out" eq "";
     foreach my $l (@out) {
         print " >> $l\n" if $verbose;
-        if ( $l =~ /$package.*\{spm_repo\:gent.*/ ) {
-            return 1;
-        }
+        return 1 if ( $l =~ /$package.*\{spm_repo\:gent.*/ );
     }
     return 0;
 }
@@ -64,6 +62,4 @@ foreach my $p (@packages) {
 
 print "\n";
 print "Obsoletes found:\n\n";
-foreach my $obs (@obsoletes) {
-    print "$obs\n";
-}
+print "$_\n" for @obsoletes;