diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 4 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
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); |