summaryrefslogtreecommitdiff
path: root/scripts/Dpkg
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/Dpkg')
-rw-r--r--scripts/Dpkg/BuildEnv.pm6
-rw-r--r--scripts/Dpkg/BuildFlags.pm3
-rw-r--r--scripts/Dpkg/Checksums.pm3
-rw-r--r--scripts/Dpkg/Compression.pm3
-rw-r--r--scripts/Dpkg/Control/Fields.pm6
-rw-r--r--scripts/Dpkg/Source/Package/V2.pm3
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;