summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJustin Davis <jrcd83@gmail.com>2012-04-16 00:45:58 +0200
committerJustin Davis <jrcd83@gmail.com>2012-04-16 00:45:58 +0200
commita28fd68badc618ed3c1e879c20d8a3b388044532 (patch)
tree6966d27536918c3dfb99b06d45b5d462f3d3026b
parentf5cff74bb9665b4de3eb7cf16ed0504da0ee599e (diff)
downloadgenpkg-a28fd68badc618ed3c1e879c20d8a3b388044532.tar.gz
genpkg-a28fd68badc618ed3c1e879c20d8a3b388044532.tar.xz
Remove digest calculation from perl-dist.
-rwxr-xr-xmetas/perl.d/perl-dist24
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);