summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect4
-rw-r--r--perl-install/ugtk2.pm2
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 739b2dc67..a27b6fb2e 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -375,7 +375,7 @@ sub update {
$label6->set($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
#TV $list->window->freeze();
#TV $list->window->clear();
-#TV build_list();
+ build_list();
#TV $list->window->thaw();
$button_del->set_sensitive(network::netconnect::get_profiles() > 1);
$isconnected != -1 or return 1;
@@ -664,7 +664,7 @@ Create one first by clicking on 'Configure'")),1,1,0);
$button_ok->signal_connect(clicked => sub {
$i = 0;
foreach (@mask) {
- ${$conf_data[$i]->[1]} = $infos[2*$i+1]->get_text() if $_;
+ ${$conf_data[$i][1]} = $infos[2*$i+1]->get_text() if $_;
$i++;
}
update();
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 6f54354e1..2ec95df4d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -761,7 +761,7 @@ sub new {
}
# gtk+-2 is bugged regarding socket/plug support
- if (0 &&$::isEmbedded && !$pop_it && !eval { $::Plug && $::Plug->child }) {
+ if (0 && $::isEmbedded && !$pop_it && !eval { $::Plug && $::Plug->child }) {
die "embedded mode: todo";
$o->{isEmbedded} = 1;
$o->{window} = new Gtk2::HBox(0,0);