diff options
| -rwxr-xr-x | metas/perl.d/perl-dist | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/metas/perl.d/perl-dist b/metas/perl.d/perl-dist index 4690a7e..b1eedf2 100755 --- a/metas/perl.d/perl-dist +++ b/metas/perl.d/perl-dist @@ -370,9 +370,6 @@ use JSON::XS qw(decode_json); # for META.json use YAML::XS (); # for META.yml use Pod::Select (); # search POD for description -use Digest::MD5 (); # for md5sums & sha512sums -use Digest::SHA (); - sub printdata { my($pbvars) = @_; @@ -416,8 +413,6 @@ sub main ('pkgver' => $ver, 'pkgdesc' => $meta->{'abstract'}, 'arch' => (xsdist($distdir) ? ['i686', 'x86_64'] : 'any'), - 'md5sums' => md5sums($file), - 'sha512sums' => sha512sums($file), 'distdir' => $distdir, %$deps, ); @@ -619,23 +614,4 @@ sub _readmedesc return undef; } -#----------------------------------------------------------------------------- - -sub md5sums -{ - return [ map { - open my $fh, '<', $_ or die "open: $!"; - my $md5 = Digest::MD5->new()->addfile($fh)->hexdigest; - close $fh; - $md5; - } @_ ] -} - -sub sha512sums -{ - return [ map { - my $sha = Digest::SHA->new(512)->addfile($_)->hexdigest; - } @_ ] -} - exit main(@ARGV); |