Changeset 81457

Timestamp:

07/30/11 22:04:04 (4 years ago)

Author:

dports@…

Message:

cpan2port: use sha256 instead of sha1; line-wrap checksums and
depends lines in generated portfile

File:

• contrib/cpan2port/cpan2port (modified) (4 diffs)

contrib/cpan2port/cpan2port

@@ -180 +180 @@
     my $tarball = $$info{tarball} or die;
     my %check;
-    for my $k (qw( sha1 rmd160)) {
+    for my $k (qw( sha256 rmd160)) {
         my ($sum) = qx( openssl $k $tarball);
         my ($v)   = $sum =~ / (.*)/;
@@ -221 +221 @@
     if ( exists $$info{depends} ) {
          if ( my $check =  $$info{checksums} ) {
-             $checksums = join (' ', 'checksums', %{ $check });
+             my @hashes;
+             foreach my $key (keys %{ $check }) { push @hashes, "$key ".$$check{$key}; }
+             $checksums = 'checksums   '.join(" \\\n".(' 'x12),@hashes);
          }
 
@@ -230 +232 @@
              } keys %{ $dep_ref };
              if (@depends) {
-                 $depends = join ' ','depends_lib-append',@depends;
+                 $depends = 'depends_lib-append  '.join(" \\\n".(' 'x20),@depends);
              }
 
@@ -269 +271 @@
     $portfile .= <<STOP;
 $checksums
+
 $depends
 $build_depends