scripts: Do not use sort directly on the return keyword

Fixes Subroutines::ProhibitReturnSort.

Warned-by: perlcritic

1 files changed, 4 insertions, 2 deletions

diff --git a/scripts/Dpkg/BuildEnv.pm b/scripts/Dpkg/BuildEnv.pm
index 511ba24ab..a69d35233 100644
--- a/scripts/Dpkg/BuildEnv.pm
+++ b/scripts/Dpkg/BuildEnv.pm
@@ -85,7 +85,8 @@ Returns a list of all environment variables that have been accessed.
 =cut
 
 sub list_accessed {
-    return sort keys %env_accessed;
+    my @list = sort keys %env_accessed;
+    return @list;
 }
 
 =item my @list = $bf->list_modified()
@@ -95,7 +96,8 @@ Returns a list of all environment variables that have been modified.
 =cut
 
 sub list_modified {
-    return sort keys %env_modified;
+    my @list = sort keys %env_modified;
+    return @list;
 }
 
 =back