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/BuildFlags.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/Dpkg/BuildFlags.pm')

diff --git a/scripts/Dpkg/BuildFlags.pm b/scripts/Dpkg/BuildFlags.pm
index e2e48d203..934ae948f 100644
--- a/scripts/Dpkg/BuildFlags.pm
+++ b/scripts/Dpkg/BuildFlags.pm
@@ -415,7 +415,8 @@ Returns the list of flags stored in the object.
 
 sub list {
     my ($self) = @_;
-    return sort keys %{$self->{'flags'}};
+    my @list = sort keys %{$self->{'flags'}};
+    return @list;
 }
 
 =back
-- 
cgit v1.2.3