fix checking return code

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);
     }
 }