1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/dpkg-scansources.pl b/scripts/dpkg-scansources.pl
index 905821601..671863b1d 100755
--- a/scripts/dpkg-scansources.pl
+++ b/scripts/dpkg-scansources.pl
@@ -338,12 +338,10 @@ sub main {
     close $find_fh or error(close_msg, 'find');
 
     if (@out) {
-        map {
-            $_->output(\*STDOUT);
+        foreach my $dsc (sort { $a->{Package} cmp $b->{Package} } @out) {
+            $dsc->output(\*STDOUT);
             print "\n";
-        } sort {
-            $a->{Package} cmp $b->{Package}
-        } @out;
+        }
     }
 
     return 0;