view release on metacpan or  search on metacpan

inc/Module/Install/XSUtil.pm  view on Meta::CPAN

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
my %ToInstall;
 
my $UseC99       = 0;
my $UseCplusplus = 0;
 
sub _verbose{
    print STDERR q{# }, @_, "\n";
}
 
sub _xs_debugging{
    return $ENV{XS_DEBUG} || scalar( grep{ $_ eq '-g' } @ARGV );
}
 
sub _xs_initialize{
    my($self) = @_;
 
    unless($self->{xsu_initialized}){
        $self->{xsu_initialized} = 1;
 
        if(!$self->cc_available()){

inc/Module/Install/XSUtil.pm  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
    }
 
    $self->configure_requires(%ConfigureRequires);
    $self->build_requires(%BuildRequires);
    $self->requires(%Requires);
 
    $self->makemaker_args->{OBJECT} = '$(O_FILES)';
    $self->clean_files('$(O_FILES)');
    $self->clean_files('*.stackdump') if $^O eq 'cygwin';
 
    if($self->_xs_debugging()){
        # override $Config{optimize}
        if(_is_msvc()){
            $self->makemaker_args->{OPTIMIZE} = '-Zi';
        }
        else{
            $self->makemaker_args->{OPTIMIZE} = '-g -ggdb -g3';
        }
        $self->cc_define('-DXS_ASSERT');
    }
}