Commit 5d4ef27f authored by Leigh B. Stoller's avatar Leigh B. Stoller

Odd, several calls to mkdir have been running for a couple of weeks,

but now perl is unhappy.
parent 6f9a35de
......@@ -710,11 +710,11 @@ system("cp -Rfp $workdir/ $userdir/tbdata");
my $archivedir = libArchive::TBUserFileArchiveDirectory($pid, $eid);
if (! -e "$archivedir/tbdata") {
mkdir("$archivedir/tbdata")
mkdir("$archivedir/tbdata", 0775)
or fatal("Failed to mkdir $archivedir/tbdata");
}
if (! -e "$archivedir/nsdata") {
mkdir("$archivedir/nsdata")
mkdir("$archivedir/nsdata", 0775)
or fatal("Failed to mkdir $archivedir/nsdata");
}
......
......@@ -1085,15 +1085,15 @@ system("cp -Rfp $workdir/ $userdir/tbdata/");
$archivedir = libArchive::TBUserFileArchiveDirectory($pid, $eid);
if (! -e "$archivedir") {
mkdir("$archivedir")
mkdir("$archivedir", 0775)
or fatal("Failed to mkdir $archivedir");
}
if (! -e "$archivedir/tbdata") {
mkdir("$archivedir/tbdata")
mkdir("$archivedir/tbdata", 0775)
or fatal("Failed to mkdir $archivedir/tbdata");
}
if (! -e "$archivedir/nsdata") {
mkdir("$archivedir/nsdata")
mkdir("$archivedir/nsdata", 0775)
or fatal("Failed to mkdir $archivedir/nsdata");
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment