Do not require a compiler if c_source is an empty list

Author: ppisar

lib/Module/Build/API.pod

@@ -209,10 +209,10 @@ created by Module::Build.
 
 [version 0.04]
 
-An optional C<c_source> argument specifies a directory which contains
-C source files that the rest of the build may depend on.  Any C<.c>
-files in the directory will be compiled to object files.  The
-directory will be added to the search path during the compilation and
+An optional C<c_source> argument specifies a directory or a reference to array
+of directories which contain C source files that the rest of the build may
+depend on.  Any C<.c> files in the directory will be compiled to object files.
+The directory will be added to the search path during the compilation and
 linking phases of any C or XS files.
 
 [version 0.3604]

lib/Module/Build/Base.pm

@@ -1520,7 +1520,11 @@ sub auto_require {
     if ( $self->pureperl_only && $self->allow_pureperl ) {
       $self->needs_compiler( 0 );
     } else {
-      $self->needs_compiler( keys %$xs_files || defined $self->c_source );
+      $self->needs_compiler( keys %$xs_files ||
+        ( defined $self->c_source &&
+          ( ref($self->c_source) ne 'ARRAY' || @{$self->c_source} )
+        )
+      );
     }
   }
   if ($self->needs_compiler) {

t/properties/needs_compiler.t

@@ -5,7 +5,7 @@ use lib 't/lib';
 use MBTest;
 use DistGen;
 
-plan tests => 19;
+plan tests => 27;
 
 # Ensure any Module::Build modules are loaded from correct directory
 blib_load('Module::Build');
@@ -24,7 +24,7 @@ ok( ! exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
 );
 
 #--------------------------------------------------------------------------#
-# try with c_source
+# try with c_source as a string
 #--------------------------------------------------------------------------#
 $dist->change_build_pl({
     module_name => $dist->name,
@@ -34,7 +34,7 @@ $dist->change_build_pl({
 $dist->regen;
 stderr_of(sub {
   ok( $mb = $dist->new_from_context,
-    "Build.PL with c_source"
+    "Build.PL with string c_source"
   );
 });
 is( $mb->c_source, 'src', "c_source is set" );
@@ -43,6 +43,46 @@ ok( exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
   "ExtUtils::CBuilder was added to build_requires"
 );
 
+#--------------------------------------------------------------------------#
+# try with c_source as an array
+#--------------------------------------------------------------------------#
+$dist->change_build_pl({
+    module_name => $dist->name,
+    license => 'perl',
+    c_source => ['src'],
+});
+$dist->regen;
+stderr_of(sub {
+  ok( $mb = $dist->new_from_context,
+    "Build.PL with non-empty array c_source"
+  );
+});
+is_deeply( $mb->c_source, ['src'], "c_source is set" );
+ok( $mb->needs_compiler, "needs_compiler is true" );
+ok( exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
+  "ExtUtils::CBuilder was added to build_requires"
+);
+
+#--------------------------------------------------------------------------#
+# try with c_source as an empty array
+#--------------------------------------------------------------------------#
+$dist->change_build_pl({
+    module_name => $dist->name,
+    license => 'perl',
+    c_source => [],
+});
+$dist->regen;
+stderr_of(sub {
+  ok( $mb = $dist->new_from_context,
+    "Build.PL with empty array c_source"
+  );
+});
+is_deeply( $mb->c_source, [], "c_source is set" );
+ok( ! $mb->needs_compiler, "needs_compiler is false" );
+ok( ! exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
+  "ExtUtils::CBuilder is not in build_requires"
+);
+
 #--------------------------------------------------------------------------#
 # try with xs files
 #--------------------------------------------------------------------------#