Add code to special case dot-in-inc in Build

Author: Leont

Changes

@@ -1,5 +1,7 @@
 Revision history for Perl extension Module::Build.
 
+   - Add code to special case dot-in-inc in Build
+
 0.4222 - Thu Mar 30 15:40:10 CEST 2017
 
    - Released 0.42_21 as 0.4222

lib/Module/Build/Base.pm

@@ -1824,6 +1824,11 @@ sub print_build_script {
   my $shebang = $self->_startperl;
   my $magic_number = $self->magic_number;
 
+my $dot_in_inc_code = $INC[-1] eq '.' ? <<'END' : '';
+    if ($INC[-1] ne '.') {
+        push @INC, '.';
+    }
+END
   print $fh <<EOF;
 $shebang
 
@@ -1860,6 +1865,7 @@ BEGIN {
     (
 $quoted_INC
     );
+$dot_in_inc_code
 }
 
 close(*DATA) unless eof(*DATA); # ensure no open handles to this script