diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 12:49:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 12:49:17 +0000 |
| commit | 1275f71751148da1433ab6cc0c69124fb3d05baa (patch) | |
| tree | fa1bfe30068c7db1964b9aa7aefc2cf7fac5a8f2 /perl-install/network | |
| parent | 2d85f131e1ec9181038692493bb9daca277edb45 (diff) | |
| download | drakx-1275f71751148da1433ab6cc0c69124fb3d05baa.tar drakx-1275f71751148da1433ab6cc0c69124fb3d05baa.tar.gz drakx-1275f71751148da1433ab6cc0c69124fb3d05baa.tar.bz2 drakx-1275f71751148da1433ab6cc0c69124fb3d05baa.tar.xz drakx-1275f71751148da1433ab6cc0c69124fb3d05baa.zip | |
don't pass prefix to network::netconnect::main() (it doesn't use it)
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 2adb960fd..c593d5045 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -75,7 +75,7 @@ sub get_subwizard { # configuring all network devices sub real_main { - my ($_prefix, $netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_; + my ($netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_; my $netc = $o_netc ||= {}; my $mouse = $o_mouse ||= {}; my $intf = $o_intf ||= {}; @@ -1387,8 +1387,8 @@ Click on Ok to keep your configuration, or cancel to reconfigure your Internet & } sub main { - my ($_prefix, $netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_; - eval { real_main('', , $netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) }; + my ($netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_; + eval { real_main($netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) }; my $err = $@; if ($err) { # && $in->isa('interactive::gtk') $err =~ /wizcancel/ and $in->exit(0); |