diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakdvb | 6 |
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); } } |