diff options
Diffstat (limited to 'perl-install')
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; } |