From a3574bc6e8adc0efc79a7112336d1e770ba0bb2e Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 9 Oct 2016 13:56:00 +0100 Subject: dgit: Break out @files_csum_info_fields (nfc) Signed-off-by: Ian Jackson --- dgit | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'dgit') diff --git a/dgit b/dgit index 34152ee..ae1e6b5 100755 --- a/dgit +++ b/dgit @@ -1414,10 +1414,13 @@ sub mktree_in_ud_from_only_subdir (;$) { return ($tree,$dir); } +our @files_csum_info_fields = + (['Checksums-Sha256','Digest::SHA', 'new(256)'], + ['Checksums-Sha1', 'Digest::SHA', 'new(1)'], + ['Files', 'Digest::MD5', 'new()']); + sub dsc_files_info () { - foreach my $csumi (['Checksums-Sha256','Digest::SHA', 'new(256)'], - ['Checksums-Sha1', 'Digest::SHA', 'new(1)'], - ['Files', 'Digest::MD5', 'new()']) { + foreach my $csumi (@files_csum_info_fields) { my ($fname, $module, $method) = @$csumi; my $field = $dsc->{$fname}; next unless defined $field; -- cgit v1.2.3