summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakdvb3
-rw-r--r--perl-install/ugtk2.pm2
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 448f82c9e..bd1b8dcaa 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -60,6 +60,8 @@ sub detect_channels() {
$channel_list->set_sensitive(0);
$_->set_sensitive(0) foreach values %buttons;
+ $in->do_pkgs->install('w_scan');
+
gtkflush();
$SIG{CHLD} = sub {
@@ -87,7 +89,6 @@ sub detect_channels() {
} else {
$SIG{CHLD} = 'DEFAULT';
mkdir_p(dirname($config_file));
- system('/usr/sbin/drakhelp_inst w_scan') unless -e '/usr/bin/w_scan';
my $ret = system("w_scan -X > $config_file");
sleep(1);
POSIX::_exit($ret >> 8);
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 05e361253..3ab3d7b37 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -858,7 +858,7 @@ sub create_file_selector {
add2hash(\%opts, { width => 480, height => 250 });
gtkadd($w->{window},
gtkpack_(create_box_with_title($w, $message),
- 1, $w->{chooser} = gtknew('FileChooser', action => $action, %opts),
+ 1, $w->{chooser} = gtknew('FileChooserWidget', action => $action, %opts),
0, create_okcancel($w),
));
$w->{chooser}->signal_connect(file_activated => sub { $w->{ok}->clicked });