Commit bf7c4775 authored by Leigh B. Stoller's avatar Leigh B. Stoller

A minor perl 5.8 fix.

Also a change to the rsync used to duplicate an experiment; do not
preserved permissions.
parent ec8e8cef
......@@ -622,7 +622,7 @@ if (! ($frontend || $batchmode)) {
#
my @localnodes = ExpNodes($pid, $eid, 1);
if (defined(@localnodes) && scalar(@localnodes) > 2) {
if (@localnodes && scalar(@localnodes) > 2) {
my $vlans_result =
DBQueryFatal("select pid from virt_lans ".
"where pid='$pid' and eid='$eid'");
......@@ -716,6 +716,7 @@ TBExptSetSwapUID($pid, $eid, $dbuid);
#
# Close up the log file so the webpage stops.
#
print "Experiment $pid/$eid has been successfully created!\n";
TBExptCloseLogFile($pid, $eid);
#
......@@ -1163,7 +1164,7 @@ sub CopyInArchive()
if (-e $srcdir) {
print "Copying experiment archive from ${srcdir}\n";
system("$RSYNC -ax --delete ${srcdir}/ $dstdir");
system("$RSYNC -rtgoDlz --delete ${srcdir}/ $dstdir");
if ($?) {
fatal("CopyInArchive: Failed to copy ${srcdir} to $dstdir");
}
......
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