@@ -1935,6 +1935,8 @@ sub init_INST {
19351935 $self -> {INST_ARCHAUTODIR } = $self -> catdir(' $(INST_ARCHLIB)' , ' auto' ,
19361936 ' $(FULLEXT)' );
19371937
1938+ $self -> {INST_SHARE } ||= $self -> catdir(' $(INST_LIB)' , ' auto' , ' share' );
1939+
19381940 $self -> {INST_SCRIPT } ||= $self -> catdir($Curdir ,' blib' ,' script' );
19391941
19401942 $self -> {INST_MAN1DIR } ||= $self -> catdir($Curdir ,' blib' ,' man1' );
@@ -2974,9 +2976,9 @@ sub sharedir {
29742976 return ' ' unless %share ;
29752977
29762978 my %files ;
2977- $self -> _sharedir_find_files(\%files , $share {dist }, File::Spec -> catdir( ' $(INST_LIB) ' , qw( auto share dist) , ' $(DISTNAME)' ) , \%share ) if $share {dist };
2979+ $self -> _sharedir_find_files(\%files , $share {dist }, [ qw/ $(INST_SHARE) dist $(DISTNAME) / ] , \%share ) if $share {dist };
29782980 for my $module (keys %{ $share {module } || {} }) {
2979- my $destination = File::Spec -> catdir( ' $(INST_LIB) ' , qw( auto share module) , $module ) ;
2981+ my $destination = [ qw/ $(INST_SHARE) module/ , $module ] ;
29802982 $self -> _sharedir_find_files(\%files , $share {module }{$module }, $destination , \%share );
29812983 }
29822984 my $pm_to_blib = $self -> oneliner(q{ pm_to_blib({@ARGV}, '$(INST_LIB)')} , [' -MExtUtils::Install' ]);
@@ -2992,7 +2994,7 @@ sub _sharedir_find_files {
29922994 return ;
29932995 }
29942996 return if $options -> {skip_dotfile } && / ^\. / ;
2995- $files -> {$_ } = $self -> catfile($sink , $_ );
2997+ $files -> {$_ } = $self -> catfile(@{ $sink } , $_ );
29962998 },
29972999 no_chdir => 1,
29983000 }, $source );
0 commit comments