diff options
| author | Guillem Jover <guillem@debian.org> | 2012-12-30 03:08:21 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-04-29 18:46:50 +0200 |
| commit | 14b92d54d044fc9b932997869107a1ae02a1a60f (patch) | |
| tree | 31dc5ea0f3f85b5b3f0a6db3dacc361d3f912fa8 /src/t | |
| parent | f215ebacf1183e33da3287533c8eec60cc5af418 (diff) | |
| download | dpkg-14b92d54d044fc9b932997869107a1ae02a1a60f.tar.gz | |
scripts: Do not use sort directly on the return keyword
Fixes Subroutines::ProhibitReturnSort.
Warned-by: perlcritic
Diffstat (limited to 'src/t')
| -rw-r--r-- | src/t/100_dpkg_divert.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/t/100_dpkg_divert.t b/src/t/100_dpkg_divert.t index 311557c2f..765fa40c3 100644 --- a/src/t/100_dpkg_divert.t +++ b/src/t/100_dpkg_divert.t @@ -128,8 +128,9 @@ sub diversions_pack { for (my ($i) = 0; $i < $#data; $i += 3) { push @data_packed, [ @data[$i .. $i + 2] ]; } + my @list = sort { $a->[0] cmp $b->[0] } @data_packed; - return sort { $a->[0] cmp $b->[0] } @data_packed; + return @list; } sub diversions_eq { |