From 203067a2742ad2cbb986369b216b1f1ecfb96458 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Tue, 29 Sep 2015 13:06:08 +0200
Subject: Automatically cleanup package archive, directory on failure

---
 bpkg/pkg-fetch.cxx | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'bpkg/pkg-fetch.cxx')

diff --git a/bpkg/pkg-fetch.cxx b/bpkg/pkg-fetch.cxx
index 36b80a7..9da632a 100644
--- a/bpkg/pkg-fetch.cxx
+++ b/bpkg/pkg-fetch.cxx
@@ -35,6 +35,7 @@ namespace bpkg
     session s;
 
     path a;
+    auto_rm arm;
     bool purge;
 
     if (o.existing ())
@@ -96,6 +97,7 @@ namespace bpkg
              << "from " << pl->repository->name;
 
       a = fetch_archive (o, pl->repository->location, pl->location, c);
+      arm = auto_rm (a);
       purge = true;
     }
 
@@ -138,7 +140,9 @@ namespace bpkg
      });
 
     db.persist (p);
+
     t.commit ();
+    arm.cancel ();
 
     if (verb)
       text << "fetched " << p->name << " " << p->version;
-- 
cgit v1.1