diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2020-12-18 17:20:40 +0000 |
|---|---|---|
| committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2021-01-26 13:27:22 +0000 |
| commit | 2f0755173df7b5d988da52d4b059486db6be66b1 (patch) | |
| tree | 8d407ff0e05b4906188ecde816bb2e46c7e609a7 /draklive-install | |
| parent | 5231560574fb08bb8a248fe228251f62fb1c6f20 (diff) | |
| download | draklive-install-2f0755173df7b5d988da52d4b059486db6be66b1.tar draklive-install-2f0755173df7b5d988da52d4b059486db6be66b1.tar.gz draklive-install-2f0755173df7b5d988da52d4b059486db6be66b1.tar.bz2 draklive-install-2f0755173df7b5d988da52d4b059486db6be66b1.tar.xz draklive-install-2f0755173df7b5d988da52d4b059486db6be66b1.zip | |
Generate report.bug.xz on exit.
Diffstat (limited to 'draklive-install')
| -rwxr-xr-x | draklive-install | 8 |
1 files changed, 8 insertions, 0 deletions
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; |