7 use Cwd qw( abs_path );
8 use File::Basename qw( dirname );
13 my $ccflags = ( $Config::Config{ccflags} || '' ) . ' -I.';
14 $ccflags .= ' -Wall -Wdeclaration-after-statement';
16 my %mm = ( CCFLAGS => $ccflags );
20 for my $xs ( glob "$root/xs/*.xs" ) {
21 ( my $c = $xs ) =~ s/\.xs$/.c/i;
22 ( my $o = $xs ) =~ s/\.xs$/\$(OBJ_EXT)/i;
28 for my $c ( glob "$root/*.c" ) {
29 ( my $o = $c ) =~ s/\.c$/\$(OBJ_EXT)/i;
35 clean => { FILES => join( q{ }, @object ) },
36 OBJECT => join( q{ }, @object ),
48 my $ret = shift->SUPER::const_cccmd(@_);
49 return q{} unless $ret;
51 if ($Config{cc} =~ /^cl\b/i) {
52 warn 'you are using MSVC... my condolences.';