--- a/common/tools/raptor/releaseables.pm Mon Nov 23 15:01:01 2009 +0000
+++ b/common/tools/raptor/releaseables.pm Thu Nov 26 16:02:05 2009 +0000
@@ -90,8 +90,7 @@
sub on_start_buildlog
{
- system("rmdir /S /Q $::raptorbitsdir/releaseables") if (-d "$::basedir/releaseables");
- mkdir("$::raptorbitsdir/releaseables");
+
}
sub on_start_whatlog
@@ -229,10 +228,10 @@
my $layer = $1;
my $package = $2;
- mkdir("$::raptorbitsdir/releaseables/$layer");
- mkdir("$::raptorbitsdir/releaseables/$layer/$package");
+ mkdir("$::basedir/releaseables/$layer");
+ mkdir("$::basedir/releaseables/$layer/$package");
- my $filename = "$::raptorbitsdir/releaseables/$layer/$package/info.tsv";
+ my $filename = "$::basedir/releaseables/$layer/$package/info.tsv";
print "Writing info file $filename\n" if (!-f$filename);
open(FILE, ">>$filename");