[PATCH] Support multiple c_source directories

[Alberto Simões]

Hey

This attach is a simple patch to support an anonymous array of
directories where to search for C code. It got handy.

Hope it can be applied, as I am already using it... O:-)

Cheers
ambs
-- 
Alberto Simões

Only in Module-Build-mine/: Build
Only in Module-Build-mine/: MYMETA.yml
Only in Module-Build-mine/: Makefile
Only in Module-Build-mine/: _build
Only in Module-Build-mine/: blib
diff -rc Module-Build-0.3603/lib/Module/Build/API.pod 
Module-Build-mine/lib/Module/Build/API.pod
*** Module-Build-0.3603/lib/Module/Build/API.pod        2010-01-19 
03:30:59.000000000 +0000
--- Module-Build-mine/lib/Module/Build/API.pod  2010-02-13 14:56:14.000000000 
+0000
***************
*** 181,186 ****
--- 181,191 ----
  directory will be added to the search path during the compilation and
  linking phases of any C or XS files.
  
+ [version ...]
+ 
+ A list of directories can be supplied using an anonymous array
+ reference of strings.
+ 
  =item conflicts
  
  [version 0.07]
diff -rc Module-Build-0.3603/lib/Module/Build/Base.pm 
Module-Build-mine/lib/Module/Build/Base.pm
*** Module-Build-0.3603/lib/Module/Build/Base.pm        2010-01-19 
03:30:59.000000000 +0000
--- Module-Build-mine/lib/Module/Build/Base.pm  2010-02-13 15:03:52.000000000 
+0000
***************
*** 2728,2738 ****
    my $p = $self->{properties};
    return unless $p->{c_source};
  
!   push @{$p->{include_dirs}}, $p->{c_source};
  
-   my $files = $self->rscan_dir($p->{c_source}, 
file_qr('\.c(c|p|pp|xx|\+\+)?$'));
    foreach my $file (@$files) {
!     push @{$p->{objects}}, $self->compile_c($file);
    }
  }
  
--- 2728,2746 ----
    my $p = $self->{properties};
    return unless $p->{c_source};
  
!   my $files;
!   if (ref($p->{c_source}) eq "ARRAY") {
!       push @{$p->{include_dirs}}, @{$p->{c_source}};
!       for my $path (@{$p->{c_source}}) {
!           push @$files, @{ $self->rscan_dir($path, 
file_qr('\.c(c|p|pp|xx|\+\+)?$')) };
!       }
!   } else {
!       push @{$p->{include_dirs}}, $p->{c_source};
!       $files = $self->rscan_dir($p->{c_source}, 
file_qr('\.c(c|p|pp|xx|\+\+)?$'));
!   }
  
    foreach my $file (@$files) {
!       push @{$p->{objects}}, $self->compile_c($file);
    }
  }