Changeset 399

Timestamp:

Aug 30, 2019, 1:39:39 PM (5 years ago)

Author:

g7moreau

Message:

• case if no doi...

File:

• trunk/project-meta/project-meta (modified) (3 diffs)

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.1.3');
+use version; our $VERSION = version->declare('0.1.4');
 
 use File::Copy qw(copy);    
@@ -400 +400 @@
    my $msg_format = '';
    my $doi_first;
-   for my $doi (@{$meta->{'project'}{'relation'}) {
-      next if not exists $doi->{'doi'};
-      $doi_first = $doi->{'doi'};
-      last;
+   if (exists $meta->{'project'}{'relation'}) {
+      for my $doi (@{$meta->{'project'}{'relation'}) {
+         next if not exists $doi->{'doi'};
+         $doi_first = $doi->{'doi'};
+         last;
+         }
       }
    $tt->process('COPYRIGHT.tt',
@@ -412 +414 @@
          description => $meta->{'project'}{'description'},
          license     => $meta->{'project'}{'rights'},
-         doi         => $  doi_first,
+         doi         => $doi_first,
       }, \$msg_format) || die $tt->error;
 
-   open my $fh,  '>', "$current_dir/COPYRIGHT.txt" or die $!;
+   open my $fh, '>', "$current_dir/COPYRIGHT.txt" or die $!;
    print $fh "$msg_format\n\n";
    close $fh;