path: root/perl-install/standalone/drakbug_report

#!/usr/bin/perl

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

use standalone;
use common;
use any;

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

print any::report_bug(%other);