--- a/t/lib/Aux.pm	Thu Jun 30 15:50:44 2011 +0200
+++ b/t/lib/Aux.pm	Thu Jun 30 16:15:42 2011 +0200
@@ -9,7 +9,7 @@
 our $VERSION = 0.0;
 our @EXPORT_OK = qw(make_config);
 
-sub make_config($) {
+sub make_config {
 
     my ($c) = @_;
 
@@ -22,11 +22,7 @@
         print $f $c;
     } else {
         # make a default configuration
-        my ($bd, $md, $cd);
-        for ($bd, $md, $cd) {
-            my $d = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory";
-            $_ = $d->filename;
-        }
+        $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($bd, $md, $cd);
 
         print $f <<__EOF;
 bind_dir = $bd