summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug_report
blob: 2f1abf662769204c86628f2076a02df6b55a607a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);

use common;
use any;

my %other = (
    'rpm -qa' => join('', sort `rpm -qa`),
    'mandrake version' => mdk_rel(),
    'df' => join('', `df`),
);

print any::report_bug('', %other);