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'
17 my %mm = ( CCFLAGS => $ccflags );
21 for my $xs ( glob "xs/*.xs" ) {
22 ( my $c = $xs ) =~ s/\.xs$/.c/i;
23 ( my $o = $xs ) =~ s/\.xs$/\$(OBJ_EXT)/i;
29 for my $c ( glob "*.c" ) {
30 ( my $o = $c ) =~ s/\.c$/\$(OBJ_EXT)/i;
36 clean => { FILES => join( q{ }, @object ) },
37 OBJECT => join( q{ }, @object ),
50 my $ret = shift->SUPER::const_cccmd(@_);
51 return q{} unless $ret;
53 if ($Config{cc} =~ /^cl\b/i) {
54 warn 'you are using MSVC... my condolences.';