--- a/t/lib/Aux.pm	Thu Jun 30 16:25:13 2011 +0200
+++ b/t/lib/Aux.pm	Thu Jun 30 16:43:35 2011 +0200
@@ -9,7 +9,7 @@
 our $VERSION   = 0.0;
 our @EXPORT_OK = qw(make_config);
 
-sub make_config($) {
+sub make_config {
 
     my ($c) = @_;
 
@@ -26,12 +26,7 @@
     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