diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 11:23:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 11:23:52 +0000 |
| commit | 19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c (patch) | |
| tree | 4fa64a61d165f66eeb839618e1c3b72f9e7a42f6 /perl-install/commands.pm | |
| parent | 54b725e9d01d45d1e6d23538a83cbc89e31578ac (diff) | |
| download | drakx-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.pm | 3 |
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; $_ } |