From 83b80e71782f43df1bc998f194d13483e3c895b2 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Mon, 8 Aug 2005 08:53:41 +0000
Subject: fix bug #17255

---
 perl-install/standalone/drakhosts | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts
index ef005b0ce..e2ad56185 100644
--- a/perl-install/standalone/drakhosts
+++ b/perl-install/standalone/drakhosts
@@ -95,6 +95,7 @@ sub add_modify_entry {
 
   if ($wanted =~ /modify/) {
     $iter = $selection->get_selected;
+    $iter or info_dialog(N("Error"), N("Please add an host to be able to modify it.")) and return;
     my $path = $model->get_path($iter);
     $i = ($path->get_indices)[0];
     $ip->set_text($listhosts[$i]{ip});
-- 
cgit v1.2.1