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/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm
index 56ae2f126..b3c61f9cc 100644
--- a/scripts/Dpkg/Control/Fields.pm
+++ b/scripts/Dpkg/Control/Fields.pm
@@ -512,12 +512,13 @@ Debian package.
 =cut
 
 sub field_list_src_dep() {
-    return sort {
+    my @list = sort {
         $FIELDS{$a}{'dep_order'} <=> $FIELDS{$b}{'dep_order'}
     } grep {
         field_is_allowed_in($_, CTRL_PKG_SRC) and
         exists $FIELDS{$_}{'dependency'}
     } keys %FIELDS;
+    return @list;
 }
 
 =item field_list_pkg_dep()
@@ -530,12 +531,13 @@ the stronger to the weaker.
 
 sub field_list_pkg_dep() {
     my @keys = keys %FIELDS;
-    return sort {
+    my @list = sort {
         $FIELDS{$a}{'dep_order'} <=> $FIELDS{$b}{'dep_order'}
     } grep {
         field_is_allowed_in($_, CTRL_PKG_DEB) and
         exists $FIELDS{$_}{'dependency'}
     } @keys;
+    return @list;
 }
 
 =item field_get_dep_type($field)