enhance cdrom fallback without perl-Hal-Cdroms

1 files changed, 8 insertions, 5 deletions

diff --git a/urpmi b/urpmi
index d93b83c5..f19eebc6 100755
--- a/urpmi
+++ b/urpmi
@@ -627,11 +627,14 @@ my $exit_code = urpm::main_loop::run($urpm, $state,
 		return system($gmessage, '-buttons', N("Ok") . ':1,' . N("Cancel") . ':0', "\n$msg\n");
 	    }
 	}
-	print "$msg\n";
-
-	require Hal::Cdroms;
-	Hal::Cdroms->new->wait_for_insert;
-	1;
+	if (eval { require Hal::Cdroms; 1 }) {
+	    print "$msg\n";
+	    Hal::Cdroms->new->wait_for_insert;
+	    1;
+	} else {
+	    my $msg2 = N("Press Enter when mounted...");
+	    defined message_input_("$msg\n$msg2 ");
+	}
     }) : ()),
     trans_log => sub {
 #	    my ($mode, $file, $percent, $total, $eta, $speed) = @_;