From 2f0755173df7b5d988da52d4b059486db6be66b1 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Fri, 18 Dec 2020 17:20:40 +0000
Subject: Generate report.bug.xz on exit.

---
 draklive-install | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'draklive-install')

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;
-- 
cgit v1.2.1