(detect_channels) do not warn if file doesn't exist

1 files changed, 3 insertions, 1 deletions

diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 9938670b0..f11d02934 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -52,7 +52,9 @@ sub exitapp {
 }
 
 sub detect_channels {
-    $in->ask_okcancel(N("Warning"), N("%s already exists and its contents will be lost", $config_file)) or return;
+    if (-e $config_file) {
+        $in->ask_okcancel(N("Warning"), N("%s already exists and its contents will be lost", $config_file)) or return;
+    }
     gtkset_mousecursor_wait($w->{window}->window);
     $channel_list->set_sensitive(0);
     $_->set_sensitive(0) foreach values %buttons;