summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakdvb
diff options
context:
space:
mode:
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},