Merge pull request #230 from matthewrmshin/fix-admin-backup-work-dir

admin backup: fix temporary work location
metomi · May 19, 2016 · 05c6e50 · 05c6e50
2 parents 8b6d68a + 1aa00e8
commit 05c6e50
Showing 1 changed file with 2 additions and 10 deletions.
diff --git a/lib/FCM/Admin/System.pm b/lib/FCM/Admin/System.pm
@@ -275,11 +275,7 @@ sub backup_svn_repository {
     }
     my $base_name = $project->get_svn_base_name();
     run_mkpath($CONFIG->get_svn_backup_dir());
-    my $work_dir = tempdir(
-        "$base_name.backup.XXXXXX",
-        DIR => $CONFIG->get_svn_backup_dir(),
-        CLEANUP => 1,
-    );
+    my $work_dir = tempdir("$base_name.backup.XXXXXX", CLEANUP => 1);
     my $work_path = catfile($work_dir, $base_name);
     $RUN->(
         sprintf(
@@ -357,11 +353,7 @@ sub backup_trac_environment {
     my $trac_live_path = $project->get_trac_live_path();
     my $base_name = $project->get_name();
     run_mkpath($CONFIG->get_trac_backup_dir());
-    my $work_dir = tempdir(
-        "$base_name.backup.XXXXXX",
-        DIR => $CONFIG->get_trac_backup_dir(),
-        CLEANUP => 1,
-    );
+    my $work_dir = tempdir("$base_name.backup.XXXXXX", CLEANUP => 1);
     my $work_path = catfile($work_dir, $base_name);
     $RUNNER->run_with_retries(
         sprintf(