2 files changed, 10 insertions, 0 deletions
diff --git a/NEWS b/NEWS
index 3442775..e7ed252 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- generate report.bug.xz on exit
+
 2.27
 
 - Artwork for Mga8
diff --git a/draklive-install b/draklive-install
index d508fa1..2bbd3c6 100755
--- a/draklive-install
+++ b/draklive-install
@@ -10,6 +10,7 @@ BEGIN {
 use lib qw(/usr/lib/libDrakX);
 use standalone;
 use interactive;
+use any qw(report_bug);
 use fs;
 use fs::any;
 use fs::type;
@@ -37,6 +38,13 @@ my $logfile = '/tmp/draklive-install.log';
     }
 }
 
+END {
+    local $::prefix;
+    rm_f('/tmp/report.bug.xz');
+    output('/tmp/report.bug', any::report_bug());
+    system('/usr/bin/xz', '/tmp/report.bug');
+}
+
 ($::rootwidth, $::rootheight) = (Gtk3::Gdk::Screen::width, Gtk3::Gdk::Screen::height);
 $::real_windowwidth  = $::rootwidth  > 800 ? 750 : 600;
 $::real_windowheight = $::rootheight > 600 ? 500 : 400;