summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-01-26 14:41:53 +0000
committerThierry Vignaud <tv@mandriva.org>2009-01-26 14:41:53 +0000
commit63b81e173618b20a420003e7fa7a88bc4b2ee1e9 (patch)
tree8688eee36190e15b07696ca241932f9d3651776b /perl-install
parent3a305ef3bb26c8162414b16392af61e17f01ded4 (diff)
downloaddrakx-63b81e173618b20a420003e7fa7a88bc4b2ee1e9.tar
drakx-63b81e173618b20a420003e7fa7a88bc4b2ee1e9.tar.gz
drakx-63b81e173618b20a420003e7fa7a88bc4b2ee1e9.tar.bz2
drakx-63b81e173618b20a420003e7fa7a88bc4b2ee1e9.tar.xz
drakx-63b81e173618b20a420003e7fa7a88bc4b2ee1e9.zip
(detect_channels) do not warn if file doesn't exist
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakdvb4
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;