summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-01-26 14:33:46 +0000
committerOlivier Blin <oblin@mandriva.com>2009-01-26 14:33:46 +0000
commit3a305ef3bb26c8162414b16392af61e17f01ded4 (patch)
tree36c7f2da3a4460c5551cc100e903de0eb3cb973d /perl-install
parentc70a3954e166569811f7989f860b96845171ba20 (diff)
downloaddrakx-3a305ef3bb26c8162414b16392af61e17f01ded4.tar
drakx-3a305ef3bb26c8162414b16392af61e17f01ded4.tar.gz
drakx-3a305ef3bb26c8162414b16392af61e17f01ded4.tar.bz2
drakx-3a305ef3bb26c8162414b16392af61e17f01ded4.tar.xz
drakx-3a305ef3bb26c8162414b16392af61e17f01ded4.zip
fix checking return code
Diffstat (limited to 'perl-install')
-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);
}
}