diff options
| -rw-r--r-- | urpm/cdrom.pm | 4 | ||||
| -rwxr-xr-x | urpmf | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/urpm/cdrom.pm b/urpm/cdrom.pm index 881bf879..d82f003c 100644 --- a/urpm/cdrom.pm +++ b/urpm/cdrom.pm @@ -63,9 +63,9 @@ sub _try_mounting_cdrom_using_hal { $urpm->{cdrom_mounted} = {}; # reset - eval { require Hal::Cdroms; 1 } or $urpm->{error}(N("You must mount CD-ROM yourself (or install perl-Hal-Cdroms to have it done automatically)")), return(); + eval { require Hal::Cdroms; 1 } or $urpm->{error}(10, N("You must mount CD-ROM yourself (or install perl-Hal-Cdroms to have it done automatically)")), return(); - my $hal_cdroms = eval { Hal::Cdroms->new } or $urpm->{fatal}(N("HAL daemon (hald) is not running or not ready")); + my $hal_cdroms = eval { Hal::Cdroms->new } or $urpm->{fatal}(10, N("HAL daemon (hald) is not running or not ready")); foreach my $hal_path ($hal_cdroms->list) { my $mntpoint; @@ -332,7 +332,7 @@ if ($needed_media_info{hdlist}) { if (m!^<!) { ($fn) = /fn="(.*)"/; } elsif (%s) { - $fn or $urpm->{fatal}("fast algorithm is broken, please report a bug"); + $fn or $urpm->{fatal}(1, "fast algorithm is broken, please report a bug"); my $pkg = urpm::xml_info_pkg->new({ fn => $fn }); print $pkg->name, ':', $_; } |