use warnings;
use strict;

use Module::Load;

if(! $ENV{SPRING_WRITEDIR}) {
  $ENV{SPRING_WRITEDIR}='E:\\test';
  exec {$^X} ($^X,$0);
}
$ENV{PATH}="E:\\springrts;$ENV{PATH}";
load("PerlUnitSync");

PerlUnitSync::Init(0,0);
my $writeDir=PerlUnitSync::GetWritableDataDirectory();
print "writeDir=$writeDir\n";

##</code><code>##

E:\test>perl test.pl

E:\test>writeDir=E:\test\

##</code><code>##

E:\test>perl test.pl
writeDir=D:\Documents\My Games\Spring\