- Added a bunch of comments to new dispatcher code

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Build.pm

diff --git a/lib/Catalyst/Build.pm b/lib/Catalyst/Build.pm
index 256a80d..47be034 100644 (file)
--- a/lib/Catalyst/Build.pm
+++ b/lib/Catalyst/Build.pm
@@ -57,14 +57,14 @@ sub ACTION_fakeinstall {
 sub ACTION_install_extras {
     my $self    = shift;
     my $prefix  = $self->{properties}{destdir} || undef;
-    my $sitelib = $self->{config}{installsitelib};
+    my $sitelib = $self->install_destination('lib');
     my @path    = defined $prefix ? ( $prefix, $sitelib ) : ($sitelib);
     my $path    = dir( @path, split( '::', $self->{properties}{module_name} ) );
     my @files   = $self->_find_extras;
     print "Installing extras to $path\n";
     for (@files) {
         $FAKE
-          ? print "$_ -> $path/$_ (FAKE)\n"
+          ? print "$_ -> $path (FAKE)\n"
           : $self->copy_if_modified( $_, $path );
     }
 }
@@ -97,8 +97,8 @@ Sebastian Riedel, C<sri@oook.de>
 
 =head1 LICENSE
 
-This library is free software . You can redistribute it and/or modify it under
-the same terms as perl itself.
+This library is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself.
 
 =cut