common/tools/raptor/releaseables.pl
changeset 791 9054e820b1e6
parent 764 d00048f1b036
--- a/common/tools/raptor/releaseables.pl	Mon Nov 23 15:01:01 2009 +0000
+++ b/common/tools/raptor/releaseables.pl	Thu Nov 26 16:02:05 2009 +0000
@@ -39,6 +39,11 @@
 	exit(0);
 }
 
+my $releaseablesdir = "$::basedir/releaseables";
+$releaseablesdir =~ s,/,\\,g; # this is because rmdir doens't cope correctly with the forward slashes
+system("rmdir /S /Q $releaseablesdir") if (-d "$releaseablesdir");
+mkdir("$releaseablesdir");
+
 my $saxhandler = RaptorSAXHandler->new();
 $saxhandler->add_observer('releaseables', $releaseables::reset_status);