--- 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);