From 3a305ef3bb26c8162414b16392af61e17f01ded4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 26 Jan 2009 14:33:46 +0000
Subject: fix checking return code

---
 perl-install/standalone/drakdvb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone')

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);
     }
 }
 
-- 
cgit v1.2.1