[BACK]Return to Build.PL CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango

Diff for /trango/Net-Telnet-Trango/Build.PL between version 1.1 and 1.4

version 1.1, 2007/02/05 18:10:55 version 1.4, 2007/02/05 21:36:42
Line 1 
Line 1 
 use strict;  use strict;
 use warnings;  use warnings;
 use Module::Build;  use Module::Build;
 # $RedRiver$  use File::Spec;
   # $RedRiver: Build.PL,v 1.3 2007/02/05 19:39:33 andrew Exp $
   
   my $cfg_file = File::Spec->catfile('t', 'tests.cfg');
   
 my $builder = Module::Build->new(  my $builder = Module::Build->new(
     module_name         => 'Net::Telnet::Trango',      module_name         => 'Net::Telnet::Trango',
     license             => 'perl',      license             => 'perl',
Line 11 
Line 14 
     build_requires => {      build_requires => {
         'Test::More' => 0,          'Test::More' => 0,
     },      },
     add_to_cleanup      => [ 'Net-Telnet-Trango-*' ],      add_to_cleanup      => [ 'Net-Telnet-Trango-*', $cfg_file ],
       create_makefile_pl  => 'traditional',
       create_readme       => 1,
       create_html         => 1,
       dynamic_config      => 1,
       auto_features       => {
           YAML_support =>
           {
               description => "Use YAML.pm to write META.yml files",
               requires => { YAML => ' >= 0.35, != 0.49_01 ' },
           },
           manpage_support =>
           {
               description => "Create Unix man pages",
               requires => { 'Pod::Man' => 0 },
           },
           HTML_support =>
           {
               description => "Create HTML documentation",
               requires => { 'Pod::Html' => 0 },
           },
       },
 );  );
   
   my %cfg;
   get_ap_config(\%cfg);
   
   if (%cfg && open T,">$cfg_file") {
       while (my ($key, $value) = each %cfg) {
           print T $key, "\t", $value,"\n";
       }
       close T;
   }
   
 $builder->create_build_script();  $builder->create_build_script();
   
   sub get_ap_config
   {
       my $cfg = shift;
   
       print <<EOB;
   
   Net::Telnet::Trango needs to log into an AP to
   perform it\'s full suite of tests. To log in, we
   need a test AP and a password.
   
   To skip these tests, hit "return".
   
   EOB
   
       $cfg->{AP}        = $builder->prompt("AP: ", $cfg->{AP}) || return;
       $cfg->{AP_PASSWD} = $builder->prompt("Password:", $cfg->{AP_PASSWD}) || return;
   }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>