t/lib/Aux.pm
branchfoerste
changeset 153 af27be0a326b
parent 152 1ed33114d87f
equal deleted inserted replaced
152:1ed33114d87f 153:af27be0a326b
     7 use base "Exporter";
     7 use base "Exporter";
     8 
     8 
     9 our $VERSION   = 0.0;
     9 our $VERSION   = 0.0;
    10 our @EXPORT_OK = qw(make_config);
    10 our @EXPORT_OK = qw(make_config);
    11 
    11 
    12 sub make_config($) {
    12 sub make_config {
    13 
    13 
    14     my ($c) = @_;
    14     my ($c) = @_;
    15 
    15 
    16     my $f = File::Temp->new or die "Config file creation failed\n";
    16     my $f = File::Temp->new or die "Config file creation failed\n";
    17 
    17