summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/diskdrake/hd_gtk.pm2
2 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 51dd3b9ed..f6445c2e9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,7 @@
- fix gurpmi path (#38679)
+- diskdrake:
+ o graphical error message when "No hard drives found" (#38699)
+ (otherwise drakbug will catch it and suggest to report a bug...)
- draksound:
o enable to set 5.1 channels (#38796)
- scannerdrake: fix undefined variable $in (#36387, #37039)
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index d98049aa2..340592822 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -260,7 +260,7 @@ sub create_automatic_notebooks {
my $b = $_->{marked} or $notebook_widget->remove_page($::i);
$b;
} @notebook;
- @notebook or die N("No hard drives found");
+ @notebook or $in->ask_warn(N("Error"), N("No hard drives found")), $in->exit(1);
}
################################################################################