From 73c851144720e28b21a491b6250385170db9d752 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 24 Apr 2003 19:00:12 +0000 Subject: perl_checker adaptations + fixes --- perl-install/Xconfig/card.pm | 4 +- perl-install/Xconfig/monitor.pm | 6 +-- perl-install/Xconfig/various.pm | 2 +- perl-install/Xconfig/xfree3.pm | 4 +- perl-install/any.pm | 8 ++-- perl-install/c.pm | 2 +- perl-install/commands.pm | 12 +++--- perl-install/common.pm | 12 +++--- perl-install/crypto.pm | 4 +- perl-install/detect_devices.pm | 66 +++++++++++++++--------------- perl-install/devices.pm | 2 +- perl-install/diskdrake/hd_gtk.pm | 8 ++-- perl-install/diskdrake/interactive.pm | 5 ++- perl-install/diskdrake/removable.pm | 2 +- perl-install/diskdrake/smbnfs_gtk.pm | 4 +- perl-install/fs.pm | 2 +- perl-install/fsedit.pm | 2 +- perl-install/harddrake/data.pm | 2 +- perl-install/harddrake/sound.pm | 2 +- perl-install/install2.pm | 2 +- perl-install/install_any.pm | 16 +++----- perl-install/install_messages.pm | 8 ++-- perl-install/install_steps.pm | 6 ++- perl-install/install_steps_auto_install.pm | 5 ++- perl-install/install_steps_interactive.pm | 6 ++- perl-install/interactive.pm | 14 +++---- perl-install/interactive/http.pm | 8 ++-- perl-install/interactive/newt.pm | 12 +++--- perl-install/interactive/stdio.pm | 2 +- perl-install/keyboard.pm | 10 ++--- perl-install/lang.pm | 8 ++-- perl-install/loopback.pm | 2 +- perl-install/lvm.pm | 2 +- perl-install/modules.pm | 10 ++--- perl-install/mouse.pm | 8 ++-- perl-install/network/isdn.pm | 4 +- perl-install/network/netconnect.pm | 4 +- perl-install/network/shorewall.pm | 4 +- perl-install/network/tools.pm | 16 ++++---- perl-install/partition_table.pm | 2 +- perl-install/partition_table/gpt.pm | 2 +- perl-install/pkgs.pm | 15 ------- perl-install/raid.pm | 4 +- perl-install/resize_fat/directory.pm | 2 +- perl-install/sbus_probing/main.pm | 2 +- perl-install/scanner.pm | 4 +- perl-install/security/level.pm | 8 ++-- perl-install/services.pm | 4 +- perl-install/standalone/draksec | 4 +- perl-install/standalone/harddrake2 | 2 +- perl-install/timezone.pm | 4 +- perl-install/ugtk2.pm | 11 ++--- 52 files changed, 177 insertions(+), 183 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 5c38e7332..6a07e1cd6 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -416,8 +416,8 @@ sub multi_head_choices { } #- XFree version available, it would be better to parse available package and get version from it. -sub xfree4_version { '4.3' } -sub xfree3_version { '3.3.6' } +sub xfree4_version() { '4.3' } +sub xfree3_version() { '3.3.6' } sub xfree_and_glx_choices { my ($card) = @_; diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 1df15ecd5..27475c0d1 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -9,7 +9,7 @@ use any; use log; -sub good_default_monitor { +sub good_default_monitor() { arch() =~ /ppc/ ? (detect_devices::get_mac_model() =~ /^iBook/ ? 'Apple|iBook 800x600' : 'Apple|iMac/PowerBook 1024x768') : (detect_devices::isLaptop() ? 'Generic|Flat Panel 1024x768' : 'Generic|1024x768 @ 70 Hz'); @@ -156,7 +156,7 @@ sub configure_automatic { return $monitor->{HorizSync} && $monitor->{VertRefresh}; } -sub getinfoFromDDC { +sub getinfoFromDDC() { my ($VideoRam, @l) = any::ddcxinfos() or return; my @Modes; @@ -180,7 +180,7 @@ sub getinfoFromDDC { }; } -sub monitors { +sub monitors() { readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB"); } sub readMonitorsDB { diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm index d277937c5..5849a1c17 100644 --- a/perl-install/Xconfig/various.pm +++ b/perl-install/Xconfig/various.pm @@ -142,7 +142,7 @@ sub configure_FB_TVOUT { } } -sub check_XF86Config_symlink { +sub check_XF86Config_symlink() { my $f = "$::prefix/etc/X11/XF86Config-4"; if (!-l $f && -e "$f.tvout") { rename $f, "$f.standard"; diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm index 450ce3461..8f61fe55a 100644 --- a/perl-install/Xconfig/xfree3.pm +++ b/perl-install/Xconfig/xfree3.pm @@ -109,7 +109,9 @@ sub is_fbdev { val($Screen->{Server}) eq 'FBDev'; } -sub set_Option {} +sub set_Option { + my ($_raw_X, $_category, $_node, @_names) = @_; +} sub val { diff --git a/perl-install/any.pm b/perl-install/any.pm index 423bf990c..ce3680410 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -19,7 +19,7 @@ use modules; use log; use c; -sub drakx_version { +sub drakx_version() { sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("$ENV{SHARE_PATH}/VERSION")))[2,3]; } @@ -80,7 +80,7 @@ sub hdInstallPath() { $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail"); } -sub kernelVersion { +sub kernelVersion() { my $kernel = readlink("$::prefix/boot/vmlinuz") || first(all("$::prefix/boot")); first($kernel =~ /vmlinuz-(.*)/); } @@ -863,7 +863,7 @@ You can use userdrake to add a user to this group.") } } -sub ddcxinfos { +sub ddcxinfos() { return if $::noauto; my @l; @@ -881,7 +881,7 @@ sub ddcxinfos { @l; } -sub running_window_manager { +sub running_window_manager() { my @window_managers = qw(kwin gnome-session icewm wmaker afterstep fvwm fvwm2 fvwm95 mwm twm enlightenment xfce blackbox sawfish olvwm); foreach (@window_managers) { diff --git a/perl-install/c.pm b/perl-install/c.pm index 0d5fe8f00..56996ecf5 100644 --- a/perl-install/c.pm +++ b/perl-install/c.pm @@ -5,7 +5,7 @@ use vars qw($AUTOLOAD); use c::stuff; use MDK::Common; -sub AUTOLOAD { +sub AUTOLOAD() { $AUTOLOAD =~ /::(.*)/; my @l = eval { &{$c::stuff::{$1}} }; if (my $err = $@) { diff --git a/perl-install/commands.pm b/perl-install/commands.pm index fb5a8ada3..eb14a1362 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -38,13 +38,13 @@ sub getopts { @r; } -sub true { exit 0 } -sub false { exit 1 } +sub true() { exit 0 } +sub false() { exit 1 } sub cat { @ARGV = @_; print while <> } sub dirname_ { print dirname(@_), "\n" } sub basename_ { print basename(@_), "\n" } sub rmdir_ { foreach (@_) { rmdir $_ or die "rmdir: can't remove $_\n" } } -sub lsmod { print "Module Size Used by\n"; cat("/proc/modules") } +sub lsmod() { print "Module Size Used by\n"; cat("/proc/modules") } sub which { ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG } } } @@ -447,13 +447,13 @@ sub kill { kill $signal, @_ or die "kill failed: $!\n"; } -sub lspci { +sub lspci() { require detect_devices; print join "\n", detect_devices::stringlist(1), ''; } *lssbus = \&lspci; -sub dmesg { print cat_("/tmp/syslog") } +sub dmesg() { print cat_("/tmp/syslog") } sub sort { my ($n, $h) = getopts(\@_, qw(nh)); @@ -518,6 +518,6 @@ sub loadkeys { keyboard::setup({ KEYBOARD => $_[0] }); } -sub sync { common::sync() } +sub sync() { common::sync() } 1; diff --git a/perl-install/common.pm b/perl-install/common.pm index 72a40bd32..87a491bcd 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -137,7 +137,7 @@ sub formatTime { } } -sub usingRamdisk { any { /ram3/ } cat_("/proc/mounts") } +sub usingRamdisk() { any { /ram3/ } cat_("/proc/mounts") } sub expand_symlinks_but_simple { my ($f) = @_; @@ -160,7 +160,7 @@ sub group_n_lm { @l } -sub screenshot_dir__and_move { +sub screenshot_dir__and_move() { my ($dir1, $dir2) = ("$::prefix/root", '/tmp/stage2'); if (-e $dir1) { if (-e "$dir2/DrakX-screenshots") { @@ -173,7 +173,7 @@ sub screenshot_dir__and_move { } } -sub take_screenshot { +sub take_screenshot() { my $dir = screenshot_dir__and_move() . '/DrakX-screenshots'; my $warn; if (!-e $dir) { @@ -241,11 +241,11 @@ sub set_permissions { or die "Could not start chmod!"; } -sub mandrake_release { +sub mandrake_release() { chomp_(cat_("/etc/mandrake-release")) } -sub require_root_capability { +sub require_root_capability() { return unless $>; # we're already root if (check_for_xserver()) { if (fuzzy_pidofs(qr/\bkwin\b/) > 0) { @@ -258,7 +258,7 @@ sub require_root_capability { die "you must be root to run this program" if $>; } -sub check_for_xserver { +sub check_for_xserver() { if (!defined $::xtest) { $::xtest = $ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0; } diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 76821f38c..8fa979678 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -45,7 +45,7 @@ use ftp; %mirrors = (); sub mirror2text { $mirrors{$_[0]} && $mirrors{$_[0]}[0] . '|' . $_[0] } -sub mirrors { +sub mirrors() { unless (keys %mirrors) { #- contact the following URL to retrieve list of mirror. #- http://www.linux-mandrake.com/mirrorsfull.list @@ -98,7 +98,7 @@ sub bestMirror { } #- hack to retrieve Mandrake Linux version... -sub version { +sub version() { require pkgs; my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release'); $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-) diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 49a0890ea..dde0ce63f 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -22,10 +22,10 @@ my %serialprobe; #-###################################################################################### #- Functions #-###################################################################################### -sub dev_is_devfs { -e "/dev/.devfsd" } #- no $::prefix, returns false during install and that's nice :) +sub dev_is_devfs() { -e "/dev/.devfsd" } #- no $::prefix, returns false during install and that's nice :) -sub get { +sub get() { #- Detect the default BIOS boot harddrive is kind of tricky. We may have IDE, #- SCSI and RAID devices on the same machine. From what I see so far, the default #- BIOS boot harddrive will be @@ -35,15 +35,15 @@ sub get { getIDE(), getSCSI(), getDAC960(), getCompaqSmartArray(), getATARAID(); } -sub hds { grep { $_->{media_type} eq 'hd' && !isRemovableDrive($_) } get() } -sub tapes { grep { $_->{media_type} eq 'tape' } get() } -sub cdroms { grep { $_->{media_type} eq 'cdrom' } get() } -sub burners { grep { isBurner($_) } cdroms() } -sub dvdroms { grep { isDvdDrive($_) } cdroms() } -sub raw_zips { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() } +sub hds() { grep { $_->{media_type} eq 'hd' && !isRemovableDrive($_) } get() } +sub tapes() { grep { $_->{media_type} eq 'tape' } get() } +sub cdroms() { grep { $_->{media_type} eq 'cdrom' } get() } +sub burners() { grep { isBurner($_) } cdroms() } +sub dvdroms() { grep { isDvdDrive($_) } cdroms() } +sub raw_zips() { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() } #-sub jazzs { grep { member($_->{media_type}, 'fd', 'hd') && isJazzDrive($_) } get() } -sub ls120s { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() } -sub zips { +sub ls120s() { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() } +sub zips() { map { $_->{device} .= 4; $_->{devfs_device} = $_->{devfs_prefix} . '/part4'; @@ -51,8 +51,8 @@ sub zips { } raw_zips(); } -sub cdroms__faking_ide_scsi { grep { $_->{media_type} eq 'cdrom' } cdroms_and_zips__faking_ide_scsi() } -sub cdroms_and_zips__faking_ide_scsi { +sub cdroms__faking_ide_scsi() { grep { $_->{media_type} eq 'cdrom' } cdroms_and_zips__faking_ide_scsi() } +sub cdroms_and_zips__faking_ide_scsi() { my @l = grep { $_->{media_type} eq 'cdrom' || member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get(); if (my @l_need_fake = grep { !$::isStandalone && $_->{bus} eq 'ide' && !($_->{media_type} eq 'cdrom' && !isBurner($_)) } @l) { @@ -101,10 +101,10 @@ sub floppies() { @ide, @scsi, @fds; } sub floppies_dev() { map { $_->{device} } floppies() } -sub floppy { first(floppies_dev()) } +sub floppy() { first(floppies_dev()) } #- example ls120, model = "LS-120 SLIM 02 UHD Floppy" -sub removables { +sub removables() { floppies(), cdroms_and_zips__faking_ide_scsi(); } @@ -341,7 +341,7 @@ sub getDAC960() { values %idi; } -sub getATARAID { +sub getATARAID() { my %l; foreach (syslog()) { my ($device) = m|^\s*(ataraid/d\d+):| or next; @@ -361,7 +361,7 @@ sub getATARAID { # cpu_freq = arch() =~ /^alpha/ ? "cycle frequency [Hz]" : # arch() =~ /^ppc/ ? "clock" : "cpu MHz" -sub getCPUs { +sub getCPUs() { my (@cpus, $cpu); foreach (cat_("/proc/cpuinfo")) { if (/^processor/) { # ix86 specific @@ -375,13 +375,13 @@ sub getCPUs { @cpus; } -sub getSoundDevices { +sub getSoundDevices() { (arch() =~ /ppc/ ? \&modules::load_category : \&modules::probe_category)->('multimedia/sound'); } sub isTVcard { $_[0]{driver} =~ /bttv|saa7134/ } -sub getTVcards { +sub getTVcards() { grep { isTVcard($_) } detect_devices::probeall(); } @@ -411,10 +411,10 @@ sub getModem() { getSerialModem({}), @pci_modems; } -sub getSpeedtouch { +sub getSpeedtouch() { grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall(0); } -sub getSagem { +sub getSagem() { grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall(0); } @@ -478,7 +478,7 @@ sub pci_probe { } c::pci_probe($probe_type || 0)); } -sub usb_probe { +sub usb_probe() { -e "/proc/bus/usb/devices" or return; add_addons($usbtable_addons, map { @@ -490,7 +490,7 @@ sub usb_probe { } c::usb_probe()); } -sub pcmcia_probe { +sub pcmcia_probe() { -e '/var/run/stab' || -e '/var/lib/pcmcia/stab' or return (); my (@devs, $desc); @@ -541,7 +541,7 @@ sub tryWrite($) { sysopen $F, devices::make($_[0]), 1 | c::O_NONBLOCK() and $F; } -sub syslog { +sub syslog() { -r "/tmp/syslog" and return map { /<\d+>(.*)/ } cat_("/tmp/syslog"); my $LD_LOADER = $ENV{LD_LOADER} || ""; `$LD_LOADER /bin/dmesg`; @@ -567,23 +567,23 @@ sub get_mac_generation() { return "Unknown Generation"; } -sub hasSMP { !$::testing && c::detectSMP() } -sub hasPCMCIA { $::o->{pcmcia} } #- because /proc/pcmcia seems not to be present on 2.4 at least (or use /var/run/stab) +sub hasSMP() { !$::testing && c::detectSMP() } +sub hasPCMCIA() { $::o->{pcmcia} } #- because /proc/pcmcia seems not to be present on 2.4 at least (or use /var/run/stab) #- try to detect a laptop, we assume pcmcia service is an indication of a laptop or #- the following regexp to match graphics card apparently only used for such systems. -sub isLaptop { +sub isLaptop() { hasPCMCIA() || (matching_desc('C&T.*655[45]\d') || matching_desc('C&T.*68554') || matching_desc('Neomagic.*Magic(Media|Graph)') || matching_desc('ViRGE.MX') || matching_desc('S3.*Savage.*[IM]X') || matching_desc('ATI.*(Mobility|LT)')); } -sub usbMice { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ || +sub usbMice() { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ || $_->{driver} =~ /Mouse:USB/ } usb_probe() } -sub usbWacom { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() } -sub usbKeyboards { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() } -sub usbStorage { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() } +sub usbWacom() { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() } +sub usbKeyboards() { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() } +sub usbStorage() { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() } sub usbKeyboard2country_code { my ($usb_kbd) = @_; @@ -594,7 +594,7 @@ sub usbKeyboard2country_code { unpack("C", $tmp); } -sub probeSerialDevices { +sub probeSerialDevices() { foreach (0..3) { #- make sure the device are created before probing, devices::make("/dev/ttyS$_"); @@ -634,7 +634,7 @@ sub hasMousePS2 { my $t; sysread(tryOpen($_[0]) || return, $t, 256) != 1 || $t ne "\xFE"; } -sub raidAutoStartIoctl { +sub raidAutoStartIoctl() { sysopen(my $F, devices::make("md0"), 2) or return; ioctl $F, 2324, 0; } @@ -677,7 +677,7 @@ sub raidAutoStart { } } -sub is_a_recent_computer { +sub is_a_recent_computer() { my ($frequence) = map { /cpu MHz\s*:\s*(.*)/ } cat_("/proc/cpuinfo"); $frequence > 600; } diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 7c57f43a0..e3ecc3185 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -37,7 +37,7 @@ sub del_loop { my ($dev) = @_; run_program::run("losetup", "-d", $dev); } -sub find_free_loop { +sub find_free_loop() { foreach (0..7) { my $dev = make("loop$_"); sysopen(my $F, $dev, 2) or next; diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 2071b3e4a..82fe1964a 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -304,11 +304,11 @@ sub create_buttons4partitions { ################################################################################ # disks: helpers ################################################################################ -sub current_hd { +sub current_hd() { $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd'; $current_kind->{val}; } -sub current_part { +sub current_part() { current_hd(); $current_entry; } @@ -369,14 +369,14 @@ sub lvm2kind { ################################################################################ # raids: helpers ################################################################################ -sub raid2kind { +sub raid2kind() { { type => 'raid', name => 'raid', val => $all_hds->{raids} }; } ################################################################################ # loopbacks: helpers ################################################################################ -sub loopback2kind { +sub loopback2kind() { { type => 'loopback', name => 'loopback', val => $all_hds->{loopbacks} }; } diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index f32c872c7..85cdfa54e 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -235,6 +235,7 @@ sub main { # general actions ################################################################################ sub general_possible_actions { + my ($_in, $_all_hds) = @_; N_("Undo"), ($::expert ? N_("Toggle to normal mode") : N_("Toggle to expert mode")); } @@ -932,8 +933,8 @@ sub Options { { no strict; - *{'Toggle to normal mode'} = sub { $::expert = 0 }; - *{'Toggle to expert mode'} = sub { $::expert = 1 }; + *{'Toggle to normal mode'} = sub() { $::expert = 0 }; + *{'Toggle to expert mode'} = sub() { $::expert = 1 }; *{'Clear all'} = \&Clear_all; *{'Auto allocate'} = \&Auto_allocate; *{'Mount point'} = \&Mount_point; diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm index 939e61283..6862225c5 100644 --- a/perl-install/diskdrake/removable.pm +++ b/perl-install/diskdrake/removable.pm @@ -19,7 +19,7 @@ sub main { } } -sub actions { +sub actions() { ( N_("Mount point") => \&mount_point, N_("Options") => \&options, diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index 51152d991..8197d9ed1 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -261,11 +261,11 @@ sub add_smbnfs { $kind; } -sub nfs2kind { +sub nfs2kind() { network::nfs->new({ type => 'nfs', name => 'NFS', val => $all_hds->{nfss}, no_auto => 1 }); } -sub smb2kind { +sub smb2kind() { network::smb->new({ type => 'smb', name => 'Samba', val => $all_hds->{smbs}, no_auto => 1 }); } diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 40ee13b21..618c58f7d 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -298,7 +298,7 @@ sub auto_fs() { grep { chop; $_ && !/nodev/ } cat_("/etc/filesystems"); } -sub mount_options { +sub mount_options() { my %non_defaults = ( sync => 'async', noatime => 'atime', noauto => 'auto', ro => 'rw', user => 'nouser', nodev => 'dev', noexec => 'exec', nosuid => 'suid', diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 978735b2a..c3303c83e 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -78,7 +78,7 @@ sub typeOfPart { #-###################################################################################### #- Functions #-###################################################################################### -sub empty_all_hds { +sub empty_all_hds() { { hds => [], lvms => [], raids => [], loopbacks => [], raw_hds => [], nfss => [], smbs => [], davs => [], special => [] }; } sub recompute_loopbacks { diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index a89357b16..ba3248469 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -11,7 +11,7 @@ our ($version, $sbindir, $bindir) = ("9.1.0", "/usr/sbin", "/usr/bin"); my @devices = detect_devices::probeall(1); # Update me each time you handle one more devices class (aka configurator) -sub unknown { +sub unknown() { grep { $_->{media_type} !~ /BRIDGE|class\|Mouse|DISPLAY|Hub|MEMORY_RAM|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|NETWORK|Printer|SERIAL_(USB|SMBUS)|STORAGE_(IDE|OTHER|SCSI)|tape/ && $_->{driver} !~ /^(ohci1394|scanner|usbvision|mod_quickcam)$|Mouse:USB|class\|Mouse|Removable:zip|www.linmodems.org|nvnet/ && $_->{type} ne 'network' diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 154f3ba29..aff29c8e0 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -288,7 +288,7 @@ The current driver for your \"%s\" sound card is \"%s\" ", $device->{description } -sub configure_sound_slots { +sub configure_sound_slots() { each_index { modules::add_alias("sound-slot-$::i", $_->{driver}); } detect_devices::getSoundDevices(); diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 4f268c3e2..e019b8538 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -302,7 +302,7 @@ sub exitInstall { } -sub start_i810fb { +sub start_i810fb() { my ($vga) = cat_('/proc/cmdline') =~ /vga=(\S+)/; return if !$vga || listlength(cat_('/proc/fb')); diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index a43dc80c8..0ff254444 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -188,13 +188,13 @@ sub clean_postinstall_rpms() { #-###################################################################################### #- Functions #-###################################################################################### -sub getNextStep { +sub getNextStep() { my ($s) = $::o->{steps}{first}; $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done} || !$::o->{steps}{$s}{reachable}; $s; } -sub spawnShell { +sub spawnShell() { return if $::o->{localInstall} || $::testing; -x "/bin/sh" or die "cannot open shell - /bin/sh doesn't exist"; @@ -280,7 +280,6 @@ sub setPackages { #- open rpm db according to right mode needed. $o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix}, $rebuild_needed); - pkgs::getDeps($o->{prefix}, $o->{packages}); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1); @@ -289,9 +288,6 @@ sub setPackages { pkgs::selectPackage($o->{packages}, pkgs::bestKernelPackage($o->{packages}) || die("missing kernel package"), 1); - #- must be done after selecting base packages (to save memory) - pkgs::getProvides($o->{packages}); - #- must be done after getProvides pkgs::read_rpmsrate($o->{packages}, getFile("Mandrake/base/rpmsrate")); ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{meta_class}); @@ -507,7 +503,7 @@ sub write_smb_conf { "); } -sub killCardServices { +sub killCardServices() { my $pid = chomp_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); #- send SIGTERM } @@ -609,8 +605,8 @@ sub install_urpmi { hdlist: hdlist.$name.cz with_hdlist: ../base/" . ($_->{update} ? "hdlist.cz" : $_->{hdlist}) . ($need_list ? " list: list.$name" : "") . ($dir =~ /removable:/ && " - removable: /dev/cdrom") . (" - update") . " + removable: /dev/cdrom") . " + update" . " } "; @@ -1111,7 +1107,7 @@ sub remove_unused { } } -sub remove_bigseldom_used { +sub remove_bigseldom_used() { log::l("remove_bigseldom_used"); $::testing and return; remove_unused(); diff --git a/perl-install/install_messages.pm b/perl-install/install_messages.pm index b3d4af2b3..ccb54229c 100644 --- a/perl-install/install_messages.pm +++ b/perl-install/install_messages.pm @@ -5,7 +5,7 @@ use strict; use common; -sub main_license { +sub main_license() { N("Introduction The operating system and the different components available in the Mandrake Linux distribution @@ -85,14 +85,14 @@ For any question on this document, please contact MandrakeSoft S.A. "); } -sub warning_about_patents { +sub warning_about_patents() { "Warning: Free Software may not necessarily be patent free, and some Free Software included may be covered by patents in your country. For example, the MP3 decoders included may require a licence for further usage (see http://www.mp3licensing.com for more details). If you are unsure if a patent may be applicable to you, check your local laws."; } -sub com_license { +sub com_license() { N(" Warning @@ -124,7 +124,7 @@ copyright laws applicable to software programs. "); } -sub install_completed { +sub install_completed() { N("Congratulations, installation is complete. Remove the boot media and press return to reboot. diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 4d0b362c7..6de423d50 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -78,7 +78,11 @@ Continue at your own risk."), formatError($@) ]) if $@; } } -sub errorInStep($$) { print "error :(\n"; c::_exit(1) } +sub errorInStep { + my ($_o, $_err) = @_; + print "error :(\n"; + c::_exit(1); +} sub kill_action {} #-###################################################################################### diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm index b2f729f05..a4a92f1e3 100644 --- a/perl-install/install_steps_auto_install.pm +++ b/perl-install/install_steps_auto_install.pm @@ -90,9 +90,12 @@ sub ask_warn { log::l(ref($_[1]) ? join " ", @{$_[1]} : $_[1]); } -sub wait_message {} +sub wait_message { + my ($_o, $_title, $_message) = @_; +} sub errorInStep { + my ($_o, $_err) = @_; print "error :(\n"; print "switch to console f2 for a shell\n"; print "Press to reboot\n"; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 8158c23e0..46ae5bf15 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -35,7 +35,7 @@ use log; #-###################################################################################### #- In/Out Steps Functions #-###################################################################################### -sub errorInStep($$) { +sub errorInStep { my ($o, $err) = @_; $o->ask_warn(N("Error"), [ N("An error occurred"), formatError($err) ]); } @@ -45,7 +45,9 @@ sub kill_action { $o->kill; } -sub charsetChanged {} +sub charsetChanged { + my ($_o) = @_; +} #-###################################################################################### #- Steps Functions diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 46a325631..603b5d81a 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -107,16 +107,16 @@ sub vnew { require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function undef *log::l; - *log::l = sub {}; # otherwise, it will bother us :( + *log::l = sub() {}; # otherwise, it will bother us :( require interactive::newt; interactive::newt->new; } -sub enter_console {} -sub leave_console {} -sub suspend {} -sub resume {} -sub end {} +sub enter_console() {} +sub leave_console() {} +sub suspend() {} +sub resume() {} +sub end() {} sub exit { exit($_[0]) } #-###################################################################################### @@ -444,7 +444,7 @@ sub wait_message { $b; } -sub kill {} +sub kill() {} diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm index a4f9e3bfd..27ae507d8 100644 --- a/perl-install/interactive/http.pm +++ b/perl-install/interactive/http.pm @@ -17,7 +17,7 @@ my $uid; my $pipe_r = "/tmp/interactive_http_r"; my $pipe_w = "/tmp/interactive_http_w"; -sub open_stdout { +sub open_stdout() { open STDOUT, ">$pipe_w" or die; $| = 1; print CGI::header(); @@ -31,12 +31,12 @@ sub cont_stdout { $no_header = 0; } -sub new_uid { +sub new_uid() { my ($s, $ms) = gettimeofday(); $s * 256 + $ms % 256; } -sub new() { +sub new { open_stdout(); bless {}, $_[0]; } @@ -49,7 +49,7 @@ sub end() { close STDOUT; unlink $pipe_r, $pipe_w; } -sub exit() { end(); exit($_[1]) } +sub exit { end(); exit($_[1]) } END { end() } sub ask_fromW { diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm index b94ae9193..087b19112 100644 --- a/perl-install/interactive/newt.pm +++ b/perl-install/interactive/newt.pm @@ -14,7 +14,7 @@ use Newt::Newt; #- !! provides Newt and not Newt::Newt my ($width, $height) = (80, 25); my @wait_messages; -sub new() { +sub new { Newt::Init(); Newt::Cls(); Newt::SetSuspendCallback(); @@ -23,12 +23,12 @@ sub new() { bless {}, $_[0]; } -sub enter_console { Newt::Suspend() } -sub leave_console { Newt::Resume() } -sub suspend { Newt::Suspend() } -sub resume { Newt::Resume() } +sub enter_console() { Newt::Suspend() } +sub leave_console() { Newt::Resume() } +sub suspend() { Newt::Suspend() } +sub resume() { Newt::Resume() } sub end() { Newt::Finished() } -sub exit() { end(); exit($_[1]) } +sub exit { end(); exit($_[1]) } END { end() } sub messages { diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm index a37b08c8e..209310339 100644 --- a/perl-install/interactive/stdio.pm +++ b/perl-install/interactive/stdio.pm @@ -11,7 +11,7 @@ use common; $| = 1; -sub readln { +sub readln() { my $l = ; chomp $l; $l; diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 3e65df61e..a4239f73b 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -261,9 +261,9 @@ my %grp_toggles = ( #-###################################################################################### #- Functions #-###################################################################################### -sub KEYBOARDs { keys %keyboards } +sub KEYBOARDs() { keys %keyboards } sub KEYBOARD2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] } -sub keyboards { map { { KEYBOARD => $_ } } keys %keyboards } +sub keyboards() { map { { KEYBOARD => $_ } } keys %keyboards } sub keyboard2one { my ($keyboard, $nb) = @_; ref $keyboard or internal_error(); @@ -351,7 +351,7 @@ sub lang2keyboard { { KEYBOARD => $keyboards{$kb} ? $kb : 'us' }; #- handle incorrect keyboard mapping to us. } -sub from_usb { +sub from_usb() { return if $::noauto; my ($usb_kbd) = detect_devices::usbKeyboards() or return; my $country_code = detect_devices::usbKeyboard2country_code($usb_kbd) or return; @@ -478,7 +478,7 @@ sub write { } } -sub read { +sub read() { my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return; if (!$keyboard{KEYBOARD}) { add2hash(\%keyboard, grep { keyboard2kmap($_) eq $keyboard{KEYTABLE} } keyboards()); @@ -488,7 +488,7 @@ sub read { keyboard2text(\%keyboard) ? \%keyboard : {}; } -sub check { +sub check() { require lang; $^W = 0; diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 0e14abe15..6a13bad9a 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -123,7 +123,7 @@ sub list_langs { $options{exclude_non_installed} ? grep { -e "/usr/share/locale/".l2locale($_)."/LC_CTYPE" } @l : @l; } -sub text_direction_rtl { N("default:LTR") eq "default:RTL" } +sub text_direction_rtl() { N("default:LTR") eq "default:RTL" } #- key: country name (that should be YY in xx_YY locale) @@ -978,7 +978,7 @@ sub load_mo { #- used in Makefile during "make get_needed_files" -sub console_font_files { +sub console_font_files() { map { -e $_ ? $_ : "$_.gz" } (map { "/usr/lib/kbd/consolefonts/$_.psf" } uniq grep { $_ } map { $_->[0] } values %charsets), (map { -e $_ ? $_ : "$_.sfm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep { $_ } map { $_->[1] } values %charsets), @@ -1026,11 +1026,11 @@ sub during_install__l2charset { uc($c); } -sub get_unneeded_png_lang_files { +sub get_unneeded_png_lang_files() { print join(' ', map { m|(langs/lang-(.*)\.png)|; if_(!member($2, list_langs()), $1) } glob("pixmaps/langs/lang-*.png")); } -sub check { +sub check() { $^W = 0; my $ok = 1; my $warn = sub { diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm index d972339c2..45505bda4 100644 --- a/perl-install/loopback.pm +++ b/perl-install/loopback.pm @@ -104,7 +104,7 @@ sub verifFile { undef; } -sub prepare_boot { +sub prepare_boot() { my $r = readlink "$::prefix/boot"; unlink "$::prefix/boot"; mkdir_p("$::prefix/boot"); diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 93209cca8..12c685e97 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -30,7 +30,7 @@ sub cylinder_size { init(); -sub init { +sub init() { eval { modules::load('lvm-mod') }; run_program::run('vgscan') if !-e '/etc/lvmtab'; run_program::run('vgchange', '-a', 'y'); diff --git a/perl-install/modules.pm b/perl-install/modules.pm index b5b784537..b458f706a 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -11,7 +11,7 @@ use list_modules; %conf = (); -sub modules_descriptions { +sub modules_descriptions() { my $f = '/lib/modules/' . c::kernel_version() . '/modules.description'; -e $f or $f = '/lib/modules.description'; map { /(\S+)\s+(.*)/ } cat_($f); @@ -130,7 +130,7 @@ sub probe_category { } detect_devices::probeall($b_probe_type); } -sub load_ide { +sub load_ide() { eval { load("ide-cd") } } @@ -347,10 +347,10 @@ sub write_pcmcia { #-############################################################################### #- internal functions #-############################################################################### -sub loaded_modules { +sub loaded_modules() { map { /(\S+)/ } cat_("/proc/modules"); } -sub read_already_loaded { +sub read_already_loaded() { when_load($_) foreach reverse loaded_modules(); } @@ -372,7 +372,7 @@ sub when_load { } } -sub cz_file { +sub cz_file() { "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz-" . c::kernel_version(); } diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 6a2cbe87a..63787d556 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -128,7 +128,7 @@ my %mouse_btn_keymap = ( 117 => "Num: =", 96 => "Enter", ); -sub ppc_one_button_keys { keys %mouse_btn_keymap } +sub ppc_one_button_keys() { keys %mouse_btn_keymap } sub ppc_one_button_key2text { $mouse_btn_keymap{$_[0]} } sub raw2mouse { @@ -139,7 +139,7 @@ sub raw2mouse { +{ %l, type => $type }; } -sub fullnames { +sub fullnames() { map_each { my $type = $::a; grep { $_ } map { @@ -176,7 +176,7 @@ sub serial_port2text { $_[0] =~ /ttyS(\d+)/ ? "$_[0] / COM" . ($1 + 1) : $_[0]; } -sub read { +sub read() { my %mouse = getVarsFromSh "$::prefix/etc/sysconfig/mouse"; eval { add2hash_(\%mouse, fullname2mouse($mouse{FULLNAME})) }; $mouse{nbuttons} ||= $mouse{XEMU3} eq "yes" ? 2 : $mouse{WHEEL} eq "yes" ? 5 : 3; @@ -212,7 +212,7 @@ sub write { } } -sub mouseconfig { +sub mouseconfig() { my ($t, $mouse, @wacom); #- Whouah! probing all devices from ttyS0 to ttyS3 once a time! diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 8834d7ba6..0028ecce7 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -235,7 +235,7 @@ sub isdn_ask_info { ask_info2($isdn, $netc); } -sub isdn_ask_protocol { +sub isdn_ask_protocol() { my @toto = ( { description => $::expert ? N("European protocol (EDSS1)") : N("European protocol"), protokol => 2 }, @@ -327,7 +327,7 @@ sub isdn_detect_backend { } } -sub isdn_get_list { +sub isdn_get_list() { map { $_->{description} } @isdn::isdndata; } diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 8ef994583..3ba28075f 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -414,7 +414,7 @@ sub add_profile { cp_af($cmd1, $cmd2); } -sub get_profiles { +sub get_profiles() { map { if_(/drakconnect_conf\.(.*)/, $1) } all("$::prefix/etc/sysconfig/network-scripts"); } @@ -463,7 +463,7 @@ my $file = "$dir/draknet$suffix"; getVarsFromSh("$dir/drakconnect_conf"); } -sub get_net_device { +sub get_net_device() { #${{ read_raw_net_conf() }}{InternetInterface}; my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up"; my $network_file = "/etc/sysconfig/network"; diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 083c90ae3..b41bb636a 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -46,7 +46,7 @@ sub get_config_file { map { [ split ' ' ] } grep { !/^#/ } cat_("$::prefix/etc/shorewall/$file"); } -sub default_interfaces { +sub default_interfaces() { my %conf; my @l = detect_devices::getNet() or return; @@ -59,7 +59,7 @@ sub default_interfaces { \%conf; } -sub read { +sub read() { my %conf; $conf{disabled} = !glob_("$::prefix/etc/rc3.d/S*shorewall"); diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index c7175a0d3..19921b5d0 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -39,7 +39,7 @@ sub unquotify { $$word =~ s/^(['"]?)(.*)\1$/$2/; } -sub read_secret_backend { +sub read_secret_backend() { my $conf; foreach my $i ("pap-secrets", "chap-secrets") { foreach (cat_("$prefix/etc/ppp/$i")) { @@ -102,9 +102,9 @@ Try to reconfigure your connection."); $up; } -sub connect_backend { run_program::rooted($prefix, "$connect_prog &") } +sub connect_backend() { run_program::rooted($prefix, "$connect_prog &") } -sub disconnect_backend { run_program::rooted($prefix, "$disconnect_file &") } +sub disconnect_backend() { run_program::rooted($prefix, "$disconnect_file &") } sub read_providers_backend { my ($file) = @_; map { /(.*?)=>/ } catMaybeCompressed($file) } @@ -141,7 +141,7 @@ sub ask_info2 { 1; } -sub detect_timezone { +sub detect_timezone() { my %tmz2country = ( 'Europe/Paris' => N("France"), 'Europe/Amsterdam' => N("Netherlands"), @@ -170,7 +170,7 @@ sub type2interface { [ lan => 'eth' ]; } -sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 } +sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 } my $kid_pipe; sub connected_bg { @@ -235,7 +235,7 @@ sub test_connected { return $current_connection_status; } -sub connected2 { +sub connected2() { if ($kid_pid = open(my $kid_to_read, "-|")) { #- parent $kid_to_read; @@ -247,10 +247,10 @@ sub connected2 { } } -sub disconnected {} +sub disconnected() {} -sub write_initscript { +sub write_initscript() { $::testing and return; output_with_perm("$prefix/etc/rc.d/init.d/internet", 0755, sprintf(<<'EOF', $connect_file, $connect_file, $disconnect_file, $disconnect_file)); diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index a421c603c..5c50333dc 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -215,7 +215,7 @@ my %fs2type = reverse %type2fs; 1; -sub important_types { +sub important_types() { my @l = (@important_types, if_($::expert, @important_types2, sort values %types)); difference2(\@l, \@bad_types); } diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm index 4b78f193c..bb1cb82a4 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -63,7 +63,7 @@ $_ = join('', @$_) foreach $main_format, $partitionEntry_format, $guid_format; my $magic = "EFI PART"; -sub generate_guid { +sub generate_guid() { my $tmp; open(my $F, devices::make("random")) or die "Could not open /dev/random for GUID generation"; read $F, $tmp, psizeof($guid_format); diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3b3631e93..e780927cc 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -442,21 +442,6 @@ sub psUsingHdlist { $m; } -#OBSOLETED TODO -sub getOtherDeps($$) { - return; #TODO -} - -#OBSOLETED TODO -sub getDeps { - return; #TODO -} - -#OBSOLETED TODO -sub getProvides($) { - return; #TODO -} - sub read_rpmsrate { my ($packages, $f) = @_; my $line_nb = 0; diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 82fb4e0db..df2cb6cde 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -13,7 +13,7 @@ use devices; use modules; use fs; -sub max_nb { 31 } +sub max_nb() { 31 } sub nb { my ($nb) = @_; @@ -174,7 +174,7 @@ sub inactivate_and_dirty { $part->{notFormatted} = 1; $part->{isFormatted} = 0; } -sub active_mds { +sub active_mds() { map { if_(/^(md\d+) /, $1) } cat_("/proc/mdstat"); } diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm index a742d7c26..6f8ae9445 100644 --- a/perl-install/resize_fat/directory.pm +++ b/perl-install/resize_fat/directory.pm @@ -28,7 +28,7 @@ my $psizeof_format = psizeof($format); 1; -sub entry_size { $psizeof_format } +sub entry_size() { $psizeof_format } #- call `f' for each entry of the directory #- if f return true, then modification in the entry are taken back diff --git a/perl-install/sbus_probing/main.pm b/perl-install/sbus_probing/main.pm index 96d50663b..1bd20fe30 100644 --- a/perl-install/sbus_probing/main.pm +++ b/perl-install/sbus_probing/main.pm @@ -127,7 +127,7 @@ sub prom_walk { $nextnode = c::prom_getsibling($node) and prom_walk($sbus_probed, $nextnode, $sbus, $ebus); } -sub probe { +sub probe() { eval { modules::load("openprom") } if arch() =~ /sparc/; my $root_node = c::prom_open() or return; my @l; diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index cab0f344e..8234ee218 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -71,7 +71,7 @@ sub add2dll { output("$sanedir/dll.conf", @dllconf); } -sub configured { +sub configured() { my @res; # Run "scanimage -L", to find the scanners which are already working local *LIST; @@ -309,7 +309,7 @@ sub readScannerDB { \%cards; } -sub updateScannerDBfromUsbtable { +sub updateScannerDBfromUsbtable() { substInFile { s/END// } "ScannerDB"; my $to_add = "# generated from usbtable by scannerdrake\n"; foreach (cat_("$ENV{SHARE_PATH}/ldetect-lst/usbtable")) { diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm index 234fb2d4b..cc4dac187 100644 --- a/perl-install/security/level.pm +++ b/perl-install/security/level.pm @@ -5,7 +5,7 @@ use common; use run_program; -sub level_list { +sub level_list() { ( 0 => N("Welcome To Crackers"), 1 => N("Poor"), @@ -19,10 +19,10 @@ sub level_list { sub to_string { +{ level_list() }->{$_[0]} } sub from_string { +{ reverse level_list() }->{$_[0]} || 2 } -sub get_string { to_string(get() || 2) } -sub get_common_list { map { to_string($_) } (2, 3, 4) } +sub get_string() { to_string(get() || 2) } +sub get_common_list() { map { to_string($_) } (2, 3, 4) } -sub get { +sub get() { cat_("$::prefix/etc/profile") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec cat_("$::prefix/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec ${{ getVarsFromSh("$::prefix/etc/sysconfig/msec") }}{SECURE_LEVEL} || #- 8.2 msec diff --git a/perl-install/services.pm b/perl-install/services.pm index 8042b4e42..7e5850d6a 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -276,7 +276,7 @@ sub doit { #- returns: #--- the listref of installed services #--- the listref of "on" services -sub services { +sub services() { local $ENV{LANGUAGE} = 'C'; my @raw_l = map { chomp; $_ } run_program::rooted_get_stdout($::prefix, '/sbin/chkconfig', '--list'); my @l; @@ -339,7 +339,7 @@ sub is_service_running ($) { sub starts_on_boot { my ($service) = @_; - my (undef, $on_services) = services($::prefix); + my (undef, $on_services) = services(); member($service, @$on_services); } diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 6a08e4f8b..0e8f2b636 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -50,7 +50,7 @@ sub wait_msg { sub remove_wait_msg { $_[0]->destroy } -sub basic_seclevel_explanations { +sub basic_seclevel_explanations() { my $text = new Gtk2::TextView; $text->set_editable(0); gtktext_insert($text, @@ -115,7 +115,7 @@ my $common_opts = { col_spacings => 10, row_spacings => 5 }; my $seclevel_entry; $notebook->append_page(gtkshow(gtkpack(new Gtk2::VBox(0, 0), - basic_seclevel_explanations($msec), + basic_seclevel_explanations(), create_packtable($common_opts, [ do { diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 429df9e7c..02ddb5abb 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -330,7 +330,7 @@ $_->hide foreach $module_cfg_button, $config_button; # hide buttons while no dev $w->main; -sub quit_global { +sub quit_global() { kill(15, $pid) if $pid; setVarsInSh($conffile, \%options); ugtk2->exit(0); diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm index 84c4d685f..dbce11f8d 100644 --- a/perl-install/timezone.pm +++ b/perl-install/timezone.pm @@ -16,7 +16,7 @@ sub getTimeZones { sort @l; } -sub read { +sub read() { my %t = getVarsFromSh("$::prefix/etc/sysconfig/clock") or return {}; { timezone => $t{ZONE}, UTC => text2bool($t{UTC}) }; } @@ -127,7 +127,7 @@ sub fuzzyChoice { } sub bestTimezone { $c2t{fuzzyChoice($_[0])} || 'GMT' } -sub ntp_servers { +sub ntp_servers() { q(Australia (ntp.adelaide.edu.au) Australia (ntp.saard.net) Australia (time.esec.com.au) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 7e023d74a..4a069eb55 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -55,7 +55,7 @@ $border = 5; # you're building. sub gtkdestroy { $_[0] and $_[0]->destroy } -sub gtkflush { Gtk2->update_ui } +sub gtkflush() { Gtk2->update_ui } sub gtkhide { $_[0]->hide; $_[0] } sub gtkmove { $_[0]->window->move($_[1], $_[2]); $_[0] } sub gtkpack { gtkpowerpack(1, 1, @_) } @@ -145,7 +145,7 @@ sub gtkradio { map { gtkset_active($radio = Gtk2::RadioButton->new($radio ? $radio->get_group : undef, $_), $_ eq $def) } @_; } -sub gtkroot { +sub gtkroot() { my $root if 0; $root ||= Gtk2::Gdk::Window->foreign_new(Gtk2::Gdk->ROOT_WINDOW); } @@ -622,7 +622,8 @@ sub fill_tiled_coords { sub fill_tiled { my ($widget, $pixbuf) = @_; - fill_tiled_coords($widget, $pixbuf, $pixbuf->get_width, $pixbuf->get_height, $widget->window->get_size); + my ($window_width, $window_height) = $widget->window->get_size; + fill_tiled_coords($widget, $pixbuf, $pixbuf->get_width, $pixbuf->get_height, $window_width, $window_height); } sub add2notebook { @@ -727,7 +728,7 @@ sub gtkset_background { } sub add_icon_path { push @icon_paths, @_ } -sub icon_paths { +sub icon_paths() { (@icon_paths, (exists $ENV{SHARE_PATH} ? ($ENV{SHARE_PATH}, "$ENV{SHARE_PATH}/icons", "$ENV{SHARE_PATH}/libDrakX/pixmaps") : ()), "/usr/lib/libDrakX/icons", "pixmaps", 'standalone/icons', '/usr/share/rpmdrake/icons'); } @@ -877,7 +878,7 @@ sub sync { show($o); flush(); } -sub flush { gtkflush() } +sub flush() { gtkflush() } sub exit { gtkset_mousecursor_normal(); #- for restoring a normal in any case flush(); -- cgit v1.2.1