diff -r 44183c6b78b6 -r 1ed33114d87f t/lib/Aux.pm --- a/t/lib/Aux.pm Thu Jun 30 16:15:59 2011 +0200 +++ b/t/lib/Aux.pm Thu Jun 30 16:34:57 2011 +0200 @@ -6,21 +6,25 @@ use File::Temp; use base "Exporter"; -our $VERSION = 0.0; +our $VERSION = 0.0; our @EXPORT_OK = qw(make_config); -sub make_config { +sub make_config($) { my ($c) = @_; 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 $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($bd, $md, $cd);