summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
commit868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch)
tree97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install
parent987b89760dd7090ecf49bd225c634bcf7503d18c (diff)
downloaddrakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.gz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.bz2
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.xz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/main.pm2
-rw-r--r--perl-install/Xconfig/monitor.pm2
-rw-r--r--perl-install/Xconfig/parse.pm3
-rw-r--r--perl-install/Xconfig/resolution_and_depth.pm4
-rw-r--r--perl-install/Xconfig/test.pm3
-rw-r--r--perl-install/Xconfig/xfree4.pm2
-rw-r--r--perl-install/any.pm9
-rw-r--r--perl-install/bootloader.pm12
-rw-r--r--perl-install/commands.pm4
-rw-r--r--perl-install/devices.pm4
-rw-r--r--perl-install/diskdrake/dav.pm2
-rw-r--r--perl-install/diskdrake/hd_gtk.pm5
-rw-r--r--perl-install/diskdrake/interactive.pm36
-rw-r--r--perl-install/diskdrake/removable.pm2
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm2
-rw-r--r--perl-install/fs.pm4
-rw-r--r--perl-install/fsedit.pm6
-rw-r--r--perl-install/ftp.pm2
-rw-r--r--perl-install/install2.pm34
-rw-r--r--perl-install/install_any.pm6
-rw-r--r--perl-install/install_interactive.pm6
-rw-r--r--perl-install/install_steps.pm22
-rw-r--r--perl-install/install_steps_auto_install.pm4
-rw-r--r--perl-install/install_steps_gtk.pm6
-rw-r--r--perl-install/install_steps_interactive.pm33
-rw-r--r--perl-install/interactive.pm12
-rw-r--r--perl-install/interactive/gtk.pm19
-rw-r--r--perl-install/interactive/http.pm8
-rw-r--r--perl-install/interactive/newt.pm12
-rw-r--r--perl-install/interactive/stdio.pm4
-rw-r--r--perl-install/loopback.pm2
-rw-r--r--perl-install/modules.pm2
-rw-r--r--perl-install/mouse.pm10
-rw-r--r--perl-install/my_gtk.pm15
-rw-r--r--perl-install/network/adsl.pm2
-rw-r--r--perl-install/network/drakfirewall.pm2
-rw-r--r--perl-install/network/ethernet.pm4
-rw-r--r--perl-install/network/isdn.pm3
-rw-r--r--perl-install/network/modem.pm2
-rw-r--r--perl-install/network/netconnect.pm21
-rw-r--r--perl-install/network/network.pm1
-rw-r--r--perl-install/network/nfs.pm10
-rw-r--r--perl-install/network/smb.pm8
-rw-r--r--perl-install/network/smbnfs.pm4
-rw-r--r--perl-install/network/tools.pm3
-rw-r--r--perl-install/partition_table.pm1
-rw-r--r--perl-install/partition_table/gpt.pm3
-rw-r--r--perl-install/partition_table/mac.pm4
-rw-r--r--perl-install/partition_table/raw.pm4
-rw-r--r--perl-install/pkgs.pm23
-rw-r--r--perl-install/printer/common.pm1
-rw-r--r--perl-install/printer/detect.pm4
-rw-r--r--perl-install/printer/gimp.pm5
-rw-r--r--perl-install/printer/main.pm3
-rw-r--r--perl-install/printer/office.pm4
-rw-r--r--perl-install/printer/printerdrake.pm86
-rw-r--r--perl-install/resize_fat/dir_entry.pm2
-rw-r--r--perl-install/resize_fat/directory.pm2
-rw-r--r--perl-install/resize_fat/io.pm2
-rwxr-xr-xperl-install/scanner.pm2
-rw-r--r--perl-install/security/main.pm4
-rw-r--r--perl-install/services.pm6
-rw-r--r--perl-install/swap.pm1
-rw-r--r--perl-install/ugtk.pm9
-rw-r--r--perl-install/ugtk2.pm22
65 files changed, 255 insertions, 292 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index adca31e0e..6baa84f78 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -54,7 +54,7 @@ sub configure_everything {
$options->{VideoRam_probed} = $X->{monitor}{VideoRam_probed};
$ok &&= $X->{card} = Xconfig::card::configure($in, $raw_X, $do_pkgs, $auto, $options);
$ok &&= Xconfig::screen::configure($raw_X, $X->{card});
- $ok &&= $X->{resolution} = Xconfig::resolution_and_depth::configure($in, $raw_X, $X->{card}, $X->{monitor}, $auto);
+ $ok &&= $X->{resolution} = Xconfig::resolution_and_depth::configure($in, $raw_X, $X->{card}, $X->{monitor});
$ok &&= Xconfig::test::test($in, $raw_X, $X->{card}, $auto, 'skip_badcard');
if (!$ok) {
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index 8038818cd..3d9415dff 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -161,7 +161,7 @@ sub getinfoFromDDC {
push @Modes, [ $x, $y, $depth ];
}
- my ($h, $v, $size, @m) = @l;
+ my ($h, $v, $size, @_modes) = @l;
{
VideoRam_probed => to_int($VideoRam),
HorizSync => first($h =~ /^(\S*)/),
diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm
index 0099b4666..a2e662009 100644
--- a/perl-install/Xconfig/parse.pm
+++ b/perl-install/Xconfig/parse.pm
@@ -35,7 +35,6 @@ sub raw_from_file { #- internal
$lines ||= [ cat_($file) ];
my $line;
- my $weird = sub { warn "$file:$line: strange $_[0]" };
my ($comment, $obj, @objs);
@@ -81,7 +80,7 @@ sub raw_from_file { #- internal
} elsif (/^EndSubsection/i) {
die "$file:$line: not in Subsection\n" if !@objs || $objs[0]{kind} ne 'Subsection';
$attach_comment->('post');
- my $e = shift @objs; $obj = '';
+ shift @objs; $obj = '';
} else {
die "$file:$line: not in Section\n" if !@objs;
diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm
index daeac5806..f3d7769a3 100644
--- a/perl-install/Xconfig/resolution_and_depth.pm
+++ b/perl-install/Xconfig/resolution_and_depth.pm
@@ -138,7 +138,7 @@ sub choose {
sub choices {
- my ($raw_X, $resolution_wanted, $card, $monitor) = @_;
+ my ($_raw_X, $resolution_wanted, $card, $monitor) = @_;
$resolution_wanted ||= {};
my ($prefered_depth, @resolutions) = allowed($card);
@@ -169,7 +169,7 @@ sub choices {
}
sub configure {
- my ($in, $raw_X, $card, $monitor, $auto) = @_;
+ my ($in, $raw_X, $card, $monitor) = @_;
my ($default_resolution, @resolutions) = choices($raw_X, $raw_X->get_resolution, $card, $monitor);
diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 307c0ff7a..4fafaafa8 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -26,7 +26,6 @@ sub test {
return 1 if $skip_badcard && $bad_card;
if ($bad_card || !$auto) {
- my $msg =
$in->ask_yesorno(N("Test of the configuration"),
N("Do you want to test the configuration?") . ($bad_card ? "\n" . N("Warning: testing this graphic card may freeze your computer") : ''),
!$bad_card) or return 1;
@@ -64,7 +63,7 @@ sub test {
do { sleep 1 } until xtest(":9") || waitpid($pid, c::WNOHANG());
- my $b = before_leaving { unlink $f_err };
+ my $_b = before_leaving { unlink $f_err };
if (!xtest(":9")) {
open(my $F, $f_err);
diff --git a/perl-install/Xconfig/xfree4.pm b/perl-install/Xconfig/xfree4.pm
index 88cad5b06..7dd57dab1 100644
--- a/perl-install/Xconfig/xfree4.pm
+++ b/perl-install/Xconfig/xfree4.pm
@@ -123,7 +123,7 @@ sub new_screen_sections {
}
sub set_Option {
- my ($raw_X, $category, $node, @names) = @_;
+ my ($_raw_X, $category, $node, @names) = @_;
if (member($category, 'keyboard', 'mouse')) {
#- everything we export is an Option
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 9e0d58139..26e4343d9 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -56,7 +56,6 @@ sub allocUsers {
sub addUsers {
my ($prefix, $users) = @_;
- my $msec = "$prefix/etc/security/msec";
allocUsers($prefix, $users);
foreach my $u (@$users) {
@@ -278,7 +277,6 @@ You can add some more or change the existing ones."),
$e->{label} = $prefix;
for (my $nb = 0; member($e->{label}, @labels); $nb++) { $e->{label} = "$prefix-$nb" }
}
- my %old_e = %$e;
my $default = my $old_default = $e->{label} eq $b->{default};
my @l;
@@ -358,7 +356,7 @@ sub pack_passwd {
}
sub get_autologin {
- my ($o) = @_;
+ my ($_o) = @_;
my %l = getVarsFromSh("$::prefix/etc/sysconfig/autologin");
my %desktop = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
{ autologin => text2bool($l{AUTOLOGIN}) && $l{USER}, desktop => $desktop{DESKTOP} };
@@ -711,7 +709,7 @@ not cause any damage.", $module_descr)), [ N_("Autoprobe"), N_("Specify options"
}
while (1) {
eval {
- my $w = wait_load_module($in, $category, $module_descr, $module);
+ my $_w = wait_load_module($in, $category, $module_descr, $module);
log::l("user asked for loading module $module (type $category, desc $module_descr)");
modules::load([ $module, @$options ]);
};
@@ -730,7 +728,6 @@ sub ask_users {
my $u if 0; $u ||= {};
- my @shells = map { chomp; $_ } cat_("$prefix/etc/shells");
my @icons = facesnames($prefix);
my %high_security_groups = (
@@ -973,7 +970,6 @@ sub fileshare_config {
if (@wanted == 1) {
$in->ask_okcancel('', N("The package %s needs to be installed. Do you want to install it?", $type2file{$wanted[0]}[1]), 1) or return;
} else {
- my %choices;
my $wanted = $in->ask_many_from_list('', N("You can export using NFS or Samba. Please select which you'd like to use."),
{ list => \@wanted }) or return;
@wanted = @$wanted or return;
@@ -1052,7 +1048,6 @@ sub config_security_user {
sub choose_security_level {
my ($in, $security, $libsafe, $email) = @_;
- my $expert_file = "/etc/security/msec/expert_mode";
my %l = (
0 => N("Welcome To Crackers"),
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 952c54d4b..e2ba67f29 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -79,7 +79,7 @@ sub mkbootdisk {
sub read() {
my $file = sprintf("/etc/%s.conf", arch() =~ /sparc/ ? 'silo' : arch() =~ /ppc/ ? 'yaboot' : 'lilo');
my $global = 1;
- my ($e, $v, $f);
+ my ($e, $v);
my %b;
foreach (cat_("$::prefix$file")) {
next if /^\s*#/ || /^\s*$/;
@@ -601,7 +601,7 @@ sub get_of_dev {
}
sub install_yaboot {
- my ($lilo, $fstab, $hds) = @_;
+ my ($lilo, $_fstab, $_hds) = @_;
$lilo->{prompt} = $lilo->{timeout};
if ($lilo->{message}) {
@@ -678,7 +678,7 @@ sub install_yaboot {
sub install_silo {
my ($silo, $fstab) = @_;
my $boot = fsedit::get_root($fstab, 'boot')->{device};
- my ($wd, $num) = $boot =~ /^(.*\D)(\d*)$/;
+ my ($wd, $_num) = $boot =~ /^(.*\D)(\d*)$/;
#- setup boot promvars for.
require c;
@@ -764,7 +764,7 @@ sub write_lilo_conf {
(my $part, $file) = fsedit::file2part($fstab, $file);
my %hds = map_index { $_ => "hd$::i" } map { $_->{device} }
sort { isFat($b) <=> isFat($a) || $a->{device} cmp $b->{device} } fsedit::get_fstab(@$hds);
- $hds->{$part->{device}} . ":" . $file;
+ $hds{$part->{device}} . ":" . $file;
} else {
$file
}
@@ -967,8 +967,6 @@ sub write_grub_config {
}
}
}
- my $hd = fsedit::get_root($fstab, 'boot')->{rootDevice};
-
my $dev = dev2grub($lilo->{first_hd_device} || $lilo->{boot}, \%dev2bios);
my ($s1, $s2, $m) = map { $file2grub->("/boot/grub/$_") } qw(stage1 stage2 menu.lst);
my $f = "/boot/grub/install.sh";
@@ -1048,7 +1046,7 @@ sub install_loadlin {
my $windrive = $winhandle->{dir};
log::l("windrive is $windrive");
- my ($label, $cmd) = loadlin_cmd($lilo);
+ my ($_label, $cmd) = loadlin_cmd($lilo);
#install_loadlin_config_sys($lilo, $windrive, $label, $cmd);
#install_loadlin_desktop($lilo, $windrive);
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index aba586d60..9e1d9b95c 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -93,7 +93,7 @@ sub umount {
}
sub mkdir_ {
- my ($rec) = getopts(\@_, qw(p));
+ my ($_rec) = getopts(\@_, qw(p));
mkdir_p($_) foreach @_;
}
@@ -105,7 +105,7 @@ sub mknod {
} elsif (@_ == 4) {
require c;
my $mode = ${{ "b" => c::S_IFBLK(), "c" => c::S_IFCHR() }}{$_[1]} or die "unknown node type $_[1]\n";
- syscall_('mknod', my $a = $_[0], $mode | 0600, makedev($_[2], $_[3])) or die "mknod failed: $!\n";
+ syscall_('mknod', my $_a = $_[0], $mode | 0600, makedev($_[2], $_[3])) or die "mknod failed: $!\n";
} else { die "usage: mknod <path> [b|c] <major> <minor> or mknod <path>\n" }
}
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 3d97a13b4..f6a22c5f1 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -12,7 +12,7 @@ sub size {
my ($dev) = @_;
sysopen(my $F, $dev, 0) or log::l("open $dev: $!"), return 0;
- my $valid_offset = sub { sysseek($F, $_[0], 0) && sysread($F, my $a, 1) };
+ my $valid_offset = sub { sysseek($F, $_[0], 0) && sysread($F, my $_a, 1) };
#- first try getting the size nicely
if (my $size = c::total_sectors(fileno $F)) {
@@ -41,7 +41,7 @@ sub find_free_loop {
foreach (0..7) {
my $dev = make("loop$_");
sysopen(my $F, $dev, 2) or next;
- !ioctl($F, c::LOOP_GET_STATUS(), my $tmp) && $! == 6 or next; #- 6 == ENXIO
+ !ioctl($F, c::LOOP_GET_STATUS(), my $_tmp) && $! == 6 or next; #- 6 == ENXIO
return $dev;
}
die "no free loop found";
diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm
index 4b19cf246..e393cd822 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -79,7 +79,7 @@ sub try {
}
sub ask_server {
- my ($in, $dav, $all_hds) = @_;
+ my ($in, $dav, $_all_hds) = @_;
my $server = $dav->{device};
$in->ask_from('', N("Please enter the WebDAV server URL"),
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 9ccfb3da4..1db5a6c6d 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -66,7 +66,7 @@ sub main {
gtkadd($w->{window},
gtkpack_(Gtk2::VBox->new(0,7),
- 0, (my $filesystems_button_box = filesystems_button_box()),
+ 0, filesystems_button_box(),
1, (my $notebook_widget = Gtk2::Notebook->new),
0, (my $per_kind_action_box = Gtk2::HBox->new(0,0)),
0, (my $general_action_box = Gtk2::HBox->new(0,0)),
@@ -209,7 +209,7 @@ sub per_entry_info_box {
}
sub current_kind_changed {
- my ($in, $kind) = @_;
+ my ($_in, $kind) = @_;
$_->widget->destroy foreach $kind->{display_box}->children;
@@ -233,7 +233,6 @@ sub current_entry_changed {
sub create_automatic_notebooks {
my ($notebook_widget) = @_;
- my @l = fsedit::all_hds($all_hds);
$_->{marked} = 0 foreach @notebook;
my $may_add = sub {
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 9761e59c5..599991db6 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -230,7 +230,7 @@ sub general_possible_actions {
sub Undo {
- my ($in, $all_hds) = @_;
+ my ($_in, $all_hds) = @_;
fsedit::undo($all_hds);
}
@@ -266,7 +266,7 @@ sub Done {
# per-hd actions
################################################################################
sub hd_possible_actions {
- my ($in, $hd, $all_hds) = @_;
+ my ($_in, $hd, $_all_hds) = @_;
(
if_(!$hd->{readonly} || $hd->{getting_rid_of_readonly_allowed}, N_("Clear all")),
if_(!$hd->{readonly} && $::isInstall, N_("Auto allocate")),
@@ -274,7 +274,7 @@ sub hd_possible_actions {
);
}
sub hd_possible_actions_interactive {
- my ($in, $hd, $all_hds) = @_;
+ my ($_in, $_hd, $_all_hds) = @_;
&hd_possible_actions, N_("Hard drive information");
}
@@ -370,7 +370,7 @@ All data on this floppy will be lost"), 1) && devices::make(detect_devices::flop
sub Rescuept {
my ($in, $hd) = @_;
- my $w = $in->wait_message('', N("Trying to rescue partition table"));
+ my $_w = $in->wait_message('', N("Trying to rescue partition table"));
fsedit::rescuept($hd);
}
@@ -384,7 +384,7 @@ sub Hd_info {
################################################################################
sub part_possible_actions {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($_in, $hd, $part, $_all_hds) = @_;
$part or return;
my %actions = my @l = (
@@ -442,7 +442,7 @@ sub Create {
my $mb_size = $part->{size} >> 11;
my $has_startsector = ($::expert || arch() !~ /i.86/) && !isLVM($hd);
- my $w = $in->ask_from(N("Create a new partition"), '',
+ $in->ask_from(N("Create a new partition"), '',
[
if_($has_startsector,
{ label => N("Start sector: "), val => \$part->{start}, min => $def_start, max => ($max - min_partition_size($hd)), type => 'range' },
@@ -545,7 +545,7 @@ sub Type {
my $type = $type_name && name2type($type_name);
if (isExt2($part) && isThisFs('ext3', { type => $type })) {
- my $w = $in->wait_message('', N("Switching from ext2 to ext3"));
+ my $_w = $in->wait_message('', N("Switching from ext2 to ext3"));
if (run_program::run("tune2fs", "-j", devices::make($part->{device}))) {
$part->{type} = $type;
$part->{isFormatted} = 1; #- assume that if tune2fs works, partition is formatted
@@ -627,7 +627,7 @@ sub Resize {
if (isFat($part)) {
write_partitions($in, $hd) or return;
#- try to resize without losing data
- my $w = $in->wait_message(N("Resizing"), N("Computing FAT filesystem bounds"));
+ my $_w = $in->wait_message(N("Resizing"), N("Computing FAT filesystem bounds"));
$nice_resize{fat} = resize_fat::main->new($part->{device}, devices::make($part->{device}));
$min = max($min, $nice_resize{fat}->min_size);
@@ -685,7 +685,7 @@ sub Resize {
$hd->adjustEnd($part);
undef $@;
- my $b = before_leaving { $@ and $part->{size} = $oldsize };
+ my $_b = before_leaving { $@ and $part->{size} = $oldsize };
my $w = $in->wait_message(N("Resizing"), '');
if (isLVM($hd)) {
@@ -730,7 +730,7 @@ sub Move {
N("Which sector do you want to move it to?"));
defined $start2 or return;
- my $w = $in->wait_message(N("Moving"), N("Moving partition..."));
+ my $_w = $in->wait_message(N("Moving"), N("Moving partition..."));
fsedit::move($hd, $part, $hd2, $start2);
}
sub Format {
@@ -743,7 +743,7 @@ sub Mount {
fs::mount_part($part);
}
sub Add2RAID {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($in, $_hd, $part, $all_hds) = @_;
my $raids = $all_hds->{raids};
local $_ = @$raids == () ? "new" :
@@ -785,15 +785,15 @@ sub Add2LVM {
lvm::update_size($lvm);
}
sub Unmount {
- my ($in, $hd, $part) = @_;
+ my ($_in, $_hd, $part) = @_;
fs::umount_part($part);
}
sub RemoveFromRAID {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($_in, $_hd, $part, $all_hds) = @_;
raid::removeDisk($all_hds->{raids}, $part);
}
sub RemoveFromLVM {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($_in, $_hd, $part, $all_hds) = @_;
my $lvms = $all_hds->{lvms};
isPartOfLVM($part) or die;
my ($lvm) = grep { $_->{VG_name} eq $part->{lvm} } @$lvms;
@@ -801,7 +801,7 @@ sub RemoveFromLVM {
@$lvms = grep { $_ != $lvm } @$lvms;
}
sub ModifyRAID {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($in, $_hd, $part, $all_hds) = @_;
modifyRAID($in, $all_hds->{raids}, $part->{raid});
}
sub Loopback {
@@ -1028,7 +1028,7 @@ sub write_partitions {
}
sub unmount {
- my ($hd, $part) = @_;
+ my ($_hd, $part) = @_;
fs::umount_part($part);
}
sub format_ {
@@ -1036,7 +1036,7 @@ sub format_ {
write_partitions($in, $_) or return foreach isRAID($part) ? @{$all_hds->{hds}} : $hd;
ask_alldatawillbelost($in, $part, N_("After formatting partition %s, all data on this partition will be lost")) or return;
$part->{isFormatted} = 0; #- force format;
- my $w = $in->wait_message(N("Formatting"),
+ my $_w = $in->wait_message(N("Formatting"),
isLoopback($part) ? N("Formatting loopback file %s", $part->{loopback_file}) :
N("Formatting partition %s", $part->{device}));
fs::format_part($all_hds->{raids}, $part);
@@ -1059,7 +1059,7 @@ sub need_migration {
}
sub migrate_files {
- my ($in, $hd, $part, $all_hds) = @_;
+ my ($in, $_hd, $part, $_all_hds) = @_;
my $wait = $in->wait_message('', N("Moving files to the new partition"));
my $handle = any::inspect($part, '', 'rw');
diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm
index f0222d10e..939e61283 100644
--- a/perl-install/diskdrake/removable.pm
+++ b/perl-install/diskdrake/removable.pm
@@ -29,7 +29,7 @@ sub actions {
}
sub done {
- my ($in, $raw_hd, $all_hds) = @_;
+ my ($in, $_raw_hd, $all_hds) = @_;
diskdrake::interactive::Done($in, $all_hds);
}
sub options {
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index 4b1eee633..7bf184afe 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -60,7 +60,7 @@ sub raw_hd_mount_point {
}
sub per_entry_info_box {
- my ($box, $kind, $entry) = @_;
+ my ($box, $_kind, $entry) = @_;
$_->isa('Gtk2::Button') or $_->destroy foreach map { $_->widget } $box->children;
my $info;
if ($entry) {
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 7ad3d0949..d6445596b 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -358,7 +358,7 @@ sub mount_options_unpack {
}
sub mount_options_pack_ {
- my ($part, $options, $unknown) = @_;
+ my ($_part, $options, $unknown) = @_;
my ($non_defaults, $user_implies) = mount_options();
my @l;
@@ -665,7 +665,7 @@ sub formatMount_all {
#- that way, when install exits via ctrl-c, it gives hand to partition
eval {
local $SIG{__DIE__} = 'ignore';
- my ($type, $major, $minor) = devices::entry(fsedit::get_root($fstab)->{device});
+ my ($_type, $major, $minor) = devices::entry(fsedit::get_root($fstab)->{device});
output "/proc/sys/kernel/real-root-dev", makedev($major, $minor);
};
}
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 731824dd5..9f244e873 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -458,7 +458,7 @@ sub suggest_part {
my $has_swap = grep { isSwap($_) } get_all_fstab($all_hds);
- my ($best, $second) =
+ my ($best) =
grep { !$_->{maxsize} || $part->{size} <= $_->{maxsize} }
grep { $_->{size} <= ($part->{maxsize} || $part->{size}) }
grep { !has_mntpoint($_->{mntpoint}, $all_hds) || isSwap($_) && !$has_swap }
@@ -497,7 +497,7 @@ sub get_root { &get_root_ || {} }
#- do this before modifying $part->{type}
sub check_type {
- my ($type, $hd, $part) = @_;
+ my ($type, $_hd, $part) = @_;
isThisFs("jfs", { type => $type }) && $part->{size} < 16 << 11 and die N("You can't use JFS for partitions smaller than 16MB");
isThisFs("reiserfs", { type => $type }) && $part->{size} < 32 << 11 and die N("You can't use ReiserFS for partitions smaller than 32MB");
}
@@ -595,7 +595,7 @@ sub auto_allocate {
if ($before == listlength(fsedit::get_all_fstab($all_hds))) {
# find out why auto_allocate failed
- if (my @l = grep { !has_mntpoint($_->{mntpoint}, $all_hds) } @$suggestions_) {
+ if (grep { !has_mntpoint($_->{mntpoint}, $all_hds) } @$suggestions_) {
die N("Not enough free space for auto-allocating");
} else {
die N("Nothing to do");
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index a04f8db87..05e892c62 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -41,7 +41,7 @@ sub new {
$ftp->binary;
$ftp->cwd($prefix);
- my @l = ($ftp, \ (my $retr));
+ my @l = ($ftp, \ (my $_retr));
$hosts{"$host$prefix"} = \@l;
@l;
} };
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 3025abc9f..78296fff0 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -85,7 +85,7 @@ sub installStepsCall {
#------------------------------------------------------------------------------
sub selectLanguage {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $ent_number, $auto) = @_;
installStepsCall($o, $auto, 'selectLanguage', $ent_number == 1);
installStepsCall($o, $auto, 'acceptLicence');
@@ -105,7 +105,7 @@ sub selectMouse {
#------------------------------------------------------------------------------
sub setupSCSI {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
if (!$::live && !$::g_auto_install && !$o->{blank} && !$::testing && !$::uml_install) {
-s modules::cz_file() or die N("Can't access kernel modules corresponding to your kernel (file %s is missing), this generally means your boot floppy in not in sync with the Installation medium (please create a newer boot floppy)", modules::cz_file());
@@ -116,7 +116,7 @@ sub setupSCSI {
#------------------------------------------------------------------------------
sub selectKeyboard {
- my ($clicked, $first_time, $auto) = ($_[0], $_[1] == 1, $_[2]);
+ my ($clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'selectKeyboard', $clicked);
@@ -131,7 +131,7 @@ sub selectKeyboard {
#------------------------------------------------------------------------------
sub selectInstallClass {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'selectInstallClass', $clicked);
@@ -148,7 +148,7 @@ sub selectInstallClass {
#------------------------------------------------------------------------------
sub doPartitionDisks {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $_ent_number, $auto) = @_;
$o->{steps}{formatPartitions}{done} = 0;
installStepsCall($o, $auto, 'doPartitionDisksBefore');
installStepsCall($o, $auto, 'doPartitionDisks');
@@ -156,7 +156,7 @@ sub doPartitionDisks {
}
sub formatPartitions {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $_ent_number, $auto) = @_;
$o->{steps}{choosePackages}{done} = 0;
installStepsCall($o, $auto, 'choosePartitionsToFormat', $o->{fstab}) if !$o->{isUpgrade};
@@ -195,7 +195,7 @@ sub formatPartitions {
#------------------------------------------------------------------------------
sub choosePackages {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $ent_number, $auto) = @_;
require pkgs;
#- always setPackages as it may have to copy hdlist files and synthesis files.
@@ -212,7 +212,7 @@ sub choosePackages {
#------------------------------------------------------------------------------
sub installPackages {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $ent_number, $auto) = @_;
installStepsCall($o, $auto, 'readBootloaderConfigBeforeInstall') if $ent_number == 1;
@@ -222,7 +222,7 @@ sub installPackages {
}
#------------------------------------------------------------------------------
sub miscellaneous {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'miscellaneousBefore', $clicked);
installStepsCall($o, $auto, 'miscellaneous', $clicked);
@@ -231,7 +231,7 @@ sub miscellaneous {
#------------------------------------------------------------------------------
sub summary {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $ent_number, $auto) = @_;
installStepsCall($o, $auto, 'summary', $ent_number == 1);
}
#------------------------------------------------------------------------------
@@ -244,22 +244,22 @@ sub configureNetwork {
}
#------------------------------------------------------------------------------
sub installCrypto {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'installCrypto');
}
#------------------------------------------------------------------------------
sub installUpdates {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'installUpdates');
}
#------------------------------------------------------------------------------
sub configureServices {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
installStepsCall($o, $auto, 'configureServices', $clicked);
}
#------------------------------------------------------------------------------
sub setRootPassword {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
return if $o->{isUpgrade};
installStepsCall($o, $auto, 'setRootPassword', $clicked);
@@ -267,7 +267,7 @@ sub setRootPassword {
}
#------------------------------------------------------------------------------
sub addUser {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
return if $o->{isUpgrade} && !$clicked;
installStepsCall($o, $auto, 'addUser', $clicked);
@@ -298,7 +298,7 @@ sub setupBootloader {
}
#------------------------------------------------------------------------------
sub configureX {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($clicked, $_ent_number, $auto) = @_;
#- done here and also at the end of install2.pm, just in case...
install_any::write_fstab($o);
@@ -309,7 +309,7 @@ sub configureX {
}
#------------------------------------------------------------------------------
sub exitInstall {
- my ($clicked, $ent_number, $auto) = @_;
+ my ($_clicked, $_xent_number, $auto) = @_;
installStepsCall($o, $auto, 'exitInstall', getNextStep() eq 'exitInstall');
}
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 014dea3e5..40f6d3370 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -457,7 +457,7 @@ sub addToBeDone(&$) {
sub setAuthentication {
my ($o) = @_;
- my ($shadow, $md5, $ldap, $nis, $winbind, $winpass) = @{$o->{authentication} || {}}{qw(shadow md5 LDAP NIS winbind winpass)};
+ my ($shadow, $ldap, $nis, $winbind, $winpass) = @{$o->{authentication} || {}}{qw(shadow LDAP NIS winbind winpass)};
my $p = $o->{prefix};
any::enableShadow($p) if $shadow;
if ($ldap) {
@@ -737,7 +737,7 @@ sub g_auto_install {
exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall mkbootdisk X services); #- TODO modules bootloader
- if (my $printer = $::o->{printer}) {
+ if ($::o->{printer}) {
$o->{printer}{$_} = $::o->{printer}{$_} foreach qw(SPOOLER DEFAULT BROWSEPOLLADDR BROWSEPOLLPORT MANUALCUPSCONFIG);
$o->{printer}{configured} = {};
foreach my $queue (keys %{$::o->{printer}{configured}}) {
@@ -906,7 +906,7 @@ sub loadO {
}
-e $f or $f .= '.pl';
- my $b = before_leaving {
+ my $_b = before_leaving {
fs::umount("/mnt") unless $::testing;
modules::unload(qw(vfat fat));
};
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 627305e8d..ab565eef8 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -74,7 +74,7 @@ sub partitionWizardSolutions {
my $hds = $all_hds->{hds};
my $fstab = [ fsedit::get_all_fstab($all_hds) ];
my @wizlog;
- my (@solutions, %solutions);
+ my (%solutions);
my $min_linux = 400 << 11;
my $max_linux = 3000 << 11;
@@ -257,12 +257,12 @@ sub partitionWizard {
sub upNetwork {
my ($o, $pppAvoided) = @_;
- my $w = $o->wait_message('', N("Bringing up the network"));
+ my $_w = $o->wait_message('', N("Bringing up the network"));
install_steps::upNetwork($o, $pppAvoided);
}
sub downNetwork {
my ($o, $pppOnly) = @_;
- my $w = $o->wait_message('', N("Bringing down the network"));
+ my $_w = $o->wait_message('', N("Bringing down the network"));
install_steps::downNetwork($o, $pppOnly);
}
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 9aed7ba4e..23c89d2c1 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -44,7 +44,7 @@ sub new($$) {
#- In/Out Steps Functions
#-######################################################################################
sub enteringStep {
- my ($o, $step) = @_;
+ my ($_o, $step) = @_;
log::l("starting step `$step'");
}
sub leavingStep {
@@ -199,7 +199,7 @@ sub doPartitionDisks {
#------------------------------------------------------------------------------
sub ask_mntpoint_s {
- my ($o, $fstab) = @_;
+ my ($_o, $fstab) = @_;
#- TODO: set the mntpoints
@@ -219,13 +219,13 @@ sub ask_mntpoint_s {
sub rebootNeeded($) {
- my ($o) = @_;
+ my ($_o) = @_;
log::l("Rebooting...");
c::_exit(0);
}
sub choosePartitionsToFormat($$) {
- my ($o, $fstab) = @_;
+ my ($_o, $fstab) = @_;
foreach (@$fstab) {
$_->{mntpoint} = "swap" if isSwap($_);
@@ -258,7 +258,7 @@ sub setPackages {
}
sub choosePackages {
- my ($o, $packages, $compssUsers, $first_time) = @_;
+ my ($o, $packages, $_compssUsers, $first_time) = @_;
#- now for upgrade, package that must be upgraded are
#- selected first, after is used the same scheme as install.
@@ -446,8 +446,6 @@ Consoles 1,3,4,7 may also contain interesting information";
if ($o->{lang} =~ /^(zh_TW|th|vi|be|bg)/) {
#- skip since we don't have the right font (it badly fails at least for zh_TW)
} elsif (my $LANG = lang::lang2LANG($o->{lang})) {
- my $kdmrc = "$o->{prefix}/usr/share/config/kdm/kdmrc";
-
my $kde_charset = lang::charset2kde_charset(lang::lang2charset($o->{lang}));
my $welcome = c::to_utf8(N("Welcome to %s", '%n'));
substInFile {
@@ -618,7 +616,7 @@ sub updateModulesFromFloppy {
#------------------------------------------------------------------------------
sub selectMouse($) {
- my ($o) = @_;
+ my ($_o) = @_;
}
#------------------------------------------------------------------------------
@@ -643,7 +641,7 @@ sub installCrypto {
upNetwork($o);
require crypto;
- my @crypto_packages = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
+ my @_crypto_packages = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
$o->pkg_install(@{$u->{packages}});
}
@@ -713,8 +711,7 @@ sub configurePrinter {
#------------------------------------------------------------------------------
sub setRootPassword {
my ($o) = @_;
- my $p = $o->{prefix};
- my $u = $o->{superuser} ||= {};
+ $o->{superuser} ||= {};
$o->{superuser}{name} = 'root';
any::write_passwd_user($o->{prefix}, $o->{superuser}, $o->{authentication}{md5});
delete $o->{superuser}{name};
@@ -792,7 +789,6 @@ sub createBootdisk($) {
#------------------------------------------------------------------------------
sub readBootloaderConfigBeforeInstall {
my ($o) = @_;
- my ($image, $v);
require bootloader;
add2hash($o->{bootloader} ||= {}, bootloader::read());
@@ -955,7 +951,7 @@ sub miscellaneousBefore {
add2hash_($o->{miscellaneous} ||= {}, { numlock => !detect_devices::isLaptop() });
}
sub miscellaneous {
- my ($o) = @_;
+ my ($_o) = @_;
#- keep some given parameters
#-TODO
}
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index b0acf407c..bf44f8c06 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -66,7 +66,7 @@ use common;
use log;
sub configureNetwork {
- my ($o) = @_;
+ my ($_o) = @_;
modules::load_category('network/main|usb');
goto &install_steps::configureNetwork;
}
@@ -80,7 +80,7 @@ sub enteringStep {
}
sub rebootNeeded {
- my ($o) = @_;
+ my ($_o) = @_;
print "\nWhile partitioning, the partition table re-read failed, needing a reboot\n";
print "This is plain wrong for an auto_install\n";
errorInStep();
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 3709c4582..648548626 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -439,7 +439,7 @@ sub beforeInstallPackages {
sub installPackages {
my ($o, $packages) = @_;
- my ($current_total_size, $last_size, $nb, $total_size, $start_time, $last_dtime, $trans_progress_total);
+ my ($current_total_size, $last_size, $nb, $total_size, $start_time, $last_dtime, $_trans_progress_total);
my $w = ugtk2->new(N("Installing"));
$w->sync;
@@ -498,8 +498,8 @@ sub installPackages {
my $decy = 0;
my $first = 1;
foreach (@data) {
- my ($text, $x, $y, $area_width, $area_height, $bold) = @$_;
- my ($width, $height, $lines, $widths, $heights, $ascents, $descents) =
+ my ($text, $x, $y, $area_width, $area_height, $_bold) = @$_;
+ my ($width, $_height, $lines, $widths, $heights, $_ascents, $_descents) =
get_text_coord($text, $darea, $area_width, $area_height, 1, 0, 1, 1);
if ($first && $icon) {
my $iconx = ($dx-$width)/2 + $x + ${$widths}[0] - $icon_dx;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 7046e0d28..21d097ae0 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -325,7 +325,7 @@ sub setupSCSI {
}
}
{
- my $w = $o->wait_message(N("IDE"), N("Configuring IDE"));
+ my $_w = $o->wait_message(N("IDE"), N("Configuring IDE"));
modules::load(modules::category2modules('disk/cdrom'));
}
any::load_category($o, 'bus/firewire', 1);
@@ -345,7 +345,7 @@ sub ask_mntpoint_s {
die N("No partition available") if @fstab == 0;
{
- my $w = $o->wait_message('', N("Scanning partitions to find mount points"));
+ my $_w = $o->wait_message('', N("Scanning partitions to find mount points"));
install_any::suggest_mount_points($fstab, $o->{prefix}, 'uniq');
log::l("default mntpoint $_->{mntpoint} $_->{device}") foreach @fstab;
}
@@ -455,7 +455,7 @@ sub choosePartitionsToFormat {
sub formatMountPartitions {
- my ($o, $fstab) = @_;
+ my ($o, $_fstab) = @_;
my $w;
catch_cdie {
fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}, sub {
@@ -490,7 +490,7 @@ sub setPackages {
}
#------------------------------------------------------------------------------
sub choosePackages {
- my ($o, $packages, $compssUsers, $first_time) = @_;
+ my ($o, $packages, $compssUsers, $_first_time) = @_;
#- this is done at the very beginning to take into account
#- selection of CD by user if using a cdrom.
@@ -507,7 +507,7 @@ sub choosePackages {
my $min_mark = $::expert ? 3 : 4;
my $b = pkgs::saveSelected($packages);
- my $level = pkgs::setSelectedFromCompssList($packages, { map { $_ => 1 } map { @{$compssUsers->{$_}{flags}} } @{$o->{compssUsersSorted}} }, $min_mark, 0);
+ my $_level = pkgs::setSelectedFromCompssList($packages, { map { $_ => 1 } map { @{$compssUsers->{$_}{flags}} } @{$o->{compssUsersSorted}} }, $min_mark, 0);
my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero.
log::l("max size (level $min_mark) is : " . formatXiB($max_size));
pkgs::restoreSelected($b);
@@ -610,7 +610,7 @@ sub chooseGroups {
} @groups;
# @groups = grep { $size{$_} = round_down($size{$_} / sqr(1024), 10) } @groups; #- don't display the empty or small one (eg: because all packages are below $min_level)
- my ($all, $size, $unselect_all);
+ my ($size, $unselect_all);
my $available_size = install_any::getAvailableSpace($o) / sqr(1024);
my $size_to_display = sub {
my $lsize = $system_size + $compute_size->(map { @{$compssUsers->{$_}{flags}} } grep { $val{$_} } @groups);
@@ -819,7 +819,7 @@ N("There was an error installing packages:"), $1, N("Go on anyway?") ], 1) and r
sub afterInstallPackages($) {
my ($o) = @_;
- my $w = $o->wait_message('', N("Post-install configuration"));
+ my $_w = $o->wait_message('', N("Post-install configuration"));
$o->SUPER::afterInstallPackages($o);
}
@@ -904,7 +904,7 @@ Do you want to install the updates ?"))) || return;
require crypto;
eval {
- my @mirrors = do { my $w = $o->wait_message('',
+ my @mirrors = do { my $_w = $o->wait_message('',
N("Contacting Mandrake Linux web site to get the list of available mirrors..."));
crypto::mirrors() };
#- if no mirror have been found, use current time zone and propose among available.
@@ -919,7 +919,7 @@ Do you want to install the updates ?"))) || return;
return if $@ || !$u->{mirror};
my $update_medium = do {
- my $w = $o->wait_message('', N("Contacting the mirror to get the list of available packages..."));
+ my $_w = $o->wait_message('', N("Contacting the mirror to get the list of available packages..."));
crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
};
@@ -997,7 +997,6 @@ sub summary {
pkgs::packageByName($o->{packages}, 'cups')->flag_installed and return N("Remote CUPS server");
return N("No printer");
}
- my $entry;
foreach ($printer->{currentqueue},
map { $_->{queuedata} } ($printer->{configured}{$printer->{DEFAULT}}, values %{$printer->{configured}})) {
$_ && ($_->{make} || $_->{model}) and return "$_->{make} $_->{model}";
@@ -1222,14 +1221,14 @@ because XFS needs a very large driver).") : '')),
$o->ask_warn('', N("Insert a floppy in %s", $l{$o->{mkbootdisk}} || $o->{mkbootdisk}));
}
- my $w = $o->wait_message('', N("Creating bootdisk..."));
+ my $_w = $o->wait_message('', N("Creating bootdisk..."));
install_steps::createBootdisk($o);
}
#------------------------------------------------------------------------------
sub setupBootloaderBefore {
my ($o) = @_;
- my $w = $o->wait_message('', N("Preparing bootloader..."));
+ my $_w = $o->wait_message('', N("Preparing bootloader..."));
$o->set_help('empty');
$o->SUPER::setupBootloaderBefore($o);
}
@@ -1256,7 +1255,7 @@ try to force installation even if that destroys the first partition?"));
any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}, $o->{prefix}, $more) or return;
{
- my $w = $o->wait_message('', N("Installing bootloader"));
+ my $_w = $o->wait_message('', N("Installing bootloader"));
eval { $o->SUPER::setupBootloader };
}
if (my $err = $@) {
@@ -1276,7 +1275,7 @@ try to force installation even if that destroys the first partition?"));
}
sub miscellaneous {
- my ($o, $clicked) = @_;
+ my ($o, $_clicked) = @_;
if ($::expert) {
any::choose_security_level($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user}) or return;
@@ -1308,7 +1307,7 @@ sub generateAutoInstFloppy {
my $dev = devices::make($floppy);
{
- my $w = $o->wait_message('', N("Creating auto install floppy..."));
+ my $_w = $o->wait_message('', N("Creating auto install floppy..."));
install_any::getAndSaveAutoInstallFloppy($o, $replay, $dev) or return;
}
common::sync(); #- if you shall remove the floppy right after the LED switches off
@@ -1348,7 +1347,7 @@ N("http://www.mandrakelinux.com/en/90errata.php3"))),
},
[
if_($::expert,
- { val => \ (my $t1 = N("Generate auto install floppy")), clicked => sub {
+ { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub {
my $t = $o->ask_from_list_('',
N("The auto install can be fully automated if wanted,
in that case it will take over the hard drive!!
@@ -1358,7 +1357,7 @@ You may prefer to replay the installation.
"), [ N_("Replay"), N_("Automated") ]);
$t and $o->generateAutoInstFloppy($t eq 'Replay');
}, advanced => 1 },
- { val => \ (my $t2 = N("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 },
+ { val => \ (my $_t2 = N("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 },
),
]
) if $alldone && !$::g_auto_install;
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 457abca2a..223b9800c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -70,7 +70,7 @@ sub new($) {
}
sub vnew {
- my ($type, $su, $icon) = @_;
+ my ($_type, $su, $icon) = @_;
$su = $su eq "su";
if ($ENV{INTERACTIVE_HTTP}) {
require interactive::http;
@@ -148,7 +148,7 @@ sub ask_file {
$o->ask_fileW($title, $dir);
}
sub ask_fileW {
- my ($o, $title, $dir) = @_;
+ my ($o, $title, $_dir) = @_;
$o->ask_from_entry($title, N("Choose a file"));
}
@@ -167,7 +167,7 @@ sub ask_from_listf_ {
ask_from_listf($o, $title, $message, sub { translate($f->(@_)) }, $l, $def, $help);
}
sub ask_from_listf {
- my ($o, $title, $message, $f, $l, $def, $help) = @_;
+ my ($_o, $_title, $_message, $_f, $l, $_def, $_help) = @_;
@$l == 0 and die "ask_from_list: empty list\n" . backtrace();
@$l == 1 and return $l->[0];
goto &ask_from_listf_no_check;
@@ -260,7 +260,7 @@ sub ask_from {
sub ask_from_normalize {
- my ($o, $common, $l) = @_;
+ my ($_o, $common, $l) = @_;
foreach my $e (@$l) {
if (my $li = $e->{list}) {
@@ -287,10 +287,10 @@ sub ask_from_normalize {
} elsif ($e->{type} eq 'button' || $e->{clicked} || $e->{clicked_may_quit}) {
$e->{type} = 'button';
$e->{clicked_may_quit} ||= $e->{clicked} ? sub { $e->{clicked}(); 0 } : sub {};
- $e->{val} = \ (my $v = $e->{val}) if !ref($e->{val});
+ $e->{val} = \ (my $_v = $e->{val}) if !ref($e->{val});
} elsif ($e->{type} eq 'label' || !ref($e->{val})) {
$e->{type} = 'label';
- $e->{val} = \ (my $v = $e->{val}) if !ref($e->{val});
+ $e->{val} = \ (my $_v = $e->{val}) if !ref($e->{val});
} else {
$e->{type} ||= 'entry';
}
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 3d392fa3e..693a332a0 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -27,7 +27,7 @@ sub ask_warn {
}
sub ask_fileW {
- my ($o, $title, $dir) = @_;
+ my ($_o, $title, $dir) = @_;
my $w = ugtk2->new($title);
$dir .= '/' if $dir !~ m|/$|;
ugtk2::_ask_file($w, $title, $dir);
@@ -82,10 +82,10 @@ sub create_treeview_list {
my $select = sub { $list_tv->set_cursor($_[0], $textcolumn, 0) };
- my ($first_time, $starting_word, $start_reg) = (1, '', '^');
+ my ($starting_word, $start_reg) = ('', '^');
my $timeout;
$list_tv->signal_connect(key_press_event => sub {
- my ($w, $event) = @_;
+ my ($_w, $event) = @_;
my $c = chr($event->keyval & 0xff);
Gtk2->timeout_remove($timeout) if $timeout; $timeout = '';
@@ -226,7 +226,7 @@ sub create_treeview_tree {
}
$path->free;
});
- my ($first_time, $starting_word, $start_reg) = (1, '', "^");
+ my ($starting_word, $start_reg) = ('', "^");
my $timeout;
my $toggle = sub {
@@ -240,7 +240,7 @@ sub create_treeview_tree {
};
$tree->signal_connect(key_press_event => sub {
- my ($w, $event) = @_;
+ my ($_w, $event) = @_;
$selected_via_click = 0;
my $c = chr($event->keyval & 0xff);
$curr or return;
@@ -310,11 +310,10 @@ sub create_list {
};
my $tips = Gtk2::Tooltips->new;
- my $toselect;
each_index {
my $item = Gtk2::ListItem->new(may_apply($e->{format}, $_));
$item->signal_connect(key_press_event => sub {
- my ($w, $event) = @_;
+ my ($_w, $event) = @_;
my $c = chr($event->keyval & 0xff);
$may_go_to_next->($event) if $event->keyval < 0x100 ? $c eq ' ' : $c eq "\r" || $c eq "\x8d";
1;
@@ -331,7 +330,7 @@ sub create_list {
#- signal_connect'ed after append_items otherwise it is called and destroys the default value
$list->signal_connect(select_child => sub {
- my ($w, $row) = @_;
+ my ($_w, $row) = @_;
${$e->{val}} = $l->[$list->child_position($row)];
&$changed;
});
@@ -646,7 +645,7 @@ sub wait_messageW($$$) {
$w;
}
sub wait_message_nextW {
- my ($o, $messages, $w) = @_;
+ my ($_o, $messages, $w) = @_;
my $msg = warp_text(join "\n", @$messages);
return if $msg eq $w->{wait_messageW}->get; #- needed otherwise no expose_event :(
$w->{displayed} = 0;
@@ -654,7 +653,7 @@ sub wait_message_nextW {
$w->flush until $w->{displayed};
}
sub wait_message_endW {
- my ($o, $w) = @_;
+ my ($_o, $w) = @_;
$w->destroy;
}
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 359e61401..a4f9e3bfd 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -53,7 +53,7 @@ sub exit() { end(); exit($_[1]) }
END { end() }
sub ask_fromW {
- my ($o, $common, $l, $l2) = @_;
+ my ($o, $common, $l, $_l2) = @_;
redisplay:
my $uid = new_uid();
@@ -138,18 +138,18 @@ sub p {
}
sub wait_messageW {
- my ($o, $title, $messages) = @_;
+ my ($_o, $_title, $messages) = @_;
cont_stdout();
print "\n" . CGI::p();
p(@$messages);
}
sub wait_message_nextW {
- my ($o, $messages, $w) = @_;
+ my ($_o, $messages, $_w) = @_;
p(@$messages);
}
sub wait_message_endW {
- my ($o, $w) = @_;
+ my ($_o, $_w) = @_;
p(N("Done"));
print "\n" . CGI::p();
}
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 46f9797e5..1214de57b 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -81,7 +81,7 @@ sub ask_fromW {
}
sub ask_fromW_real {
- my ($o, $common, $l, $l2) = @_;
+ my ($_o, $common, $l, $_l2) = @_;
my $ignore; #-to handle recursivity
my $old_focus = -2;
@@ -207,7 +207,7 @@ sub ask_fromW_real {
my ($f) = @_;
$get_all->();
- my ($error, $focus) = $f->();
+ my ($error, $_focus) = $f->();
if ($error) {
$set_all->();
@@ -215,7 +215,7 @@ sub ask_fromW_real {
!$error;
};
- my ($destroyed, $canceled);
+ my ($canceled);
do {
my $r = do {
local $::setstep = 1;
@@ -256,7 +256,7 @@ sub waitbox {
sub wait_messageW {
- my ($o, $title, $messages) = @_;
+ my ($_o, $title, $messages) = @_;
{ form => waitbox($title, $messages), title => $title };
}
@@ -266,8 +266,8 @@ sub wait_message_nextW {
$o->wait_messageW($w->{title}, $messages);
}
sub wait_message_endW {
- my ($o, $w) = @_;
- my $wait = pop @wait_messages;
+ my ($_o, $_w) = @_;
+ my $_wait = pop @wait_messages;
# log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != $wait;
Newt::PopWindow();
}
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 22a8e238e..a37b08c8e 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -34,7 +34,7 @@ sub good_choice {
}
sub ask_fromW {
- my ($o, $common, $l, $l2) = @_;
+ my ($_o, $common, $l, $_l2) = @_;
add2hash_($common, { ok => N("Ok"), cancel => N("Cancel") }) if !exists $common->{ok};
@@ -160,7 +160,7 @@ Your choice? ");
}
sub wait_messageW {
- my ($o, $title, $message) = @_;
+ my ($_o, $_title, $message) = @_;
print join "\n", @$message;
}
sub wait_message_nextW {
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 90097e3eb..be432c3a6 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -21,7 +21,7 @@ sub carryRootLoopback {
}
sub check_circular_mounts {
- my ($hd, $part, $all_hds) = @_;
+ my ($_hd, $part, $all_hds) = @_;
my $fstab = [ fsedit::get_all_fstab($all_hds), $part ]; # no pb if $part is already in $all_hds
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 96bae97ac..f90d6c895 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -193,7 +193,7 @@ sub read_conf {
$c{$alias}{$type} = $val;
}
#- cheating here: not handling aliases of aliases
- while (my ($k, $v) = each %c) {
+ while (my ($_k, $v) = each %c) {
if (my $a = $v->{alias}) {
local $c{$a}{alias};
delete $v->{probeall};
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index f3073fd3a..d81eafe3a 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -425,13 +425,13 @@ sub test_mouse_install {
require ugtk2;
ugtk2->import(qw(:wrappers :create));
my $w = ugtk2->new('', disallow_big_help => 1);
- my ($width, $height, $offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
+ my ($width, $height, $_offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
my $darea = Gtk2::DrawingArea->new;
$darea->set_events([ 'button_press_mask', 'button_release_mask' ]); #$darea must be unrealized.
gtkadd($w->{window},
gtkpack(my $vbox_grab = Gtk2::VBox->new(0, 0),
gtkset_size_request($darea, $width+1, $height+1),
- my $okcancel = gtkset_sensitive(create_okcancel($w, undef, undef, 'edge'), 1)
+ gtkset_sensitive(create_okcancel($w, undef, undef, 'edge'), 1)
),
);
test_mouse($mouse, $w, $darea, $width, $height);
@@ -444,7 +444,7 @@ sub test_mouse_standalone {
my ($mouse, $hbox) = @_;
require ugtk2;
ugtk2->import(qw(:wrappers));
- my ($width, $height, $offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
+ my ($width, $height, $_offset) = (210, round_up(min(350, $::windowheight - 150), 6), 25);
my $darea = Gtk2::DrawingArea->new;
$darea->set_events([ 'button_press_mask', 'button_release_mask' ]); #$darea must be unrealized.
gtkpack($hbox,
@@ -454,7 +454,7 @@ sub test_mouse_standalone {
}
sub test_mouse {
- my ($mouse, $w, $darea, $width, $height) = @_;
+ my ($mouse, $_w, $darea, $width, $height) = @_;
# $darea->realize; IS IT REALLY NEEDED? generates a Gtk-CRITICAL when run..
require ugtk2;
@@ -494,7 +494,7 @@ sub test_mouse {
};
my $paintButton = sub {
- my ($nb, $pressed) = @_;
+ my ($nb, $_pressed) = @_;
my $x = 60 + $nb*33;
$drawarea->();
if ($nb == 0) {
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 12fba09be..6ac803a74 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -57,13 +57,12 @@ sub new {
$draw1->set_usize(540,100);
my $draw2 = new Gtk::DrawingArea;
$draw2->set_usize(100,300);
- my ($im_up, $mask_up) = gtkcreate_png($::Wizard_pix_up || "wiz_default_up.png");
+ my ($im_up, $_mask_up) = gtkcreate_png($::Wizard_pix_up || "wiz_default_up.png");
my ($y1, $x1) = $im_up->get_size;
- my ($im_left, $mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
+ my ($im_left, $_mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
my ($y2, $x2) = $im_left->get_size;
my $style = $draw1->style->copy();
$style->font(Gtk::Gdk::Font->fontset_load(N("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*,*-r-*")));
- my $w = $style->font->string_width($::Wizard_title);
$draw1->signal_connect(expose_event => sub {
for (my $i = 0; $i < 540/$y1; $i++) {
$draw1->window->draw_pixmap($draw1->style->bg_gc('normal'),
@@ -108,7 +107,7 @@ sub main {
gtkset_mousecursor_normal();
$::CCPID and kill 'USR2', $::CCPID;
my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
- my $b = MDK::Common::Func::before_leaving { Gtk->timeout_remove($timeout) };
+ my $_b = MDK::Common::Func::before_leaving { Gtk->timeout_remove($timeout) };
$o->show;
do {
@@ -177,7 +176,7 @@ sub _create_window($$) {
#- $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
$gc->set_foreground(gtkcolor(5120, 10752, 22784)); #- in hex : 20, 42, 89
#- $gc->set_foreground(gtkcolor(16896, 16896, 16896)); #- in hex : 66, 66, 66
- my $inner = gtkadd(my $f_ = gtkset_shadow_type(new Gtk::Frame(undef), 'out'),
+ my $inner = gtkadd(gtkset_shadow_type(new Gtk::Frame(undef), 'out'),
my $f = gtkset_border_width(gtkset_shadow_type(new Gtk::Frame(undef), 'none'), 3)
);
my $table;
@@ -384,7 +383,7 @@ sub ask_browse_tree_info {
foreach my $ic (@{$common->{icons} || []}) {
push @toolbar, ($ic->{icon} => [ $ic->{help}, sub {
if ($ic->{code}) {
- my $w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message});
+ my $_w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message});
$ic->{code}();
$common->{rebuild_tree}->();
}
@@ -547,7 +546,7 @@ sub ask_browse_tree_info_given_widgets {
};
$w->{tree}->signal_connect(key_press_event => sub {
- my ($w, $e) = @_;
+ my ($_w, $e) = @_;
my $c = chr($e->{keyval} & 0xff);
$toggle->(0) if $e->{keyval} >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ';
1;
@@ -566,7 +565,7 @@ sub ask_browse_tree_info_given_widgets {
});
$common->{rebuild_tree}->();
&$update_size;
- my $b = before_leaving { #- ensure cleaning here.
+ my $_b = before_leaving { #- ensure cleaning here.
foreach (values %ptree) {
delete $_->{state} foreach @$_;
}
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 2d3a6bee2..b895f90fd 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -83,7 +83,7 @@ If you don't know, choose 'use pppoe'"), $l) or return;
}
sub adsl_ask_info {
- my ($adsl, $netc, $intf, $adsl_type) = @_;
+ my ($adsl, $netc, $_intf, $adsl_type) = @_;
my $pppoe_file = "/etc/ppp/pppoe.conf";
my $pppoe_conf = { getVarsFromSh($pppoe_file) } if $adsl_type =~ /pppoe/ && -f $pppoe_file;
add2hash($netc, { dnsServer2 => '', dnsServer3 => '', DOMAINNAME2 => '' });
diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index 1611626e5..8951ecd44 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -100,7 +100,7 @@ sub default_from_pkgs {
}
sub get_ports {
- my ($ports) = @_;
+ my ($_ports) = @_;
my $shorewall = network::shorewall::read() or return;
\$shorewall->{ports};
}
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index bee1c283a..410b81e13 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -96,7 +96,7 @@ I cannot set up this connection type.")) and return;
}
$::isStandalone and modules::write_conf($prefix);
- my $device = conf_network_card_backend($netc, $intf, $type, $interface, $ipadr, $netadr, $interface);
+ my $_device = conf_network_card_backend($netc, $intf, $type, $interface, $ipadr, $netadr, $interface);
# if ( $::isStandalone and !($type eq "dhcp")) {
# $in->ask_yesorno(N("Network interface"),
# N("I'm about to restart the network device:\n") . $device . N("\nDo you agree?"), 1) and configureNetwork2($in, $prefix, $netc, $intf) and system("$prefix/sbin/ifdown $device;$prefix/sbin/ifup $device");
@@ -170,7 +170,7 @@ sub go_ethernet {
}
sub configureNetwork {
- my ($netc, $intf, $first_time) = @_;
+ my ($netc, $intf, $_first_time) = @_;
local $_;
any::load_category($in, 'network/main|usb|pcmcia', !$::expert, 1) or return;
my @l = detect_devices::getNet() or die N("no network card found");
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index be13b4021..a5c45d7cf 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -86,7 +86,6 @@ sub isdn_write_config_backend {
chmod 0600, $f;
}
foreach my $f ('isdn1B.conf', 'isdn2B.conf') {
- my $a = 1;
substInFile {
s/EAZ =.*/EAZ = $isdn->{phone_in}/;
s/PHONE_OUT =.*/PHONE_OUT = $isdn->{phone_out}/;
@@ -148,7 +147,7 @@ defaultroute
}
sub get_info_providers_backend {
- my ($isdn, $netc, $name, $file) = @_;
+ my ($isdn, $_netc, $name, $file) = @_;
$name eq 'Unlisted - edit manually' and return;
foreach (catMaybeCompressed($file)) {
chop;
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 08fafc265..87f042208 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -49,7 +49,7 @@ killall pppd
}
sub pppConfig {
- my ($modem, $mouse, $netc, $intf) = @_;
+ my ($modem, $mouse, $netc, $_intf) = @_;
$mouse ||= {};
$mouse->{device} ||= readlink "$prefix/dev/mouse";
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8abb0085e..585b3a075 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -116,7 +116,7 @@ sub init_globals {
}
sub main {
- my ($prefix, $netcnx, $netc, $mouse, $in, $intf, $first_time, $direct_fr, $noauto) = @_;
+ my ($prefix, $netcnx, $netc, $mouse, $in, $intf, $first_time, $_direct_fr, $noauto) = @_;
init_globals($in, $prefix);
$netc->{minus_one} = 0; #When one configure an eth in dhcp without gateway
$::isInstall and $in->set_help('configureNetwork');
@@ -168,17 +168,17 @@ If you don't want to use the auto detection, deselect the checkbox.
undef $::Wizard_no_previous;
set_profile($netcnx);
if ($netc->{autodetection}) {
- my $w = $in->wait_message(N("Network Configuration Wizard"), N("Detecting devices..."));
+ my $_w = $in->wait_message(N("Network Configuration Wizard"), N("Detecting devices..."));
detect($netc->{autodetect}, $::isInstall && ($in->{method} eq "ftp" || $in->{method} eq "http" || $in->{method} eq "nfs"));
}
step_2:
- my $set_default;
+# my $set_default;
my %conf;
$conf{$_} = $netc->{autodetect}{$_} ? 1 : 0 foreach 'modem', 'winmodem', 'adsl', 'cable', 'lan';
$conf{isdn} = $netc->{autodetect}{isdn}{description} ? 1 : 0;
- my %l;
+# my %l;
# my @l = (
# [N("Normal modem connection"), $netc->{autodetect}{modem}, N_("detected on port %s"), \$conf{modem}],
# [N("ISDN connection"), $netc->{autodetect}{isdn}{description}, N_("detected %s"), \$conf{isdn}],
@@ -186,7 +186,7 @@ If you don't want to use the auto detection, deselect the checkbox.
# [N("Cable connection"), $netc->{autodetect}{cable}, N_("cable connection detected"), \$conf{cable}],
# [N("LAN connection"), $netc->{autodetect}{lan}, N_("ethernet card(s) detected"), \$conf{lan}]
# );
- my $i = 0;
+# my $i = 0;
# map { defined $set_default or do { $_->[1] and $set_default = $i }; $i++ } @l;
# my %l = (
# 1 => [N("Normal modem connection") . if_($netc->{autodetect}{modem}, " - " . N("detected on port %s", $netc->{autodetect}{modem})), "modem"],
@@ -198,7 +198,6 @@ If you don't want to use the auto detection, deselect the checkbox.
# );
$::isInstall and $in->set_help('configureNetwork');
- my $tata;
# my $e = $in->ask_from(N("Network Configuration Wizard"), N("Choose the connection you want to configure"),
# [{ val => \$cnx_type, list => [sort keys %l], format => sub { $l{$_}[0] },
# changed => sub {
@@ -220,7 +219,7 @@ If you don't want to use the auto detection, deselect the checkbox.
[N("LAN connection") . if_($netc->{autodetect}{lan}, " - " . N("ethernet card(s) detected")), \$conf{lan}]
);
$::isInstall and $in->set_help('configureNetwork');
- my $e = $in->ask_from(N("Network Configuration Wizard"), N("Choose the connection you want to configure"),
+ $in->ask_from(N("Network Configuration Wizard"), N("Choose the connection you want to configure"),
[ map { { label => $_->[0], val => $_->[1], type => 'bool' } } @l ],
changed => sub {
return if !$netc->{autodetection};
@@ -363,7 +362,7 @@ sub save_conf {
modules::load_category('network/main|usb');
require network::ethernet;
network::ethernet->import;
- my @all_cards = conf_network_card_backend($netc, $intf, undef, undef, undef, undef);
+ my @_all_cards = conf_network_card_backend($netc, $intf, undef, undef, undef, undef);
$intf = { %$intf };
output_with_perm("$prefix/etc/sysconfig/network-scripts/drakconnect_conf", 0600,
@@ -488,7 +487,7 @@ sub set_profile {
}
sub del_profile {
- my ($netcnx, $profile) = @_;
+ my ($_netcnx, $profile) = @_;
$profile or return;
$profile eq "default" and return;
rm_rf("$prefix/etc/sysconfig/network-scripts/drakconnect_conf." . $profile);
@@ -516,8 +515,6 @@ sub load_conf {
my $modem = {};
my $isdn_external = {};
my $isdn = {};
- my $system_name;
- my $domain_name;
if (-e "$prefix/etc/sysconfig/network-scripts/drakconnect_conf") {
foreach (cat_("$prefix/etc/sysconfig/network-scripts/drakconnect_conf")) {
@@ -607,7 +604,7 @@ sub get_net_device {
}
sub read_net_conf {
- my ($prefix, $netcnx, $netc) = @_;
+ my ($_prefix, $netcnx, $netc) = @_;
add2hash($netcnx, { read_raw_net_conf('_conf') });
$netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE';
$netcnx->{$netcnx->{type}} ||= {};
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 4278136fb..84cffef27 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -236,7 +236,6 @@ sub masked_ip {
sub dns {
my ($ip) = @_;
- my $mask = masked_ip($ip);
my @masked = masked_ip($ip) =~ $ip_regexp;
$masked[3] = 2;
join(".", @masked);
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index ab8bcfcd7..87f336e36 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -15,20 +15,20 @@ sub to_fstab_entry {
$class->to_fstab_entry_raw($e, 'nfs');
}
sub comment_to_string {
- my ($class, $comment) = @_;
+ my ($_class, $comment) = @_;
member($comment, qw(* 0.0.0.0/0.0.0.0 (everyone))) ? '' : $comment;
}
sub from_dev {
- my ($class, $dev) = @_;
+ my ($_class, $dev) = @_;
$dev =~ m|(.*?):(.*)|;
}
sub to_dev_raw {
- my ($class, $server, $name) = @_;
+ my ($_class, $server, $name) = @_;
$server . ':' . $name;
}
sub check {
- my ($class, $in) = @_;
+ my ($_class, $in) = @_;
$in->do_pkgs->ensure_is_installed('nfs-utils-clients', '/usr/sbin/showmount');
}
@@ -51,7 +51,7 @@ sub find_servers {
}
sub find_exports {
- my ($class, $server) = @_;
+ my ($_class, $server) = @_;
my @l;
run_program::raw({ timeout => 1 }, "showmount", '>', \@l, "-e", $server->{ip} || $server->{name});
diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index e3dfc9ce6..7adf01a3a 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -22,16 +22,16 @@ sub to_fstab_entry {
$part;
}
sub from_dev {
- my ($class, $dev) = @_;
+ my ($_class, $dev) = @_;
$dev =~ m|//(.*?)/(.*)|;
}
sub to_dev_raw {
- my ($class, $server, $name) = @_;
+ my ($_class, $server, $name) = @_;
'//' . $server . '/' . $name;
}
sub check {
- my ($class, $in) = @_;
+ my ($_class, $in) = @_;
$in->do_pkgs->ensure_is_installed('samba-client', '/usr/bin/nmblookup');
}
@@ -84,7 +84,7 @@ sub find_servers {
}
sub find_exports {
- my ($class, $server) = @_;
+ my ($_class, $server) = @_;
my @l;
foreach (smbclient($server)) {
diff --git a/perl-install/network/smbnfs.pm b/perl-install/network/smbnfs.pm
index 8bd29ea92..528a87be2 100644
--- a/perl-install/network/smbnfs.pm
+++ b/perl-install/network/smbnfs.pm
@@ -12,11 +12,11 @@ sub new {
}
sub server_to_string {
- my ($class, $server) = @_;
+ my ($_class, $server) = @_;
$server->{name} || $server->{ip};
}
sub comment_to_string {
- my ($class, $comment) = @_;
+ my ($_class, $comment) = @_;
$comment;
}
sub to_dev {
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 8eff41c9b..c86f9de4c 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -58,14 +58,13 @@ sub ask_connect_now {
N("Do you want to try to connect to the Internet now?")
)) {
{
- my $w = $in->wait_message('', N("Testing your connection..."), 1);
+ my $_w = $in->wait_message('', N("Testing your connection..."), 1);
connect_backend();
my $s = 30;
$type =~ /modem/ and $s = 50;
$type =~ /adsl/ and $s = 35;
$type =~ /isdn/ and $s = 20;
sleep $s;
- my $netc = {};
$up = connected();
}
my $m = $up ? N("The system is now connected to Internet.") .
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index ffdaf9c74..e28bdeefd 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -723,7 +723,6 @@ sub add {
$part->{start} ||= 1 if arch() !~ /^sparc/; #- starting at sector 0 is not allowed
adjustStartAndEnd($hd, $part) unless $forceNoAdjust;
- my $e = $hd->{primary}{extended};
my $nb_primaries = $hd->{device} =~ /^rd/ ? 3 : 1;
if (arch() =~ /^sparc|ppc/ ||
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 7faad2be4..4b78f193c 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -139,7 +139,6 @@ sub read_partitionEntries {
sub read {
my ($hd, $sector) = @_;
- my $tmp;
my $l = partition_table::dos::read($hd, $sector);
my @l = grep { $_->{size} && $_->{type} && !partition_table::isExtended($_) } @$l;
@@ -210,7 +209,7 @@ sub write {
}
sub raw_removed {
- my ($hd, $raw) = @_;
+ my ($_hd, $raw) = @_;
@$raw = grep { $_->{size} && $_->{type} } @$raw;
}
sub can_raw_add {
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 4ba83faf2..942136bf1 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -93,7 +93,7 @@ sub adjustStart($$) {
}
sub adjustEnd($$) {
- my ($hd, $part) = @_;
+ my ($_hd, $_part) = @_;
}
sub read($$) {
@@ -106,7 +106,7 @@ sub read($$) {
sysread $F, $tmp, psizeof($bz_format) or die "error while reading bz \(Block Zero\) in sector $sector";
my %info; @info{@$bz_fields} = unpack $bz_format, $tmp;
- foreach my $i (0 .. $info{bzDrvrCnt}-1) {
+ foreach (1 .. $info{bzDrvrCnt}) {
sysread $F, $tmp, psizeof($dd_format) or die "error while reading driver data in sector $sector";
my %dd; @dd{@$dd_fields} = unpack $dd_format, $tmp;
push @{$info{ddMap}}, \%dd;
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index a10d6d568..ac0c79aac 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -125,7 +125,7 @@ sub kernel_read($) {
}
sub raw_removed {
- my ($hd, $raw) = @_;
+ my ($_hd, $_raw) = @_;
}
sub can_raw_add {
my ($hd) = @_;
@@ -133,7 +133,7 @@ sub can_raw_add {
0;
}
sub raw_add {
- my ($hd, $raw, $part) = @_;
+ my ($_hd, $raw, $part) = @_;
foreach (@$raw) {
$_->{size} || $_->{type} and next;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 96d7eec74..5b8e012fc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -220,7 +220,7 @@ sub packageRequest {
}
sub packageCallbackChoices {
- my ($urpm, $db, $state, $choices) = @_;
+ my ($urpm, $_db, $_state, $choices) = @_;
my $prefer;
foreach my $pkg (@$choices) {
#- examine first an explicitely prefered package.
@@ -318,7 +318,7 @@ sub unselectAllPackages($) {
}
sub psUpdateHdlistsDeps {
- my ($prefix, $method, $packages) = @_;
+ my ($prefix, $_method, $packages) = @_;
my $need_copy = 0;
#- check if current configuration is still up-to-date and do not need to be updated.
@@ -375,7 +375,6 @@ sub psUsingHdlists {
sub psUsingHdlist {
my ($prefix, $method, $packages, $hdlist, $medium, $rpmsdir, $descr, $selected, $fhdlist) = @_;
my $fakemedium = "$descr ($method$medium)";
- my ($relocated, $ignored) = (0, 0);
log::l("trying to read $hdlist for medium $medium");
#- if the medium already exist, use it.
@@ -783,14 +782,14 @@ sub cleanOldRpmDb {
}
sub selectPackagesAlreadyInstalled {
- my ($packages, $prefix) = @_;
+ my ($packages, $_prefix) = @_;
log::l("computing installed flags and size of installed packages");
$packages->{sizes} = $packages->compute_installed_flags($packages->{rpmdb});
}
sub selectPackagesToUpgrade {
- my ($packages, $prefix, $medium) = @_;
+ my ($packages, $_prefix, $medium) = @_;
#- check before that if medium is given, it should be valid.
$medium && (! defined $medium->{start} || ! defined $medium->{end}) and return;
@@ -973,7 +972,6 @@ sub install($$$;$$) {
#- child process will run each transaction.
$SIG{SEGV} = sub { log::l("segmentation fault on transactions"); c::_exit(0) };
my @prev_pids = grep { /^\d+$/ } all("/proc");
- my $db;
close INPUT;
select((select(OUTPUT), $| = 1)[0]);
if ($::testing) {
@@ -1002,7 +1000,7 @@ sub install($$$;$$) {
log::l("rpm transactions start");
my $fd; #- since we return the "fileno", perl doesn't know we're still using it, and so closes it, and :-(
my @probs = $trans->run($packages, force => 1, nosize => 1, callback_open => sub {
- my ($data, $type, $id) = @_;
+ my ($data, $_type, $id) = @_;
my $pkg = defined $id && $data->{depslist}[$id];
my $medium = packageMedium($packages, $pkg);
my $f = $pkg && $pkg->filename;
@@ -1010,7 +1008,7 @@ sub install($$$;$$) {
$fd = install_any::getFile($f, $medium->{descr});
$fd ? fileno $fd : -1;
}, callback_close => sub {
- my ($data, $type, $id) = @_;
+ my ($data, $_type, $id) = @_;
my $pkg = defined $id && $data->{depslist}[$id] or return;
my $check_installed;
$db->traverse_tag('name', [ $pkg->name ], sub {
@@ -1019,7 +1017,7 @@ sub install($$$;$$) {
});
$check_installed and print OUTPUT "close:$id\n";
}, callback_inst => sub {
- my ($data, $type, $id, $subtype, $amount, $total) = @_;
+ my ($_data, $type, $id, $subtype, $amount, $total) = @_;
print OUTPUT "$type:$id:$subtype:$amount:$total\n";
});
log::l("transactions done, now trying to close still opened fd");
@@ -1122,9 +1120,6 @@ sub remove {
eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo";
- my $callbackOpen = sub { log::l("trying to open file from $_[0] which should not happen") };
- my $callbackClose = sub { log::l("trying to close file from $_[0] which should not happen") };
-
#- we are not checking depends since it should come when
#- upgrading a system. although we may remove some functionalities ?
@@ -1162,10 +1157,10 @@ sub selected_leaves {
sub naughtyServers {
my ($packages) = @_;
- my @old_81 = qw(
+ my @_old_81 = qw(
freeswan
);
- my @old_82 = qw(
+ my @_old_82 = qw(
vnc-server
postgresql-server
mon
diff --git a/perl-install/printer/common.pm b/perl-install/printer/common.pm
index f78d47b90..9d8f4d9a5 100644
--- a/perl-install/printer/common.pm
+++ b/perl-install/printer/common.pm
@@ -29,7 +29,6 @@ sub addentry {
sub addsection {
my ($section, $filecontent) = @_;
- my $entryinserted = 0;
my @lines = split("\n", $filecontent);
foreach (@lines) {
# section already there, nothing to be done
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index bd73c51b8..65df25c3f 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -9,7 +9,7 @@ sub local_detect {
modules::get_probeall("usb-interface") and eval { modules::load("printer") };
eval { modules::unload(qw(lp parport_pc parport_probe parport)) }; #- on kernel 2.4 parport has to be unloaded to probe again
eval { modules::load(qw(parport_pc lp parport_probe)) }; #- take care as not available on 2.4 kernel (silent error).
- my $b = before_leaving { eval { modules::unload("parport_probe") } };
+ my $_b = before_leaving { eval { modules::unload("parport_probe") } };
detect_devices::whatPrinter();
}
@@ -24,7 +24,7 @@ sub detect {
sub whatNetPrinter {
my ($network, $smb) = @_;
- my ($i, @res);
+ my (@res);
# Which ports should be scanned?
my @portstoscan;
diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index c3a8908a7..e6eab53c1 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -12,7 +12,7 @@ use printer::cups;
# ------------------------------------------------------------------
sub configure {
- my ($printer, $queue) = @_;
+ my ($printer) = @_;
# Do we have files to treat?
my @configfilenames = findconfigfiles();
return 1 if $#configfilenames < 0;
@@ -127,7 +127,7 @@ sub addcupsremoteto {
}
sub removeprinterfrom {
- my ($printer, $queue) = @_;
+ my ($_printer, $queue) = @_;
# Do we have files to treat?
my @configfilenames = findconfigfiles();
return 1 if $#configfilenames < 0;
@@ -287,7 +287,6 @@ sub addentry {
sub addprinter {
my ($section, $filecontent) = @_;
- my $entryinserted = 0;
my @lines = split("\n", $filecontent);
foreach (@lines) {
# section already there, nothing to be done
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index d1b3764d6..7f1a4a44c 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -181,7 +181,6 @@ sub copy_printer_params($$) {
sub getinfo($) {
my ($prefix) = @_;
my $printer = {};
- my @QUEUES;
$::prefix = $prefix;
@@ -492,7 +491,7 @@ sub read_printer_db(;$) {
poll_ppd_base();
}
- my @entries_db_short = sort keys %printer::thedb;
+ #my @entries_db_short = sort keys %printer::thedb;
#%descr_to_db = map { $printer::thedb{$_}{DESCR}, $_ } @entries_db_short;
#%descr_to_help = map { $printer::thedb{$_}{DESCR}, $printer::thedb{$_}{ABOUT} } @entries_db_short;
#@entry_db_description = keys %descr_to_db;
diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm
index 48bfe52f5..31e54a4fc 100644
--- a/perl-install/printer/office.pm
+++ b/perl-install/printer/office.pm
@@ -311,7 +311,7 @@ sub makeopenofficeprinterentry {
}
sub removestarofficeprinterentry {
- my ($printer, $queue, $configprefix, $configfile) = @_;
+ my ($_printer, $queue, $configprefix, $configfile) = @_;
# Remove default printer entry
$configfile = removeentry("windows", "device=$queue,", $configfile);
# Remove entry in the "[devices]" section
@@ -328,7 +328,7 @@ sub removestarofficeprinterentry {
}
sub removeopenofficeprinterentry {
- my ($printer, $queue, $configprefix, $configfile) = @_;
+ my ($_printer, $queue, $configprefix, $configfile) = @_;
# Remove printer's section
$configfile = removesection($queue, $configfile);
# Remove Link of PPD file
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 9df93a5d3..318bcfe3d 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -19,7 +19,6 @@ use printer::data;
sub choose_printer_type {
my ($printer, $in) = @_;
$in->set_help('configurePrinterConnected') if $::isInstall;
- my $queue = $printer->{OLD_QUEUE};
$printer->{str_type} = $printer::printer_type_inv{$printer->{TYPE}};
my $autodetect = 0;
$autodetect = 1 if $printer->{AUTODETECT};
@@ -54,10 +53,9 @@ sub config_cups {
if (!check_network($printer, $in, $upNetwork, 0)) { return 0 };
$in->set_help('configureRemoteCUPSServer') if $::isInstall;
- my $queue = $printer->{OLD_QUEUE};
#- hack to handle cups remote server printing,
#- first read /etc/cups/cupsd.conf for variable BrowsePoll address:port
- my ($server, $port, $default, $autoconf);
+ my ($server, $port, $autoconf);
# Return value: 0 when nothing was changed ("Apply" never pressed), 1
# when "Apply" was at least pressed once.
my $retvalue = 0;
@@ -363,7 +361,7 @@ sub setup_local_autoscan {
!$expert_or_modify && $printer->{AUTODETECTSMB} && !files_exist('/usr/bin/smbclient')) {
$in->do_pkgs->install('samba-client');
}
- my $w = $in->wait_message(N("Printer auto-detection"), N("Detecting devices..."));
+ my $_w = $in->wait_message(N("Printer auto-detection"), N("Detecting devices..."));
# When HPOJ is running, it blocks the printer ports on which it is
# configured, so we stop it here. If it is not installed or not
# configured, this command has no effect.
@@ -741,7 +739,7 @@ sub setup_smb {
if (!$::testing && !files_exist('/usr/bin/smbclient')) {
$in->do_pkgs->install('samba-client');
}
- my $w = $in->wait_message(N("Printer auto-detection"), N("Scanning network..."));
+ my $_w = $in->wait_message(N("Printer auto-detection"), N("Scanning network..."));
@autodetected = printer::detect::net_smb_detect();
foreach my $p (@autodetected) {
my $menustr;
@@ -948,7 +946,7 @@ sub setup_socket {
$in->set_help('setupSocket') if $::isInstall;
- my ($hostname, $port, $uri, $remotehost, $remoteport);
+ my ($uri, $remotehost, $remoteport);
my $queue = $printer->{OLD_QUEUE};
if ($printer->{configured}{$queue} &&
$printer->{currentqueue}{connect} =~ m!^(socket:|ptal:/hpjd:)!) {
@@ -977,7 +975,7 @@ sub setup_socket {
my $oldmenuchoice = "";
if ($printer->{AUTODETECT}) {
$autodetect = 1;
- my $w = $in->wait_message(N("Printer auto-detection"), N("Scanning network..."));
+ my $_w = $in->wait_message(N("Printer auto-detection"), N("Scanning network..."));
@autodetected = printer::detect::net_detect();
foreach my $p (@autodetected) {
my $menustr;
@@ -1252,12 +1250,12 @@ sub setup_common {
!files_exist(qw(/usr/sbin/ptal-mlcd
/usr/sbin/ptal-init
/usr/bin/xojpanel))) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Installing HPOJ package..."));
$in->do_pkgs->install('hpoj', 'xojpanel');
}
# Configure and start HPOJ
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Checking device and configuring HPOJ..."));
$ptaldevice = printer::main::configure_hpoj($device, @autodetected);
@@ -1275,7 +1273,7 @@ sub setup_common {
/usr/lib/libsane-hpoj.so.1),
if_(files_exist('/usr/bin/gimp'),
'/usr/bin/xsane-gimp'))) {
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Installing SANE packages..."));
$in->do_pkgs->install('sane-backends',
@@ -1298,7 +1296,7 @@ sub setup_common {
/usr/bin/mcopy
/usr/bin/MToolsFM
))) {
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Installing mtools packages..."));
$in->do_pkgs->install('mtools', 'mtoolsfm');
@@ -1349,13 +1347,13 @@ sub setup_common {
$device !~ /^socket:/ &&
$device !~ /^http:/ &&
$device !~ /^ipp:/) {
- my $w = $in->wait_message(N("Printerdrake"), N("Making printer port available for CUPS..."));
+ my $_w = $in->wait_message(N("Printerdrake"), N("Making printer port available for CUPS..."));
printer::main::assure_device_is_available_for_cups($ptaldevice || $device);
}
#- Read the printer driver database if necessary
if ((keys %printer::main::thedb) == 0) {
- my $w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
+ my $_w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
printer::main::read_printer_db($printer->{SPOOLER});
}
@@ -1476,11 +1474,11 @@ sub get_db_entry {
my ($printer, $in) = @_;
#- Read the printer driver database if necessary
if ((keys %printer::main::thedb) == 0) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer database..."));
printer::main::read_printer_db($printer->{SPOOLER});
}
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Preparing printer database..."));
my $queue = $printer->{OLD_QUEUE};
if ($printer->{configured}{$queue}) {
@@ -1597,7 +1595,7 @@ sub choose_model {
$in->set_help('chooseModel') if $::isInstall;
#- Read the printer driver database if necessary
if ((keys %printer::main::thedb) == 0) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer database..."));
printer::main::read_printer_db($printer->{SPOOLER});
}
@@ -1628,7 +1626,7 @@ sub get_printer_info {
my ($printer, $in) = @_;
#- Read the printer driver database if necessary
#if ((keys %printer::main::thedb) == 0) {
- # my $w = $in->wait_message(N("Printerdrake"),
+ # my $_w = $in->wait_message(N("Printerdrake"),
# N("Reading printer database..."));
# printer::main::read_printer_db($printer->{SPOOLER});
#}
@@ -2132,7 +2130,7 @@ Note: the photo test page can take a rather long time to get printed and on lase
if ($res1 && !$res2) {
my @lpq_output;
{
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Printing test page(s)..."));
$upNetwork and do { &$upNetwork(); undef $upNetwork; sleep(1) };
@@ -2283,7 +2281,7 @@ N("To know about the options available for the current printer read either the l
[ N("Print option list"), N("Close") ],
N("Close"));
if ($choice ne N("Close")) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Printing test page(s)..."));
printer::main::print_optionlist($printer);
}
@@ -2342,7 +2340,7 @@ sub copy_queues_from {
my $oldspoolerstr;
my $noninteractive = 0;
{
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer data..."));
@oldqueues = printer::main::get_copiable_queues($oldspooler, $newspooler);
@oldqueues = sort(@oldqueues);
@@ -2414,7 +2412,7 @@ You can also type a new name or skip this printer.",
},
[{label => N("New printer name"),val => \$newqueue }])) {
{
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Transferring %s...", $oldqueue));
printer::main::copy_foomatic_queue($printer, $oldqueue,
$oldspooler, $newqueue) and
@@ -2435,7 +2433,7 @@ You can also type a new name or skip this printer.",
}
}
if ($queuecopied) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Refreshing printer data..."));
printer::main::read_configured_queues($printer);
}
@@ -2444,7 +2442,7 @@ You can also type a new name or skip this printer.",
sub start_network {
my ($in, $upNetwork) = @_;
- my $w = $in->wait_message(N("Configuration of a remote printer"),
+ my $_w = $in->wait_message(N("Configuration of a remote printer"),
N("Starting network..."));
if ($::isInstall) {
return ($upNetwork and
@@ -2527,7 +2525,7 @@ N("The network access was not running and could not be started. Please check you
# The daemon is not really restarted but only SIGHUPped to not
# interrupt print jobs.
- my $w = $in->wait_message(N("Configuration of a remote printer"),
+ my $_w = $in->wait_message(N("Configuration of a remote printer"),
N("Restarting printing system..."));
return printer::main::SIGHUP_daemon($printer->{SPOOLER});
@@ -2537,7 +2535,7 @@ N("The network access was not running and could not be started. Please check you
sub security_check {
# Check the security mode and when in "high" or "paranoid" mode ask the
# user whether he really wants to configure printing.
- my ($printer, $in, $spooler) = @_;
+ my ($_printer, $in, $spooler) = @_;
# Any additional dialogs caused by this subroutine should appear as
# extra windows and not embedded in the "Add printer" wizard.
@@ -2629,13 +2627,13 @@ sub install_spooler {
# "lpr" conflicts with "LPRng", remove either "LPRng" or remove "lpr"
my $packages = $spoolers{$spooler}{packages2rm};
if ($packages && files_exist($packages->[1])) {
- $w = $in->wait_message(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
+ $w->set(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
$in->do_pkgs->remove_nodeps($packages->[0]);
}
$packages = $spoolers{$spooler}{packages2add};
if ($packages && !files_exist(@{$packages->[1]})) {
- $w = $in->wait_message(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
+ $w->set(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
$in->do_pkgs->install(@{$packages->[0]});
}
@@ -2665,7 +2663,6 @@ sub install_spooler {
foreach (@{$spoolers{$spooler}{alternatives}}) {
set_alternative($_->[0], $_->[1]);
}
- undef $w;
# Remove/add PDQ panic buttons from the user's KDE Desktops
printer::main::pdq_panic_button($spooler eq 'pdq' ? "add" : "remove");
@@ -2701,7 +2698,7 @@ sub setup_default_spooler {
printer::main::removelocalprintersfromapplications($printer);
# Get the queues of this spooler
{
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer data..."));
printer::main::read_configured_queues($printer);
}
@@ -2710,7 +2707,7 @@ sub setup_default_spooler {
# Re-read the printer database (CUPS has additional drivers, PDQ
# has no raw queue)
%printer::main::thedb = ();
- #my $w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
+ #my $_w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
#printer::main::read_printer_db($printer->{SPOOLER});
}
# Save spooler choice
@@ -2720,7 +2717,7 @@ sub setup_default_spooler {
sub configure_queue {
my ($printer, $in) = @_;
- my $w = $in->wait_message(N("Printerdrake"), N("Configuring printer \"%s\"...",
+ my $_w = $in->wait_message(N("Printerdrake"), N("Configuring printer \"%s\"...",
$printer->{currentqueue}{queue}));
$printer->{complete} = 1;
printer::main::configure_queue($printer);
@@ -2731,7 +2728,7 @@ sub install_foomatic {
my ($in) = @_;
if (!$::testing &&
!files_exist(qw(/usr/bin/foomatic-configure /usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm))) {
- my $w = $in->wait_message(N("Printerdrake"), N("Installing Foomatic..."));
+ my $_w = $in->wait_message(N("Printerdrake"), N("Installing Foomatic..."));
$in->do_pkgs->install('foomatic');
}
}
@@ -2764,7 +2761,7 @@ sub main {
# printerdrake does not work without foomatic, and for more convenience
# we install some more stuff
{
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Checking installed software..."));
if (!$::testing &&
!files_exist(qw(/usr/bin/foomatic-configure
@@ -2798,7 +2795,7 @@ sub main {
$printer->{AUTODETECTSMB} = 1;
# Control variables for the main loop
- my ($menuchoice, $cursorpos, $queue, $continue, $newqueue, $editqueue, $expertswitch, $menushown) = ('', '::', $defaultprname, 1, 0, 0, 0, 0);
+ my ($menuchoice, $cursorpos, $queue, $continue, $newqueue, $editqueue, $menushown) = ('', '::', $defaultprname, 1, 0, 0, 0);
# Cursor position in queue modification window
my $modify = N("Printer options");
while ($continue) {
@@ -2809,7 +2806,7 @@ sub main {
# Get the default printer
if (defined($printer->{SPOOLER}) && $printer->{SPOOLER} &&
(!defined($printer->{DEFAULT}) || $printer->{DEFAULT})) {
- my $w = $in->wait_message(N("Printerdrake"),
+ my $_w = $in->wait_message(N("Printerdrake"),
N("Preparing Printerdrake..."));
$printer->{DEFAULT} = printer::default::get_printer($printer);
if ($printer->{DEFAULT}) {
@@ -2824,9 +2821,10 @@ sub main {
}
# Configure the current printer queues in applications
- my $w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
- printer::main::configureapplications($printer);
- undef $w;
+ {
+ my $_w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
+ printer::main::configureapplications($printer);
+ }
if ($editqueue) {
# The user was either in the printer modification dialog and did
@@ -2856,7 +2854,7 @@ sub main {
$printer->{SPOOLER} ||= setup_default_spooler($printer, $in, $upNetwork) || return;
# This entry and the check for this entry have to use
# the same translation to work properly
- my $spoolerentry = N("Printing system: ");
+ my $_spoolerentry = N("Printing system: ");
# If networking is configured, start it, but don't ask the
# user to configure networking. We want to know whether we
# have a local network, to suppress some buttons in the
@@ -2982,12 +2980,12 @@ sub main {
}
# Read printer database for the new user mode
%printer::main::thedb = ();
- #my $w = $in->wait_message(N("Printerdrake"),
+ #my $_w = $in->wait_message(N("Printerdrake"),
# N("Reading printer database..."));
#printer::main::read_printer_db($printer->{SPOOLER});
# Re-read printer queues to switch the tree
# structure between expert/normal mode.
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Reading printer data..."));
printer::main::read_configured_queues($printer);
@@ -3279,7 +3277,7 @@ What do you want to modify on this printer?",
configure_queue($printer, $in);
# Delete old queue when it was renamed
if (lc($printer->{QUEUE}) ne lc($printer->{OLD_QUEUE})) {
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Removing old printer \"%s\"...",
$printer->{OLD_QUEUE}));
@@ -3326,7 +3324,7 @@ What do you want to modify on this printer?",
if ($in->ask_yesorno('',
N("Do you really want to remove the printer \"%s\"?", $queue), 1)) {
{
- my $w = $in->wait_message(
+ my $_w = $in->wait_message(
N("Printerdrake"),
N("Removing printer \"%s\"...", $queue));
if (printer::main::remove_queue($printer, $queue)) {
@@ -3368,7 +3366,7 @@ What do you want to modify on this printer?",
# Configure the current printer queue in applications when main menu
# will not be shown (During installation in "Recommended" mode)
if ($::isInstall && !$::expert && !$menushown && !$continue) {
- my $w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
+ my $_w = $in->wait_message(N("Printerdrake"), N("Configuring applications..."));
printer::main::configureapplications($printer);
}
diff --git a/perl-install/resize_fat/dir_entry.pm b/perl-install/resize_fat/dir_entry.pm
index 424860b86..9b990be2e 100644
--- a/perl-install/resize_fat/dir_entry.pm
+++ b/perl-install/resize_fat/dir_entry.pm
@@ -61,7 +61,7 @@ sub is_special_entry($) {
#- return true if entry has been modified
#- curr_dir_name is added to contains current directory name, "" for root.
sub remap {
- my ($curr_dir_name, $entry) = @_;
+ my ($_curr_dir_name, $entry) = @_;
is_special_entry($entry) and return;
diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
index 1f2b1ede6..55bae687f 100644
--- a/perl-install/resize_fat/directory.pm
+++ b/perl-install/resize_fat/directory.pm
@@ -74,6 +74,6 @@ sub traverse_all($$) {
#- function used by construct_dir_tree to translate the `cluster' fields in each
#- directory entry
sub remap($$) {
- my ($fs, $directory) = @_;
+ my ($_fs, $directory) = @_;
traverse($directory, "", \&resize_fat::dir_entry::remap);
}
diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 054fb0858..7ece56533 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -17,7 +17,7 @@ sub read($$$) {
$buf;
}
sub write($$$$) {
- my ($fs, $pos, $size, $buf) = @_;
+ my ($fs, $pos, $_size, $buf) = @_;
sysseek $fs->{fd}, $pos, 0 or die "seeking to byte #$pos failed on device $fs->{fs_name}";
syswrite $fs->{fd}, $buf or die "writing at byte #$pos failed on device $fs->{fs_name}";
}
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 2be0dcf0b..f38d59ce9 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -50,7 +50,7 @@ sub add2dll {
}
sub detect {
- my ($i, $elem, @res) = (0, {});
+ my ($i, @res) = 0;
foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) {
#my ($manufacturer, $model) = split '\|', $_->{description};
#$_->{description} =~ s/Hewlett[-\s_]Packard/HP/;
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm
index 9aa4b4038..76cbdf83a 100644
--- a/perl-install/security/main.pm
+++ b/perl-install/security/main.pm
@@ -53,7 +53,7 @@ Security Administrator:
}
sub basic_seclevel_option {
- my ($seclevel_entry, $msec) = @_;
+ my ($seclevel_entry, $_msec) = @_;
my @sec_levels = security::level::get_common_list();
my $current_level = security::level::get_string();
@@ -106,7 +106,7 @@ sub draksec_main {
######################## BASIC OPTIONS PAGE ################################
my $seclevel_entry = new Gtk2::Combo();
- $notebook->append_page(gtkpack(my $basic_page = new Gtk2::VBox(0, 0),
+ $notebook->append_page(gtkpack(new Gtk2::VBox(0, 0),
basic_seclevel_explanations($msec),
create_packtable($common_opts,
[ basic_seclevel_option(\$seclevel_entry, $msec) ],
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 5d5140161..596ca0feb 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -182,7 +182,7 @@ sub ask_install {
}
sub ask_standalone_gtk {
- my ($in, $prefix) = @_;
+ my ($_in, $prefix) = @_;
my ($l, $on_services) = services($prefix);
require ugtk2;
@@ -255,12 +255,12 @@ sub ask_standalone_gtk {
}
sub ask {
- my ($in, $prefix) = @_;
+ my ($in, $_prefix) = @_;
!$::isInstall && $in->isa('interactive::gtk') ? &ask_standalone_gtk : &ask_install;
}
sub doit {
- my ($in, $on_services, $prefix) = @_;
+ my ($_in, $on_services, $prefix) = @_;
my ($l, $was_on_services) = services($prefix);
foreach (@$l) {
diff --git a/perl-install/swap.pm b/perl-install/swap.pm
index e170c2473..cbe572369 100644
--- a/perl-install/swap.pm
+++ b/perl-install/swap.pm
@@ -61,7 +61,6 @@ sub check_blocks {
sub make($;$) {
my ($devicename, $checkBlocks) = @_;
- my $tmpdev = 0;
my $badpages = 0;
my ($version, $maxpages);
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 4e7045835..d43883c5f 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -305,7 +305,7 @@ sub create_dialog {
# drakfloppy / logdrake
sub destroy_window {
- my ($widget, $windowref, $w2) = @_;
+ my ($_widget, $windowref, $w2) = @_;
$$windowref = undef;
$w2 = undef if defined $w2;
0;
@@ -536,7 +536,7 @@ sub get_text_coord {
}
sub gtkicons_labels_widget {
- my ($args, $w, $widget_for_font, $background, $back_pixbuf, $x_back, $y_back, $x_round,
+ my ($args, $_w, $widget_for_font, $background, $back_pixbuf, $_xback, $_yback, $x_round,
$y_round, $x_back2, $y_back2, $icon_width, $icon_height, $exec_func, $exec_hash) = @_;
my @tab;
@@ -553,7 +553,7 @@ sub gtkicons_labels_widget {
my $pixbuf_h = compose_with_back($tag, $back_pixbuf, 170);
my $draw = sub {
- my ($widget, $event) = @_;
+ my ($_widget, $event) = @_;
my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]);
my $state = $darea->{state};
if (!defined($dbl_area)) {
@@ -658,7 +658,6 @@ sub write_on_pixmap {
sub create_pix_text {
#ref widget, txt, color_txt, [font], [width], [height], flag1, flag2, [ (background background_highlighted background_selecteded) backsize x y], centeredx, centeredy
my ($w, $text, $font, $max_width, $max_height, $can_be_greater, $can_be_smaller, $backgrounds, $x_back, $y_back, $centeredx, $centeredy) = @_;
- my $color_background;
my $fake_darea = new Gtk::DrawingArea;
my $style = $fake_darea->style->copy();
if (ref($font) eq 'Gtk::Gdk::Font') {
@@ -848,7 +847,7 @@ sub fill_tiled {
}
sub compute_icons {
- my ($fx, $fy, $decx, $decy, $interstice, @tab) = @_;
+ my ($fx, $_fy, $decx, $decy, $interstice, @tab) = @_;
my $nb = $#tab;
my $nb_sav = $nb;
my $index = 0;
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 0e70d8136..dad83a12c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -373,10 +373,10 @@ sub create_dialog {
# drakfloppy / logdrake
sub destroy_window {
- my ($widget, $windowref, $w2) = @_;
- $$windowref = undef;
- $w2 = undef if defined $w2;
- 0;
+ my ($_widget, $windowref, $w2) = @_;
+ $$windowref = undef;
+ $w2 = undef if defined $w2;
+ 0;
}
sub create_hbox { gtkset_layout(gtkset_border_width(Gtk2::HButtonBox->new, 3), 'spread') }
@@ -522,7 +522,7 @@ sub gtktext_insert {
sub gtkfontinfo {
my ($widget) = @_;
my $context = $widget->get_pango_context;
- my $lan = $context->get_language;
+ my $_lan = $context->get_language;
my $metrics = $context->get_metrics($widget->style->get_font_desc, $context->get_language);
my %fontinfo;
foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {
@@ -754,7 +754,7 @@ sub main {
gtkset_mousecursor_normal();
$::CCPID and kill 'USR2', $::CCPID;
my $timeout = Gtk2->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
- my $b = MDK::Common::Func::before_leaving { Gtk2->timeout_remove($timeout) };
+ my $_b = MDK::Common::Func::before_leaving { Gtk2->timeout_remove($timeout) };
$o->show;
do {
@@ -797,7 +797,7 @@ sub _create_window($$) {
my ($o, $title) = @_;
my $w = Gtk2::Window->new('toplevel');
!$::isStandalone && !$::live && !$::g_auto_install and $shape_width = 3;
- my $inner = gtkadd(my $f_ = gtkset_shadow_type(Gtk2::Frame->new(undef), 'out'),
+ my $inner = gtkadd(gtkset_shadow_type(Gtk2::Frame->new(undef), 'out'),
my $f = gtkset_border_width(gtkset_shadow_type(Gtk2::Frame->new(undef), 'none'), 3)
);
my $table;
@@ -1040,7 +1040,7 @@ sub ask_browse_tree_info {
foreach my $ic (@{$common->{icons} || []}) {
push @toolbar, ($ic->{icon} => [ $ic->{help}, sub {
if ($ic->{code}) {
- my $w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message});
+ my $_w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message});
$ic->{code}();
$common->{rebuild_tree}->();
}
@@ -1058,7 +1058,7 @@ sub ask_browse_tree_info {
sub ask_browse_tree_info_given_widgets {
my ($common, $w) = @_;
- my ($curr, $parent, $prev_label, $idle, $mouse_toggle_pending);
+ my ($curr, $prev_label, $idle, $mouse_toggle_pending);
my (%wtree, %ptree, %pix, %node_state, %state_stats);
my $update_size = sub {
my $new_label = $common->{get_status}();
@@ -1196,7 +1196,7 @@ sub ask_browse_tree_info_given_widgets {
$path->free;
} else {
if (ref $curr) {
- my @a = $children->($curr);
+ my @_a = $children->($curr);
my @l = $common->{grep_allowed_to_toggle}($children->($curr)) or return;
my @unsel = $common->{grep_unselected}(@l);
my @p = @unsel ?
@@ -1237,7 +1237,7 @@ sub ask_browse_tree_info_given_widgets {
});
$common->{rebuild_tree}->();
&$update_size;
- my $b = before_leaving { $clear_all_caches->() };
+ my $_b = before_leaving { $clear_all_caches->() };
$w->{w}->main;
}