summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-01-20 18:41:37 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-01-20 18:41:37 +0000
commit6ab8daa2f5002c2f882e014684a920899a5087ef (patch)
tree69bb000c03d332d7bb42293c178c7c1a57f08fef /perl-install/network/network.pm
parent9b0249b2f337642968e013d923b2a5f1a22000a0 (diff)
downloaddrakx-6ab8daa2f5002c2f882e014684a920899a5087ef.tar
drakx-6ab8daa2f5002c2f882e014684a920899a5087ef.tar.gz
drakx-6ab8daa2f5002c2f882e014684a920899a5087ef.tar.bz2
drakx-6ab8daa2f5002c2f882e014684a920899a5087ef.tar.xz
drakx-6ab8daa2f5002c2f882e014684a920899a5087ef.zip
void label removed
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 067db1802..b7a212047 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -310,8 +310,8 @@ notation (for example, 1.2.3.4).");
{ label => N("Netmask"), val => \$intf->{NETMASK}, disabled => sub { $pump } },
if_(!$::expert, { label => N("Automatic IP"), val => \$pump, type => "bool", text => N("(bootp/dhcp/zeroconf)") }),
if_($::expert, { label => N("Automatic IP"), val => \$pump, type => "bool" },
- { label => N(""), val => \$dhcp, type => "bool", text => N("bootp/dhcp"), disabled => sub { !$pump } },
- { label => N(""), val => \$zeroconf, type => "bool", text => N("zeroconf"), disabled => sub { !$pump } },
+ { val => \$dhcp, type => "bool", text => N("bootp/dhcp"), disabled => sub { !$pump } },
+ { val => \$zeroconf, type => "bool", text => N("zeroconf"), disabled => sub { !$pump } },
{ label => N("Start at boot"), val => \$onboot, type => "bool" }),
if_($intf->{wireless_eth},
{ label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto" ] },
ot;seeking to sector #$pos failed on device $fs->{fs_name}"; sysread $fs->{fd}, $buf, $fs->{cluster_size} or die "reading at sector #$pos failed on device $fs->{fs_name}"; $buf; } sub write_cluster($$$) { my ($fs, $cluster, $buf) = @_; my $pos = $fs->{cluster_offset} / 512 + $cluster * ($fs->{cluster_size} / 512); c::lseek_sector(fileno $fs->{fd}, $pos, 0) or die "seeking to sector #$pos failed on device $fs->{fs_name}"; syswrite $fs->{fd}, $buf or die "writing at sector #$pos failed on device $fs->{fs_name}"; } sub read_file($$) { my ($fs, $cluster) = @_; my $buf = ''; for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) { $cluster == 0 and die "Bad FAT: unterminated chain\n"; $buf .= read_cluster($fs, $cluster); } $buf; } sub open { my ($fs) = @_; sysopen $fs->{fd}, $fs->{fs_name}, 2 or sysopen $fs->{fd}, $fs->{fs_name}, 0 or die "error opening device $fs->{fs_name} for writing\n"; }