diff options
Diffstat (limited to 'scripts/Dpkg')
-rw-r--r-- | scripts/Dpkg/BuildEnv.pm | 6 | ||||
-rw-r--r-- | scripts/Dpkg/BuildFlags.pm | 3 | ||||
-rw-r--r-- | scripts/Dpkg/Checksums.pm | 3 | ||||
-rw-r--r-- | scripts/Dpkg/Compression.pm | 3 | ||||
-rw-r--r-- | scripts/Dpkg/Control/Fields.pm | 6 | ||||
-rw-r--r-- | scripts/Dpkg/Source/Package/V2.pm | 3 |
6 files changed, 16 insertions, 8 deletions
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 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 diff --git a/scripts/Dpkg/Checksums.pm b/scripts/Dpkg/Checksums.pm index 1d4e14140..1f18be021 100644 --- a/scripts/Dpkg/Checksums.pm +++ b/scripts/Dpkg/Checksums.pm @@ -70,7 +70,8 @@ Returns the list of supported checksums algorithms. =cut sub checksums_get_list() { - return sort keys %{$CHECKSUMS}; + my @list = sort keys %{$CHECKSUMS}; + return @list; } =item $bool = checksums_is_supported($alg) diff --git a/scripts/Dpkg/Compression.pm b/scripts/Dpkg/Compression.pm index 322cb5ff3..323315017 100644 --- a/scripts/Dpkg/Compression.pm +++ b/scripts/Dpkg/Compression.pm @@ -102,7 +102,8 @@ Returns a list of supported compression methods (sorted alphabetically). =cut sub compression_get_list { - return sort keys %$COMP; + my @list = sort keys %$COMP; + return @list; } =item compression_is_supported($comp) 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) 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; |