diff -r a3860111db49 -r 3db363880766 t/lib/Aux.pm --- a/t/lib/Aux.pm Thu Jun 30 15:19:33 2011 +0200 +++ b/t/lib/Aux.pm Thu Jun 30 16:24:32 2011 +0200 @@ -6,7 +6,7 @@ use File::Temp; use base "Exporter"; -our $VERSION = 0.0; +our $VERSION = 0.0; our @EXPORT_OK = qw(make_config); sub make_config($) { @@ -15,16 +15,21 @@ my $f = File::Temp->new or die "Config file creation failed\n"; - if (ref $c eq 'HASH') { + if ( ref $c eq 'HASH' ) { map { print $f "$_ = $c->{$_}\n" } keys %{$c}; - } elsif (defined $c) { + } + elsif ( defined $c ) { + # assuming just a string print $f $c; - } else { + } + 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"; + my ( $bd, $md, $cd ); + for ( $bd, $md, $cd ) { + my $d = File::Temp::tempdir CLEANUP => 1 + or die "Can't make temporary directory"; $_ = $d->filename; }