[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.8 and 1.9

version 1.8, 2007/02/06 21:19:40 version 1.9, 2009/07/08 18:36:55
Line 2 
Line 2 
 use warnings;  use warnings;
 use Module::Build;  use Module::Build;
 use File::Spec;  use File::Spec;
 # $RedRiver: Build.PL,v 1.7 2007/02/06 20:41:10 andrew Exp $  
   
 my $cfg_file = File::Spec->catfile('t', 'tests.cfg');  # $RedRiver: Build.PL,v 1.8 2007/02/06 21:19:40 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',
     dist_author         => 'Andrew Fresh <andrew@cpan.org>',      dist_author       => 'Andrew Fresh <andrew@cpan.org>',
     dist_version_from   => 'lib/Net/Telnet/Trango.pm',      dist_version_from => 'lib/Net/Telnet/Trango.pm',
     requires => {      requires          => {
         'perl'             => '5.6.1',          'perl'        => '5.6.1',
         'Net::Telnet'      => '0',          'Net::Telnet' => '0',
     },      },
     build_requires => {      build_requires => {
         'Test::More' => 0,          'Test::More'  => '0',
     },      },
     add_to_cleanup      => [ 'Net-Telnet-Trango-*', $cfg_file ],      add_to_cleanup     => [ 'Net-Telnet-Trango-*', $cfg_file ],
     create_makefile_pl  => 'traditional',      create_makefile_pl => 'traditional',
     create_readme       => 1,      create_readme      => 1,
     create_html         => 1,      create_html        => 1,
     dynamic_config      => 1,      dynamic_config     => 1,
     auto_features       => {      auto_features      => {
         YAML_support =>          YAML_support => {
         {  
             description => "Use YAML.pm to write META.yml files",              description => "Use YAML.pm to write META.yml files",
             requires => { YAML => ' >= 0.35, != 0.49_01 ' },              requires    => { YAML => ' >= 0.35, != 0.49_01 ' },
         },          },
         manpage_support =>          manpage_support => {
         {  
             description => "Create Unix man pages",              description => "Create Unix man pages",
             requires => { 'Pod::Man' => 0 },              requires    => { 'Pod::Man' => 0 },
         },          },
         HTML_support =>          HTML_support => {
         {  
             description => "Create HTML documentation",              description => "Create HTML documentation",
             requires => { 'Pod::Html' => 0 },              requires    => { 'Pod::Html' => 0 },
         },          },
     },      },
 );  );
Line 60 
Line 58 
   
 EOB  EOB
   
     get_ap_config(\%cfg);      get_ap_config( \%cfg );
   
     get_sudb_config(\%cfg) if $cfg{AP} && $cfg{AP_PASSWD};      get_sudb_config( \%cfg ) if $cfg{AP} && $cfg{AP_PASSWD};
   
     get_su_config(\%cfg);      get_su_config( \%cfg );
   
     if (open T,">$cfg_file") {      if ( open T, ">$cfg_file" ) {
         while (my ($key, $value) = each %cfg) {          while ( my ( $key, $value ) = each %cfg ) {
             print T $key, "\t", $value,"\n";              print T $key, "\t", $value, "\n";
         }          }
         close T;          close T;
     }      }
Line 80 
Line 78 
   
     print 'To run the AP tests, we need an IP and a password of an AP.', "\n";      print 'To run the AP tests, we need an IP and a password of an AP.', "\n";
   
     $cfg->{AP}        = $builder->prompt("AP IP: ", $cfg->{AP}) || return;      $cfg->{AP} = $builder->prompt( "AP IP: ", $cfg->{AP} ) || return;
     $cfg->{AP_PASSWD} = $builder->prompt("AP Password:", $cfg->{AP_PASSWD})      $cfg->{AP_PASSWD} = $builder->prompt( "AP Password:", $cfg->{AP_PASSWD} )
       || return;          || return;
 }  }
   
 sub get_sudb_config {  sub get_sudb_config {
Line 93 
Line 91 
 SU that can reliably link to the AP.  SU that can reliably link to the AP.
 EOL  EOL
   
     $cfg->{SU_ID}  = $builder->prompt("SU ID: ", $cfg->{SU_ID})  || return;      $cfg->{SU_ID}  = $builder->prompt( "SU ID: ", $cfg->{SU_ID} )  || return;
     $cfg->{SU_MAC} = $builder->prompt("SU MAC:", $cfg->{SU_MAC}) || return;      $cfg->{SU_MAC} = $builder->prompt( "SU MAC:", $cfg->{SU_MAC} ) || return;
 }  }
   
 sub get_su_config {  sub get_su_config {
Line 102 
Line 100 
   
     print 'To run the SU tests, we need an IP and a password of an SU.', "\n";      print 'To run the SU tests, we need an IP and a password of an SU.', "\n";
   
     $cfg->{SU}        = $builder->prompt("SU IP: ", $cfg->{SU}) || return;      $cfg->{SU} = $builder->prompt( "SU IP: ", $cfg->{SU} ) || return;
     $cfg->{SU_PASSWD} = $builder->prompt("SU Password:", $cfg->{SU_PASSWD})      $cfg->{SU_PASSWD} = $builder->prompt( "SU Password:", $cfg->{SU_PASSWD} )
       || return;          || return;
 }  }
   
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>