From 14b92d54d044fc9b932997869107a1ae02a1a60f Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Sun, 30 Dec 2012 03:08:21 +0100
Subject: scripts: Do not use sort directly on the return keyword

Fixes Subroutines::ProhibitReturnSort.

Warned-by: perlcritic
---
 scripts/Dpkg/Source/Package/V2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/Dpkg/Source')

diff --git a/scripts/Dpkg/Source/Package/V2.pm b/scripts/Dpkg/Source/Package/V2.pm
index 1021d9e80..9a164ccf8 100644
--- a/scripts/Dpkg/Source/Package/V2.pm
+++ b/scripts/Dpkg/Source/Package/V2.pm
@@ -738,7 +738,8 @@ sub get_unknown_binaries {
 
 sub get_seen_binaries {
     my ($self) = @_;
-    return sort keys %{$self->{'seen_binaries'}};
+    my @seen = sort keys %{$self->{'seen_binaries'}};
+    return @seen;
 }
 
 1;
-- 
cgit v1.2.3