--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/lib/Aux.pm	Wed Jun 29 11:42:51 2011 +0200
@@ -0,0 +1,29 @@
+package Aux;
+
+use strict;
+use warnings;
+
+use File::Temp;
+use base "Exporter";
+
+our $VERSION = 0.0;
+our @EXPORT_OK = qw(make_config);
+
+sub make_config($) {
+
+    my ($c) = @_;
+
+    my $f = File::Temp->new or die "Config file creation failed\n";
+
+    if (ref $c eq 'HASH') {
+        map { print $f "$_ = $c->$_\n" } keys %{$c};
+    } else {
+        # assuming just a string
+        print $f $c;
+    }
+
+    return $f;
+
+}
+
+1;