===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/Build.PL,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- trango/Net-Telnet-Trango/Build.PL	2007/02/05 23:10:37	1.5
+++ trango/Net-Telnet-Trango/Build.PL	2007/02/06 00:41:49	1.6
@@ -2,7 +2,7 @@
 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.5 2007/02/05 23:10:37 andrew Exp $
 
 my $cfg_file = File::Spec->catfile('t', 'tests.cfg');
 
@@ -62,7 +62,7 @@
 
     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";
         }