Return pathname in repo on add_author_distribution

Getty · Jan 19, 2012 · 686c928 · 686c928
1 parent 282f22c
commit 686c928
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+	Return pathname in repo on add_author_distribution
 
 0.004     2012-01-18 01:00:55 Europe/Berlin
 	Fixed documentation, added generation of 02STAMP

diff --git a/lib/CPAN/Repository.pm b/lib/CPAN/Repository.pm
@@ -91,6 +91,7 @@ sub add_author_distribution {
 	copy($distribution_filename,catfile( $target_dir, $filename ));
 	$self->packages->add_distribution($author_path_filename)->save;
 	$self->mailrc->set_alias($author)->save unless defined $self->mailrc->aliases->{$author};
+	return catfile( $self->authorbase_path_parts, $self->author_path_parts($author), $filename );
 }
 
 sub set_alias {