summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakdvb
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakdvb')
-rwxr-xr-xperl-install/standalone/drakdvb6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 033df401f..9938670b0 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -63,7 +63,7 @@ sub detect_channels {
$SIG{CHLD} = 'IGNORE';
$_w->{window}->hide;
waitpid($pid, 0);
- if($?){
+ if(($? >> 8) == 0){
load_channels();
} else {
$in->ask_warn(N("Error"), N("Could not get the list of available channels"));
@@ -84,9 +84,9 @@ sub detect_channels {
} else {
$SIG{CHLD} = 'DEFAULT';
mkdir_p(dirname($config_file));
- system("w_scan -X > $config_file");
+ my $ret = system("w_scan -X > $config_file");
sleep(1);
- POSIX::_exit($?);
+ POSIX::_exit($ret >> 8);
}
}