===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/Build.PL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- trango/Net-Telnet-Trango/Build.PL	2007/02/06 21:19:40	1.8
+++ trango/Net-Telnet-Trango/Build.PL	2009/07/08 18:36:55	1.9
@@ -2,42 +2,40 @@
 use warnings;
 use Module::Build;
 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(
-    module_name         => 'Net::Telnet::Trango',
-    license             => 'perl',
-    dist_author         => 'Andrew Fresh <andrew@cpan.org>',
-    dist_version_from   => 'lib/Net/Telnet/Trango.pm',
-    requires => {
-        'perl'             => '5.6.1',
-        'Net::Telnet'      => '0',
+    module_name       => 'Net::Telnet::Trango',
+    license           => 'perl',
+    dist_author       => 'Andrew Fresh <andrew@cpan.org>',
+    dist_version_from => 'lib/Net/Telnet/Trango.pm',
+    requires          => {
+        'perl'        => '5.6.1',
+        'Net::Telnet' => '0',
     },
     build_requires => {
-        'Test::More' => 0,
+        'Test::More'  => '0',
     },
-    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 =>
-        {
+    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 ' },
+            requires    => { YAML => ' >= 0.35, != 0.49_01 ' },
         },
-        manpage_support =>
-        {
+        manpage_support => {
             description => "Create Unix man pages",
-            requires => { 'Pod::Man' => 0 },
+            requires    => { 'Pod::Man' => 0 },
         },
-        HTML_support =>
-        {
+        HTML_support => {
             description => "Create HTML documentation",
-            requires => { 'Pod::Html' => 0 },
+            requires    => { 'Pod::Html' => 0 },
         },
     },
 );
@@ -60,15 +58,15 @@
 
 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") {
-        while (my ($key, $value) = each %cfg) {
-            print T $key, "\t", $value,"\n";
+    if ( open T, ">$cfg_file" ) {
+        while ( my ( $key, $value ) = each %cfg ) {
+            print T $key, "\t", $value, "\n";
         }
         close T;
     }
@@ -80,9 +78,9 @@
 
     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}) 
-      || return;
+    $cfg->{AP} = $builder->prompt( "AP IP: ", $cfg->{AP} ) || return;
+    $cfg->{AP_PASSWD} = $builder->prompt( "AP Password:", $cfg->{AP_PASSWD} )
+        || return;
 }
 
 sub get_sudb_config {
@@ -93,8 +91,8 @@
 SU that can reliably link to the AP.
 EOL
 
-    $cfg->{SU_ID}  = $builder->prompt("SU ID: ", $cfg->{SU_ID})  || return;
-    $cfg->{SU_MAC} = $builder->prompt("SU MAC:", $cfg->{SU_MAC}) || return;
+    $cfg->{SU_ID}  = $builder->prompt( "SU ID: ", $cfg->{SU_ID} )  || return;
+    $cfg->{SU_MAC} = $builder->prompt( "SU MAC:", $cfg->{SU_MAC} ) || return;
 }
 
 sub get_su_config {
@@ -102,8 +100,8 @@
 
     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_PASSWD} = $builder->prompt("SU Password:", $cfg->{SU_PASSWD}) 
-      || return;
+    $cfg->{SU} = $builder->prompt( "SU IP: ", $cfg->{SU} ) || return;
+    $cfg->{SU_PASSWD} = $builder->prompt( "SU Password:", $cfg->{SU_PASSWD} )
+        || return;
 }