summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-02 11:23:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-02 11:23:52 +0000
commit19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c (patch)
tree4fa64a61d165f66eeb839618e1c3b72f9e7a42f6 /perl-install/commands.pm
parent54b725e9d01d45d1e6d23538a83cbc89e31578ac (diff)
downloaddrakx-19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c.tar
drakx-19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c.tar.gz
drakx-19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c.tar.bz2
drakx-19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c.tar.xz
drakx-19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 6a6869a0a..2e8ffc146 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -561,6 +561,8 @@ sub install_cpio($$;@) {
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(first(detect_devices::floppies())), "/fd0";
sub header { "
@@ -568,7 +570,6 @@ sub bug {
* $_[0]
********************************************************************************";
}
- require detect_devices;
local $\ = "\n";
output "/fd0/report.bug", map { chomp; $_ }