view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
  if( $c->{buildtype} eq 'use_config_script' ) {
    $c->{title} .= "\n    ";
    for(qw(SDL2 SDL2_image SDL2_mixer SDL2_ttf SDL2_gfx)) {
      $c->{title} .= "$_(v$have_libs{$_}->[0]) " if $have_libs{$_}[0];
    }
  }
 
  $prompt_string .= "[" . $i++ . "] " . $c->{title} . "\n";
}
 
# select option '1' for travis
if ($travis == 1) {
    $ans = 1;
    #set 'travis' var for inc/My/Builder.pm
    $build->notes( 'travis', '1' );
}
 
# or prompt user for build option
else {
    $prompt_string .= "\nWhat way do you wanna go?";
    $ans = $build->prompt( $prompt_string, $recommended_candidate );

inc/My/Builder.pm  view on Meta::CPAN

102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
      $self->fetch_binaries($download);
      $self->clean_dir($build_out);
      $self->extract_binaries($download, $build_out);
      $self->set_config_data($build_out);
      $self->set_ld_config($build_out);
    }
    elsif ( $bp->{buildtype} eq 'build_from_sources' ) {
 
        my $m = '';
        if ( $self->notes('travis') && $self->notes('travis') == 1 ) {
            # always select option '1'
            $m = 1;
        }
        else {
            $m = $self->prompt(
"\nDo you want to see all messages during configure/make (y/n)?",
                'n'
            );
        }
 
      $self->notes('build_msgs', lc($m) eq 'y' ? 1 : 0);