trango/Net-Telnet-Trango/Build.PL - diff

Return to Build.PL CVS log

Up to [local] / trango / Net-Telnet-Trango

version 1.5, 2007/02/05 23:10:37

version 1.7, 2007/02/06 20:41:10

Line 2

use warnings;

use Module::Build;

use File::Spec;

# $RedRiver: Build.PL,v 1.4 2007/02/05 21:36:42 andrew Exp $

# $RedRiver: Build.PL,v 1.6 2007/02/06 00:41:49 andrew Exp $

my $cfg_file = File::Spec->catfile('t', 'tests.cfg');

Line 62

get_su_config(\%cfg);

if (%cfg && open T,">$cfg_file") {

if (open T,">$cfg_file") {

while (my ($key, $value) = each %cfg) {

print T $key, "\t", $value,"\n";

}

Line 74

sub get_ap_config {

my $cfg = shift;

print 'To run the AP tests, we need an IP and a password for 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_PASSWD} = $builder->prompt("AP Password:", $cfg->{AP_PASSWD})