File tree 1 file changed +10
-5
lines changed
1 file changed +10
-5
lines changed Original file line number Diff line number Diff line change @@ -142,11 +142,16 @@ sub init_tools {
142
142
$self -> {NOOP } ||= ' rem' ;
143
143
$self -> {DEV_NULL } ||= ' > NUL' ;
144
144
145
- $self -> {FIXIN } ||= $self -> {PERL_CORE } ?
146
- " \$ (PERLRUN) -I$self ->{PERL_SRC}\\ cpan\\ ExtUtils-PL2Bat\\ lib $self ->{PERL_SRC}\\ win32\\ bin\\ pl2bat.pl" :
147
- -e " $Config {installscript}\\ pl2bat.bat" ?
148
- qq{ "$Config {installscript}\\ pl2bat.bat"} :
149
- ' pl2bat.bat' ;
145
+ if (!$self -> {FIXIN }) {
146
+ if ($self -> {PERL_CORE }) {
147
+ my $psrc = $self -> {PERL_SRC }; # shorten next line
148
+ $self -> {FIXIN } = " \$ (PERLRUN) -I${psrc} \\ cpan\\ ExtUtils-PL2Bat\\ lib ${psrc} \\ win32\\ bin\\ pl2bat.pl" ;
149
+ }
150
+ else {
151
+ my $p2bpath = " $Config {installscript}\\ pl2bat.bat" ;
152
+ $self -> {FIXIN } = -e $p2bpath ? qq{ "$p2bpath "} : ' pl2bat.bat' ;
153
+ }
154
+ }
150
155
151
156
$self -> SUPER::init_tools;
152
157
You can’t perform that action at this time.
0 commit comments