From 19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Oct 2000 11:23:52 +0000
Subject: no_comment

---
 perl-install/commands.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/commands.pm')

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; $_ }
-- 
cgit v1.2.1