sabayon-detectobsolete: more perlish ✨

2017-03-29 14:46:34 +02:00
parent 49ba945b63
commit 6d0f26ceb7
1 changed files with 2 additions and 6 deletions
@@ -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;