summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-01-26 14:45:52 +0000
committerOlivier Blin <oblin@mandriva.com>2009-01-26 14:45:52 +0000
commit8096b73375f136c3082acbbd8cea12dbc501a3c5 (patch)
treeea013753c584865050c0b8194cb0ca523e3cb666 /perl-install
parent0ad2a682873015dcb630b2409b8101ba79e31d04 (diff)
downloaddrakx-8096b73375f136c3082acbbd8cea12dbc501a3c5.tar
drakx-8096b73375f136c3082acbbd8cea12dbc501a3c5.tar.gz
drakx-8096b73375f136c3082acbbd8cea12dbc501a3c5.tar.bz2
drakx-8096b73375f136c3082acbbd8cea12dbc501a3c5.tar.xz
drakx-8096b73375f136c3082acbbd8cea12dbc501a3c5.zip
_w is not unused, rename it
Diffstat (limited to 'perl-install')
-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));