===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/Build.PL,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- trango/Net-Telnet-Trango/Build.PL	2007/02/05 19:21:02	1.2
+++ trango/Net-Telnet-Trango/Build.PL	2007/02/05 19:39:33	1.3
@@ -1,7 +1,8 @@
 use strict;
 use warnings;
 use Module::Build;
-# $RedRiver: Build.PL,v 1.1 2007/02/05 18:10:55 andrew Exp $
+use File::Spec;
+# $RedRiver: Build.PL,v 1.2 2007/02/05 19:21:02 andrew Exp $
 
 my $cfg_file = File::Spec->catfile('t', 'do_network.tests');
 
@@ -16,30 +17,32 @@
     add_to_cleanup      => [ 'Net-Telnet-Trango-*', $cfg_file ],
 );
 
-get_config();
+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();
 
-sub get_config
+sub get_ap_config
 {
-    my %cfg;
+    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, a login, a password.
+need a test AP and a password.
 
 To skip these tests, hit "return".
 
 EOB
 
-    $cfg{AP}       = $builder->prompt("AP: ", $cfg{AP}) || return;
-    $cfg{PASSWD}   = $builder->prompt("Password:", $cfg{PASSWD}) || return;
-
-    if (open T,">$cfg_file") {
-        while (my ($key, $value) = each %cfg) {
-            print T $key, "\t", $value,"\n";
-        }
-        close T;
-    }
+    $cfg->{AP}       = $builder->prompt("AP: ", $cfg->{AP}) || return;
+    $cfg->{PASSWD}   = $builder->prompt("Password:", $cfg->{PASSWD}) || return;
 }