summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakdvb14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 1f4ded8fc..4e684c72e 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -38,7 +38,7 @@ my $config_file = "$ENV{HOME}/.mplayer/channels.conf";
my $channel_list = Gtk2::SimpleList->new(N("Channel") => "text", "id" => "hidden");
my %buttons;
my $pid;
-my $_w;
+my $wait;
sub get_selected_channel() {
my ($index) = $channel_list->get_selected_indices;
@@ -63,7 +63,7 @@ sub detect_channels() {
$SIG{CHLD} = sub {
$SIG{CHLD} = 'IGNORE';
- $_w->{window}->hide;
+ $wait->{window}->hide;
waitpid($pid, 0);
if (($? >> 8) == 0) {
load_channels();
@@ -74,15 +74,15 @@ sub detect_channels() {
$buttons{detect}->set_sensitive(1);
$channel_list->set_sensitive(1);
};
- $_w = ugtk2->new(N("Please wait"), grab => 1);
- $_w->{window}->signal_connect('destroy' => \&exitapp);
+ $wait = ugtk2->new(N("Please wait"), grab => 1);
+ $wait->{window}->signal_connect('destroy' => \&exitapp);
if ($pid = fork()) {
- gtkadd($_w->{window},
- gtkpack($_w->create_box_with_title(N("Detecting DVB channels, this will take a few minutes")),
+ gtkadd($wait->{window},
+ gtkpack($wait->create_box_with_title(N("Detecting DVB channels, this will take a few minutes")),
my $w = gtknew('Button', text => N("Cancel"), clicked => \&exitapp),
)
);
- $_w->main;
+ $wait->main;
} else {
$SIG{CHLD} = 'DEFAULT';
mkdir_p(dirname($config_file));