summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakdvb
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-02-19 16:54:47 +0000
committerOlivier Blin <oblin@mandriva.com>2009-02-19 16:54:47 +0000
commit5aa3441b1700c56b6e478a904c0469b80de4853c (patch)
tree7853604d0d2c76b066cec92781bd0c35dfc66f1a /perl-install/standalone/drakdvb
parent1a6e5b727d651158669d405075b8069a2fbe42d9 (diff)
downloaddrakx-5aa3441b1700c56b6e478a904c0469b80de4853c.tar
drakx-5aa3441b1700c56b6e478a904c0469b80de4853c.tar.gz
drakx-5aa3441b1700c56b6e478a904c0469b80de4853c.tar.bz2
drakx-5aa3441b1700c56b6e478a904c0469b80de4853c.tar.xz
drakx-5aa3441b1700c56b6e478a904c0469b80de4853c.zip
do not try to start player if no channel is selected
Diffstat (limited to 'perl-install/standalone/drakdvb')
-rwxr-xr-xperl-install/standalone/drakdvb3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 222dfd51e..531701862 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -111,7 +111,8 @@ sub load_channels() {
}
sub launch_tv() {
- system('mplayer "dvb://' . get_selected_channel() . '"&');
+ my $channel = get_selected_channel() or return;
+ system('mplayer "dvb://' . $channel . '"&');
}
gtkadd($w->{window},