Fix a warning under windows

Fix Perl-Toolchain-Gang#361 PERL_SRC can be unset, make sure we are not using undef in string concat.
atoomic · Aug 3, 2020 · 39dfa51 · 39dfa51
1 parent f37dd0d
commit 39dfa51
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
@@ -142,8 +142,10 @@ sub init_tools {
     $self->{NOOP}     ||= 'rem';
     $self->{DEV_NULL} ||= '> NUL';
 
+    my $src = $self->{PERL_SRC} || '';
+
     $self->{FIXIN}    ||= $self->{PERL_CORE} ?
-      "\$(PERLRUN) -I$self->{PERL_SRC}\\cpan\\ExtUtils-PL2Bat\\lib $self->{PERL_SRC}\\win32\\bin\\pl2bat.pl" :
+      "\$(PERLRUN) -I$src\\cpan\\ExtUtils-PL2Bat\\lib $src\\win32\\bin\\pl2bat.pl" :
       'pl2bat.bat';
 
     $self->SUPER::init_tools;