From 14b92d54d044fc9b932997869107a1ae02a1a60f Mon Sep 17 00:00:00 2001 From: Guillem Jover 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/BuildEnv.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'scripts/Dpkg/BuildEnv.pm') 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 -- cgit v1.2.3