diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-09 13:56:00 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-10 01:01:11 +0100 |
commit | a3574bc6e8adc0efc79a7112336d1e770ba0bb2e (patch) | |
tree | 616db14a7af89048a31e3805ff1d38d68bde4d97 | |
parent | 9aa62b458504c006caa884e919906ccc94ed0660 (diff) |
dgit: Break out @files_csum_info_fields (nfc)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | dgit | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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; |