diff options
| -rw-r--r-- | perl-install/commands.pm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index e2d0f4c0d..46246aa2b 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -560,21 +560,14 @@ sub install_cpio($$;@) { "$dir/$name"; } -sub bug { - my ($h) = getopts(\@_, "h"); - $h and die "usage: bug\nput file report.bug on fat formatted floppy\n"; - - require detect_devices; - mount devices::make(detect_devices::floppy()), "/fd0"; - +sub report_bug { sub header { " ******************************************************************************** * $_[0] ********************************************************************************"; } - local $\ = "\n"; - output "/fd0/report.bug", map { chomp; $_ } + join '', map { chomp; "$_\n" } header("lspci"), detect_devices::stringlist(), header("pci_devices"), cat_("/proc/bus/pci/devices"), header("fdisk"), `fdisk -l`, @@ -590,6 +583,16 @@ sub bug { header("ddebug.log"), cat_("/tmp/ddebug.log"), header("install.log"), cat_("/mnt/root/install.log"), ; +} + +sub bug { + my ($h) = getopts(\@_, "h"); + $h and die "usage: bug\nput file report.bug on fat formatted floppy\n"; + + require detect_devices; + mount devices::make(detect_devices::floppy()), "/fd0"; + + output "/fd0/report.bug", report_bug(); umount "/fd0"; sync; } |