Permalink
Browse files

fix copyright holder attribution in generated LICENSE

  • Loading branch information...
1 parent d9e513f commit 874fcd8e44d238ab4145b5c19a8a034f22f89f2e @xdg xdg committed Jan 28, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Module/Build/Base.pm
View
@@ -3905,7 +3905,6 @@ HERE
$self->delete_filetree('LICENSE');
- my $author = join " & ", @{ $self->dist_author };
my $fh = IO::File->new('> LICENSE')
or die "Can't write LICENSE file: $!";
print $fh $license->fulltext;
@@ -4423,7 +4422,8 @@ sub _software_license_object {
return unless defined $class;
# Software::License requires a 'holder' argument
- my $sl = eval { $class->new({holder=>"nobody"}) };
+ my $author = join( " & ", @{ $self->dist_author }) || 'unknown';
+ my $sl = eval { $class->new({holder=>$author}) };
if ( $@ ) {
$self->log_warn( "Error getting '$class' object: $@" );
}

0 comments on commit 874fcd8

Please sign in to comment.