X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FBuild.pm;h=47be03466636033ec67d7b29319060083cc7b520;hb=22f3a8dd32e5940d87a1d21642fa39c7813bc921;hp=f190b41f4d8aeba5e72a7dd5c69b68a1b7268e85;hpb=1bd12246e2f2324aa30bf000cb536b87b12eeebc;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Build.pm b/lib/Catalyst/Build.pm index f190b41..47be034 100644 --- a/lib/Catalyst/Build.pm +++ b/lib/Catalyst/Build.pm @@ -55,18 +55,16 @@ sub ACTION_fakeinstall { =cut sub ACTION_install_extras { - my $self = shift; - my $prefix = $self->{properties}{destdir} || ''; - my $path = dir( - $prefix, - $self->{config}{installsitelib}, - split( '::', $self->{properties}{module_name} ) - ); - my @files = $self->_find_extras; + my $self = shift; + my $prefix = $self->{properties}{destdir} || undef; + 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 ); } } @@ -99,8 +97,8 @@ Sebastian Riedel, C =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