diff options
108 files changed, 95 insertions, 109 deletions
diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm index 819998617..0042d2bc2 100644 --- a/kernel/list_modules.pm +++ b/kernel/list_modules.pm @@ -1,4 +1,4 @@ -package list_modules; # $Id: list_modules.pm 268192 2010-05-04 09:37:32Z pterjan $ +package list_modules; use MDK::Common; diff --git a/mdk-stage1/Makefile b/mdk-stage1/Makefile index d3f16c12b..b3a683557 100644 --- a/mdk-stage1/Makefile +++ b/mdk-stage1/Makefile @@ -2,8 +2,6 @@ # # mdk-stage1 - the program that will load second-stage install # - # $Id: Makefile 271082 2010-10-13 18:55:00Z tv $ - # # Pixel (pixel) (mostly done by Guillaume Cottenceau) # # Copyright 2000-2004 Mandriva diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index ea45feab7..518411a28 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -1,4 +1,4 @@ -package authentication; # $Id: authentication.pm 269894 2010-06-05 20:50:23Z tv $ +package authentication; use common; diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 3d4741104..4d0005cd7 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1,4 +1,4 @@ -package bootloader; # $Id: bootloader.pm 267511 2010-04-12 12:34:45Z cfergeau $ +package bootloader; use diagnostics; use strict; diff --git a/perl-install/c.pm b/perl-install/c.pm index 8022d0095..8312c0d79 100644 --- a/perl-install/c.pm +++ b/perl-install/c.pm @@ -1,4 +1,4 @@ -package c; # $Id: c.pm 210307 2004-12-13 15:56:00Z tvignaud $ +package c; use vars qw($AUTOLOAD); diff --git a/perl-install/c/stuff.pm b/perl-install/c/stuff.pm index e9cdbc3bd..72b5b0bd3 100644 --- a/perl-install/c/stuff.pm +++ b/perl-install/c/stuff.pm @@ -1,4 +1,4 @@ -package c::stuff; # $Id: stuff.pm 214710 2005-12-15 09:14:01Z prigaux $ +package c::stuff; use strict; use vars qw($VERSION @ISA); diff --git a/perl-install/common.pm b/perl-install/common.pm index 7a89b8848..c8ad7a2a6 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -1,4 +1,4 @@ -package common; # $Id: common.pm 245955 2008-09-18 14:19:04Z pixel $ +package common; use MDK::Common; use diagnostics; diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index a703efc33..c88277691 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -1,4 +1,4 @@ -package detect_devices; # $Id: detect_devices.pm 267151 2010-03-30 14:27:41Z blino $ +package detect_devices; use diagnostics; use strict; diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 7628c257e..f72efe8e6 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -1,4 +1,4 @@ -package devices; # $Id: devices.pm 270810 2010-09-09 08:11:23Z bor $ +package devices; use diagnostics; use strict; diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm index 8ad2421c7..317452f72 100644 --- a/perl-install/diskdrake/dav.pm +++ b/perl-install/diskdrake/dav.pm @@ -1,4 +1,4 @@ -package diskdrake::dav; # $Id: dav.pm 259328 2009-08-17 12:57:51Z alefebvre $ +package diskdrake::dav; use diagnostics; use strict; diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 43e22fe43..63d52ecb2 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -1,4 +1,4 @@ -package diskdrake::hd_gtk; # $Id: hd_gtk.pm 269772 2010-06-03 11:51:31Z pterjan $ +package diskdrake::hd_gtk; use diagnostics; use strict; diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 7cbd1c5b5..9356a1930 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1,4 +1,4 @@ -package diskdrake::interactive; # $Id: interactive.pm 269771 2010-06-03 11:50:24Z pterjan $ +package diskdrake::interactive; use diagnostics; use strict; diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm index 0ed8e0f80..f3b73ed4b 100644 --- a/perl-install/diskdrake/removable.pm +++ b/perl-install/diskdrake/removable.pm @@ -1,4 +1,4 @@ -package diskdrake::removable; # $Id: removable.pm 215411 2007-04-25 12:26:16Z pixel $ +package diskdrake::removable; use diagnostics; use strict; diff --git a/perl-install/diskdrake/resize_ext2.pm b/perl-install/diskdrake/resize_ext2.pm index ca222b35a..a09cdb542 100644 --- a/perl-install/diskdrake/resize_ext2.pm +++ b/perl-install/diskdrake/resize_ext2.pm @@ -1,4 +1,4 @@ -package diskdrake::resize_ext2; # $Id: resize_ext2.pm 214945 2006-02-13 16:10:35Z tvignaud $ +package diskdrake::resize_ext2; use diagnostics; use strict; diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index 61bcab168..b2417ce83 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -1,4 +1,4 @@ -package diskdrake::smbnfs_gtk; # $Id: smbnfs_gtk.pm 243679 2008-07-29 11:55:58Z tv $ +package diskdrake::smbnfs_gtk; use diagnostics; use strict; diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index f81cac37b..5ca4b24fc 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -1,4 +1,4 @@ -package do_pkgs; # $Id: do_pkgs.pm 263860 2009-11-30 15:20:14Z blino $ +package do_pkgs; =head1 SYNOPSYS diff --git a/perl-install/fs.pm b/perl-install/fs.pm index a36027e48..d2a8fd1fc 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -1,4 +1,4 @@ -package fs; # $Id: fs.pm 259325 2009-08-17 12:51:59Z alefebvre $ +package fs; use diagnostics; use strict; diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm index 7abaa61af..fb80a32fc 100644 --- a/perl-install/fs/any.pm +++ b/perl-install/fs/any.pm @@ -1,4 +1,4 @@ -package fs::any; # $Id: any.pm 269745 2010-06-02 11:21:42Z pterjan $ +package fs::any; use diagnostics; use strict; diff --git a/perl-install/fs/dmcrypt.pm b/perl-install/fs/dmcrypt.pm index 69f32920d..eddf669ef 100644 --- a/perl-install/fs/dmcrypt.pm +++ b/perl-install/fs/dmcrypt.pm @@ -1,4 +1,4 @@ -package fs::dmcrypt; # $Id: $ +package fs::dmcrypt; use diagnostics; use strict; diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm index ee1674ffc..996dbbc14 100644 --- a/perl-install/fs/dmraid.pm +++ b/perl-install/fs/dmraid.pm @@ -1,4 +1,4 @@ -package fs::dmraid; # $Id: dmraid.pm 265309 2010-01-27 00:28:23Z pterjan $ +package fs::dmraid; use diagnostics; use strict; diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index c331c398a..659fbad04 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -1,4 +1,4 @@ -package fs::format; # $Id: format.pm 268842 2010-05-17 06:54:44Z pterjan $ +package fs::format; use diagnostics; use strict; diff --git a/perl-install/fs/get.pm b/perl-install/fs/get.pm index 5582cf86e..cbdf093dd 100644 --- a/perl-install/fs/get.pm +++ b/perl-install/fs/get.pm @@ -1,4 +1,4 @@ -package fs::get; # $Id: get.pm 245972 2008-09-18 17:00:11Z pixel $ +package fs::get; use diagnostics; use strict; diff --git a/perl-install/fs/loopback.pm b/perl-install/fs/loopback.pm index 8620e6068..8d0c729ec 100644 --- a/perl-install/fs/loopback.pm +++ b/perl-install/fs/loopback.pm @@ -1,4 +1,4 @@ -package fs::loopback; # $Id: loopback.pm 212860 2005-06-28 09:12:16Z prigaux $ +package fs::loopback; use diagnostics; use strict; diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index aee0ea97a..85f6fcc07 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -1,4 +1,4 @@ -package fs::mount; # $Id: mount.pm 267516 2010-04-12 16:40:47Z pterjan $ +package fs::mount; use diagnostics; use strict; diff --git a/perl-install/fs/mount_options.pm b/perl-install/fs/mount_options.pm index 4fd778b62..2ec6bb59a 100644 --- a/perl-install/fs/mount_options.pm +++ b/perl-install/fs/mount_options.pm @@ -1,4 +1,4 @@ -package fs::mount_options; # $Id: mount_options.pm 268841 2010-05-17 06:52:12Z pterjan $ +package fs::mount_options; use diagnostics; use strict; diff --git a/perl-install/fs/mount_point.pm b/perl-install/fs/mount_point.pm index 282b28ab6..7918ea08f 100644 --- a/perl-install/fs/mount_point.pm +++ b/perl-install/fs/mount_point.pm @@ -1,4 +1,4 @@ -package fs::mount_point; # $Id: mount_point.pm 269270 2010-05-24 09:55:20Z pterjan $ +package fs::mount_point; use diagnostics; use strict; diff --git a/perl-install/fs/partitioning.pm b/perl-install/fs/partitioning.pm index cf85aaa33..27b5220c9 100644 --- a/perl-install/fs/partitioning.pm +++ b/perl-install/fs/partitioning.pm @@ -1,4 +1,4 @@ -package fs::partitioning; # $Id: partitioning.pm 243679 2008-07-29 11:55:58Z tv $ +package fs::partitioning; use diagnostics; use strict; diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 1e7ea6c59..7294350ab 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -1,4 +1,4 @@ -package fs::partitioning_wizard; # $Id: partitioning_wizard.pm 269969 2010-06-09 13:01:09Z pterjan $ +package fs::partitioning_wizard; use diagnostics; use strict; diff --git a/perl-install/fs/proc_partitions.pm b/perl-install/fs/proc_partitions.pm index 8a1bc8ab0..990e8ce31 100644 --- a/perl-install/fs/proc_partitions.pm +++ b/perl-install/fs/proc_partitions.pm @@ -1,4 +1,4 @@ -package fs::proc_partitions; # $Id: proc_partitions.pm 232285 2007-12-03 16:41:16Z pixel $ +package fs::proc_partitions; use common; diff --git a/perl-install/fs/remote.pm b/perl-install/fs/remote.pm index efc630d4c..ea5944a25 100644 --- a/perl-install/fs/remote.pm +++ b/perl-install/fs/remote.pm @@ -1,4 +1,4 @@ -package fs::remote; # $Id: remote.pm 215411 2007-04-25 12:26:16Z pixel $ +package fs::remote; use strict; use diagnostics; diff --git a/perl-install/fs/remote/davfs.pm b/perl-install/fs/remote/davfs.pm index 6c31b9ea6..5044b6e60 100644 --- a/perl-install/fs/remote/davfs.pm +++ b/perl-install/fs/remote/davfs.pm @@ -1,4 +1,4 @@ -package fs::remote::davfs; # $Id: smb.pm 231184 2007-10-24 14:36:29Z pixel $ +package fs::remote::davfs; use strict; use diagnostics; diff --git a/perl-install/fs/remote/nfs.pm b/perl-install/fs/remote/nfs.pm index a57ed6212..f7a98cb69 100644 --- a/perl-install/fs/remote/nfs.pm +++ b/perl-install/fs/remote/nfs.pm @@ -1,4 +1,4 @@ -package fs::remote::nfs; # $Id: nfs.pm 254157 2009-03-17 16:13:42Z eugeni $ +package fs::remote::nfs; use strict; use diagnostics; diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm index 616636807..d440fc174 100644 --- a/perl-install/fs/remote/smb.pm +++ b/perl-install/fs/remote/smb.pm @@ -1,4 +1,4 @@ -package fs::remote::smb; # $Id: smb.pm 258615 2009-07-27 06:26:03Z pterjan $ +package fs::remote::smb; use strict; use diagnostics; diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 01f9ad1c8..61b1a48dc 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -1,4 +1,4 @@ -package fs::type; # $Id: type.pm 269283 2010-05-24 15:31:58Z pterjan $ +package fs::type; use diagnostics; use strict; diff --git a/perl-install/fs/wild_device.pm b/perl-install/fs/wild_device.pm index 8b18432dd..ff5a32253 100644 --- a/perl-install/fs/wild_device.pm +++ b/perl-install/fs/wild_device.pm @@ -1,4 +1,4 @@ -package fs::wild_device; # $Id: wild_device.pm 268572 2010-05-11 16:42:46Z pterjan $ +package fs::wild_device; use diagnostics; use strict; diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index d5ed7c346..8f5d600b6 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -1,4 +1,4 @@ -package fsedit; # $Id: fsedit.pm 269284 2010-05-24 15:36:50Z pterjan $ +package fsedit; use diagnostics; use strict; diff --git a/perl-install/handle_configs.pm b/perl-install/handle_configs.pm index 2ade1b661..97011f1f6 100644 --- a/perl-install/handle_configs.pm +++ b/perl-install/handle_configs.pm @@ -1,6 +1,5 @@ package handle_configs; -# $Id: handle_configs.pm 204175 2003-09-17 19:25:59Z tvignaud $ use diagnostics; use strict; diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 55ccea6af..032f491c9 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -1,4 +1,4 @@ -package install::any; # $Id: any.pm 259898 2009-09-03 14:05:46Z tv $ +package install::any; use strict; diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index 3854876a6..8bbea866f 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -1,4 +1,4 @@ -package install::commands; # $Id: commands.pm 263616 2009-11-19 18:11:25Z blino $ +package install::commands; #-######################################################################## #- This file implement many common shell commands: diff --git a/perl-install/install/ftp.pm b/perl-install/install/ftp.pm index 4dcdae543..c69cdab25 100644 --- a/perl-install/install/ftp.pm +++ b/perl-install/install/ftp.pm @@ -1,4 +1,4 @@ -package install::ftp; # $Id: ftp.pm 215411 2007-04-25 12:26:16Z pixel $ +package install::ftp; use Net::FTP; diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index 23c10ccbb..eb7cba428 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -1,4 +1,4 @@ -package install::gtk; # $Id: gtk.pm 269881 2010-06-04 14:48:46Z cfergeau $ +package install::gtk; use diagnostics; use strict; diff --git a/perl-install/install/help/po/uk.po b/perl-install/install/help/po/uk.po index 0c30d69be..96f52f1d4 100644 --- a/perl-install/install/help/po/uk.po +++ b/perl-install/install/help/po/uk.po @@ -1,6 +1,5 @@ # translation of DrakX-uk.po to ukrainian # translation of DrakX.po to ukrainian -# $Id: uk.po 26602 2006-04-22 07:43:48Z fwang $ # Copyright (C) 2000,2003, 2004, 2005 Free Software Foundation, Inc. # # Dmytro Kovalov <kov@tokyo.email.ne.jp>, 2000. diff --git a/perl-install/install/http.pm b/perl-install/install/http.pm index 9c0dacfd7..db111564c 100644 --- a/perl-install/install/http.pm +++ b/perl-install/install/http.pm @@ -1,4 +1,4 @@ -package install::http; # $Id: http.pm 270205 2010-07-02 12:24:09Z pterjan $ +package install::http; use urpm::download; use common; diff --git a/perl-install/install/install2 b/perl-install/install/install2 index e211d656a..ba8b558a9 100755 --- a/perl-install/install/install2 +++ b/perl-install/install/install2 @@ -1,7 +1,7 @@ #!/usr/bin/perl #- PERL_INSTALL_TEST is used to launch stage2 in debug mode -#- Mandrake Graphic Install $Id: install2 258993 2009-08-07 18:01:22Z pterjan $ +#- Mandrake Graphic Install #- Copyright (C) 1999/2000 Mandrakesoft (pixel) #- #- This program is free software; you can redistribute it and/or modify diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index fb1fd3aa8..50bde4ad9 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -1,4 +1,4 @@ -package install::install2; # $Id: install2.pm 255825 2009-04-08 11:54:23Z tv $ +package install::install2; use diagnostics; use strict; diff --git a/perl-install/install/interactive.pm b/perl-install/install/interactive.pm index d217d145d..7faa7bdd8 100644 --- a/perl-install/install/interactive.pm +++ b/perl-install/install/interactive.pm @@ -1,4 +1,4 @@ -package install::interactive; # $Id: interactive.pm 215411 2007-04-25 12:26:16Z pixel $ +package install::interactive; use diagnostics; use strict; diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 65cc1403e..9d75ea24f 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -1,4 +1,4 @@ -package install::media; # $Id: media.pm 269998 2010-06-11 17:28:57Z blino $ +package install::media; use strict; diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 0718f36db..adbf25258 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -1,4 +1,4 @@ -package install::pkgs; # $Id: pkgs.pm 267288 2010-04-02 14:49:40Z pterjan $ +package install::pkgs; use strict; use feature 'state'; diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm index 7a75fb530..73ff47918 100644 --- a/perl-install/install/steps.pm +++ b/perl-install/install/steps.pm @@ -1,4 +1,4 @@ -package install::steps; # $Id: steps.pm 268013 2010-04-29 15:02:04Z pterjan $ +package install::steps; use diagnostics; use strict; diff --git a/perl-install/install/steps_auto_install.pm b/perl-install/install/steps_auto_install.pm index 1716fad06..ceaab7ed3 100644 --- a/perl-install/install/steps_auto_install.pm +++ b/perl-install/install/steps_auto_install.pm @@ -1,4 +1,4 @@ -package install::steps_auto_install; # $Id: steps_auto_install.pm 257077 2009-04-24 14:18:27Z blino $ +package install::steps_auto_install; use diagnostics; use strict; diff --git a/perl-install/install/steps_curses.pm b/perl-install/install/steps_curses.pm index 6f8f73579..30fd693a6 100644 --- a/perl-install/install/steps_curses.pm +++ b/perl-install/install/steps_curses.pm @@ -1,4 +1,4 @@ -package install::steps_curses; # $Id: steps_curses.pm 247958 2008-10-08 15:19:32Z tv $ +package install::steps_curses; use diagnostics; use strict; diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 04fdce954..3b0969fc4 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -1,4 +1,4 @@ -package install::steps_gtk; # $Id: steps_gtk.pm 266069 2010-02-09 19:47:35Z pterjan $ +package install::steps_gtk; use diagnostics; use strict; diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 198d44c9d..25e365e8b 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -1,4 +1,4 @@ -package install::steps_interactive; # $Id: steps_interactive.pm 267011 2010-03-19 12:00:12Z pterjan $ +package install::steps_interactive; use strict; diff --git a/perl-install/install/steps_stdio.pm b/perl-install/install/steps_stdio.pm index 0b0850fcb..1cf4b1197 100644 --- a/perl-install/install/steps_stdio.pm +++ b/perl-install/install/steps_stdio.pm @@ -1,4 +1,4 @@ -package install::steps_stdio; # $Id: steps_stdio.pm 215411 2007-04-25 12:26:16Z pixel $ +package install::steps_stdio; use diagnostics; use strict; diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index dd96b1bf9..49f47d05c 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -1,4 +1,4 @@ -package interactive; # $Id: interactive.pm 247292 2008-10-01 15:23:37Z tv $ +package interactive; use diagnostics; use strict; diff --git a/perl-install/interactive/curses.pm b/perl-install/interactive/curses.pm index b2dc94bc4..64bdee5c7 100644 --- a/perl-install/interactive/curses.pm +++ b/perl-install/interactive/curses.pm @@ -3,7 +3,7 @@ # to debug, use something like # PERLDB_OPTS=TTY=`tty` LC_ALL=fr_FR.UTF-8 xterm -geometry 80x25 -e sh -c 'DISPLAY= perl -d t.pl' -package interactive::curses; # $Id: curses.pm 262575 2009-10-22 17:25:42Z blino $ +package interactive::curses; use diagnostics; use strict; diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 98f1eb2a7..531bddc7f 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -1,4 +1,4 @@ -package interactive::gtk; # $Id: gtk.pm 261628 2009-10-09 16:25:51Z tv $ +package interactive::gtk; use diagnostics; use strict; diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm index 1370a4a0e..70017c41d 100644 --- a/perl-install/interactive/http.pm +++ b/perl-install/interactive/http.pm @@ -1,4 +1,4 @@ -package interactive::http; # $Id: http.pm 215411 2007-04-25 12:26:16Z pixel $ +package interactive::http; use diagnostics; use strict; diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm index 9c72f45db..5bc53a0f5 100644 --- a/perl-install/interactive/stdio.pm +++ b/perl-install/interactive/stdio.pm @@ -1,4 +1,4 @@ -package interactive::stdio; # $Id: stdio.pm 226450 2007-08-27 13:23:35Z pixel $ +package interactive::stdio; use diagnostics; use strict; diff --git a/perl-install/lang.pm b/perl-install/lang.pm index b712e0186..3dc28336a 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -1,4 +1,4 @@ -package lang; # $Id: lang.pm 269897 2010-06-05 21:23:50Z tv $ +package lang; use diagnostics; use strict; diff --git a/perl-install/log.pm b/perl-install/log.pm index 440e9737d..a0f7bd41d 100644 --- a/perl-install/log.pm +++ b/perl-install/log.pm @@ -1,4 +1,4 @@ -package log; # $Id: log.pm 215411 2007-04-25 12:26:16Z pixel $ +package log; use diagnostics; use strict; diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 09335e33a..bace3e3ba 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -1,4 +1,4 @@ -package lvm; # $Id: lvm.pm 268652 2010-05-13 17:09:00Z pterjan $ +package lvm; use diagnostics; use strict; diff --git a/perl-install/messages.pm b/perl-install/messages.pm index 529102ae8..e36e6d255 100644 --- a/perl-install/messages.pm +++ b/perl-install/messages.pm @@ -1,4 +1,4 @@ -package messages; # $Id: messages.pm 245997 2008-09-19 12:59:39Z pixel $ +package messages; use diagnostics; use strict; diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm index d062c29c8..654bdb2e9 100644 --- a/perl-install/mirror.pm +++ b/perl-install/mirror.pm @@ -1,4 +1,4 @@ -package mirror; # $Id: mirror.pm 269985 2010-06-09 22:02:57Z herton $ +package mirror; use diagnostics; use strict; diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 56c114a34..5a122a11c 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -1,4 +1,4 @@ -package modules; # $Id: modules.pm 269880 2010-06-04 14:01:44Z pterjan $ +package modules; use strict; diff --git a/perl-install/modules/any_conf.pm b/perl-install/modules/any_conf.pm index 9f607dbe8..e5388bca5 100644 --- a/perl-install/modules/any_conf.pm +++ b/perl-install/modules/any_conf.pm @@ -1,4 +1,4 @@ -package modules::any_conf; # $Id: any_conf.pm 215411 2007-04-25 12:26:16Z pixel $ +package modules::any_conf; use log; use common; diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm index b6b500fc1..dae135889 100644 --- a/perl-install/modules/interactive.pm +++ b/perl-install/modules/interactive.pm @@ -1,4 +1,4 @@ -package modules::interactive; # $Id: interactive.pm 253241 2009-02-25 09:28:44Z tv $ +package modules::interactive; use modules; use common; diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm index c9ad3ff5c..7989096f8 100644 --- a/perl-install/modules/modprobe_conf.pm +++ b/perl-install/modules/modprobe_conf.pm @@ -1,4 +1,4 @@ -package modules::modprobe_conf; # $Id: modprobe_conf.pm 259199 2009-08-13 10:18:59Z pterjan $ +package modules::modprobe_conf; use log; use common; diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm index 5a6242ff5..be4b8fca4 100644 --- a/perl-install/modules/modules_conf.pm +++ b/perl-install/modules/modules_conf.pm @@ -1,4 +1,4 @@ -package modules::modules_conf; # $Id: modules_conf.pm 228209 2007-09-16 23:09:00Z blino $ +package modules::modules_conf; use log; use common; diff --git a/perl-install/modules/parameters.pm b/perl-install/modules/parameters.pm index 6f77bad79..36990b5d1 100644 --- a/perl-install/modules/parameters.pm +++ b/perl-install/modules/parameters.pm @@ -1,4 +1,4 @@ -package modules::parameters; # $Id: parameters.pm 215411 2007-04-25 12:26:16Z pixel $ +package modules::parameters; use diagnostics; use strict; diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 61c6a0f6d..79d108d3d 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -1,4 +1,4 @@ -package partition_table; # $Id: partition_table.pm 268438 2010-05-10 14:25:50Z pterjan $ +package partition_table; use diagnostics; use strict; diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm index 55e598e42..b27df6d3a 100644 --- a/perl-install/partition_table/bsd.pm +++ b/perl-install/partition_table/bsd.pm @@ -1,4 +1,4 @@ -package partition_table::bsd; # $Id: bsd.pm 228416 2007-09-18 10:32:56Z pixel $ +package partition_table::bsd; use diagnostics; use strict; diff --git a/perl-install/partition_table/dmcrypt.pm b/perl-install/partition_table/dmcrypt.pm index 3eae783c6..eb35eb41c 100644 --- a/perl-install/partition_table/dmcrypt.pm +++ b/perl-install/partition_table/dmcrypt.pm @@ -1,4 +1,4 @@ -package partition_table::dmcrypt; # $Id: $ +package partition_table::dmcrypt; # dmcrypt on full disk diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm index 59439e1d4..c420599d3 100644 --- a/perl-install/partition_table/dos.pm +++ b/perl-install/partition_table/dos.pm @@ -1,4 +1,4 @@ -package partition_table::dos; # $Id: dos.pm 263707 2009-11-26 13:26:41Z pterjan $ +package partition_table::dos; use diagnostics; use strict; diff --git a/perl-install/partition_table/empty.pm b/perl-install/partition_table/empty.pm index 5d45143f8..fe4ad4317 100644 --- a/perl-install/partition_table/empty.pm +++ b/perl-install/partition_table/empty.pm @@ -1,4 +1,4 @@ -package partition_table::empty; # $Id: empty.pm 228433 2007-09-18 12:30:17Z pixel $ +package partition_table::empty; #- this is a mainly dummy partition table. If we find it's empty, we just call - #- ->clear which will take care of bless'ing us to the partition table type best diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm index 764fcf184..55b9e9c4f 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -1,4 +1,4 @@ -package partition_table::gpt; # $Id: gpt.pm 252200 2009-01-27 18:08:22Z pterjan $ +package partition_table::gpt; use diagnostics; use strict; diff --git a/perl-install/partition_table/lvm.pm b/perl-install/partition_table/lvm.pm index 8a28a4c2a..920507fa5 100644 --- a/perl-install/partition_table/lvm.pm +++ b/perl-install/partition_table/lvm.pm @@ -1,4 +1,4 @@ -package partition_table::lvm; # $Id: $ +package partition_table::lvm; # LVM on full disk diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm index 015feaee6..547704b45 100644 --- a/perl-install/partition_table/mac.pm +++ b/perl-install/partition_table/mac.pm @@ -1,4 +1,4 @@ -package partition_table::mac; # $Id: mac.pm 228416 2007-09-18 10:32:56Z pixel $ +package partition_table::mac; use diagnostics; #use strict; - fixed other PPC code to comply, but program bails on empty partition table - sbenedict diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index 686b84d92..281bcd98e 100644 --- a/perl-install/partition_table/raw.pm +++ b/perl-install/partition_table/raw.pm @@ -1,4 +1,4 @@ -package partition_table::raw; # $Id: raw.pm 266069 2010-02-09 19:47:35Z pterjan $ +package partition_table::raw; use diagnostics; use strict; diff --git a/perl-install/partition_table/readonly.pm b/perl-install/partition_table/readonly.pm index f36b60e4a..ee3624f88 100644 --- a/perl-install/partition_table/readonly.pm +++ b/perl-install/partition_table/readonly.pm @@ -1,4 +1,4 @@ -package partition_table::readonly; # $Id: $ +package partition_table::readonly; use diagnostics; use strict; diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm index 47d702621..e2fd747ac 100644 --- a/perl-install/partition_table/sun.pm +++ b/perl-install/partition_table/sun.pm @@ -1,4 +1,4 @@ -package partition_table::sun; # $Id: sun.pm 228416 2007-09-18 10:32:56Z pixel $ +package partition_table::sun; use diagnostics; use strict; diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 05fb93d34..0b9714405 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1,4 +1,4 @@ -package pkgs; # $Id: pkgs.pm 269470 2010-05-26 09:23:39Z pterjan $ +package pkgs; use strict; diff --git a/perl-install/raid.pm b/perl-install/raid.pm index c9f974946..abcca2b79 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -1,4 +1,4 @@ -package raid; # $Id: raid.pm 269279 2010-05-24 14:12:09Z pterjan $ +package raid; use diagnostics; use strict; diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm index 59f4addd7..fc3c438eb 100644 --- a/perl-install/resize_fat/any.pm +++ b/perl-install/resize_fat/any.pm @@ -1,4 +1,4 @@ -package resize_fat::any; # $Id: any.pm 267555 2010-04-15 12:45:18Z pterjan $ +package resize_fat::any; use diagnostics; use strict; diff --git a/perl-install/resize_fat/boot_sector.pm b/perl-install/resize_fat/boot_sector.pm index 8496166a4..f93647579 100644 --- a/perl-install/resize_fat/boot_sector.pm +++ b/perl-install/resize_fat/boot_sector.pm @@ -1,4 +1,4 @@ -package resize_fat::boot_sector; # $Id: boot_sector.pm 210307 2004-12-13 15:56:00Z tvignaud $ +package resize_fat::boot_sector; use diagnostics; use strict; diff --git a/perl-install/resize_fat/c_rewritten.pm b/perl-install/resize_fat/c_rewritten.pm index 177d3fc9c..39ba9253f 100644 --- a/perl-install/resize_fat/c_rewritten.pm +++ b/perl-install/resize_fat/c_rewritten.pm @@ -1,4 +1,4 @@ -package resize_fat::c_rewritten; # $Id: c_rewritten.pm 200790 2002-11-28 12:47:16Z prigaux $ +package resize_fat::c_rewritten; use strict; diff --git a/perl-install/resize_fat/dir_entry.pm b/perl-install/resize_fat/dir_entry.pm index b00edb397..27d2ea33f 100644 --- a/perl-install/resize_fat/dir_entry.pm +++ b/perl-install/resize_fat/dir_entry.pm @@ -1,4 +1,4 @@ -package resize_fat::dir_entry; # $Id: dir_entry.pm 205391 2004-01-05 13:45:42Z prigaux $ +package resize_fat::dir_entry; use diagnostics; use strict; diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm index addf757d0..9c04fb62b 100644 --- a/perl-install/resize_fat/directory.pm +++ b/perl-install/resize_fat/directory.pm @@ -1,4 +1,4 @@ -package resize_fat::directory; # $Id: directory.pm 202834 2003-04-24 19:00:12Z prigaux $ +package resize_fat::directory; use diagnostics; use strict; diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm index a3372a905..20145982b 100644 --- a/perl-install/resize_fat/fat.pm +++ b/perl-install/resize_fat/fat.pm @@ -1,4 +1,4 @@ -package resize_fat::fat; # $Id: fat.pm 210307 2004-12-13 15:56:00Z tvignaud $ +package resize_fat::fat; use diagnostics; use strict; diff --git a/perl-install/resize_fat/info_sector.pm b/perl-install/resize_fat/info_sector.pm index 902f26f3f..47de2db1c 100644 --- a/perl-install/resize_fat/info_sector.pm +++ b/perl-install/resize_fat/info_sector.pm @@ -1,4 +1,4 @@ -package resize_fat::info_sector; # $Id: info_sector.pm 199276 2002-07-31 22:40:00Z prigaux $ +package resize_fat::info_sector; use diagnostics; use strict; diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm index 68443ad2a..78e3a3724 100644 --- a/perl-install/resize_fat/io.pm +++ b/perl-install/resize_fat/io.pm @@ -1,4 +1,4 @@ -package resize_fat::io; # $Id: io.pm 208669 2004-08-12 04:20:25Z prigaux $ +package resize_fat::io; use diagnostics; use strict; diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index 34bf2f9bf..681aec756 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -1,4 +1,4 @@ -package resize_fat::main; # $Id: main.pm 212705 2005-06-10 07:52:38Z prigaux $ +package resize_fat::main; # This is mainly a perl rewrite of the work of Andrew Clausen (libresize) diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 20ae3c65f..fc73c294a 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -1,4 +1,4 @@ -package run_program; # $Id: run_program.pm 266118 2010-02-11 14:57:12Z pterjan $ +package run_program; use diagnostics; use strict; diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index 0b3bc6702..8967dd7d0 100644 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -1,5 +1,4 @@ package scanner; -# scanner.pm $Id: scanner.pm 257130 2009-04-28 13:10:22Z tv $ # Yves Duret <yduret at mandriva.com> # Till Kamppeter <till at mandriva.com> # Copyright (C) 2001-2008 Mandriva diff --git a/perl-install/security/various.pm b/perl-install/security/various.pm index 6039d602c..2e4abd397 100644 --- a/perl-install/security/various.pm +++ b/perl-install/security/various.pm @@ -1,4 +1,4 @@ -package security::various; # $Id: various.pm 245212 2008-09-15 15:32:06Z tv $ +package security::various; use diagnostics; use strict; diff --git a/perl-install/services.pm b/perl-install/services.pm index 7d90acc2d..eb5d0a87e 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -1,4 +1,4 @@ -package services; # $Id: services.pm 267089 2010-03-28 12:51:44Z tv $ +package services; diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 270cea64b..9a5d8e157 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -1,4 +1,4 @@ -package standalone; # $Id: standalone.pm 262870 2009-10-27 10:53:55Z tv $ +package standalone; use c; use strict; diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help index b977f0532..d91c593e5 100755 --- a/perl-install/standalone/display_help +++ b/perl-install/standalone/display_help @@ -1,7 +1,6 @@ #!/usr/bin/perl # DrakBoot -# $Id: display_release_notes 242795 2008-05-29 15:38:07Z tv $ # Copyright (C) 2009 Mandriva # Thierry Vignaud # diff --git a/perl-install/standalone/display_release_notes.pl b/perl-install/standalone/display_release_notes.pl index f6a2fab1c..21ac5bcdc 100755 --- a/perl-install/standalone/display_release_notes.pl +++ b/perl-install/standalone/display_release_notes.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl # DrakBoot -# $Id: display_release_notes 242795 2008-05-29 15:38:07Z tv $ # Copyright (C) 2009 Mandriva # Thierry Vignaud # diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 33b158b0a..f9c337d80 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -1,7 +1,6 @@ #!/usr/bin/perl # DrakBoot -# $Id: drakboot 264949 2010-01-14 18:47:39Z tv $ # Copyright (C) 2001-2008 Mandriva # Yves Duret, Thierry Vignaud # diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index efb2104df..a864b678a 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -1,7 +1,6 @@ #!/usr/bin/perl # DrakFloppy -# $Id: drakfloppy 233182 2008-01-23 12:16:18Z tv $ # # Copyright (C) 2001-2008 Mandriva # Yves Duret diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv index e8cf7d9be..cdeb67fbd 100755 --- a/perl-install/standalone/drakxtv +++ b/perl-install/standalone/drakxtv @@ -1,6 +1,5 @@ #!/usr/bin/perl # DrakxTV -# $Id: drakxtv 233182 2008-01-23 12:16:18Z tv $ # Copyright (C) 2002-2008 Mandriva (thierry.vignaud.com) # diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset index 167d28165..9223d6f29 100755 --- a/perl-install/standalone/fileshareset +++ b/perl-install/standalone/fileshareset @@ -11,7 +11,6 @@ my $authorisation_group = 'fileshare'; ######################################## -# fileshare utility $Id: fileshareset 233183 2008-01-23 12:17:07Z tv $ # Copyright (C) 2001-2008 Mandriva (pixel) # # This program is free software; you can redistribute it and/or modify diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index bd6d90a28..562d91144 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -1,5 +1,4 @@ #! /usr/bin/perl -# $Id: logdrake 238729 2008-03-06 15:15:47Z tv $ # Copyright (C) 2001-2008 Mandriva # Yves Duret <yduret at mandriva.com> diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index f36cf4967..2e48bcfce 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -1,6 +1,5 @@ #!/usr/bin/perl -# scannerdrake $Id: scannerdrake 250480 2008-12-15 14:28:46Z tv $ # Yves Duret # Till Kamppeter # Copyright (C) 2001-2008 Mandriva diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm index eeb1ed30d..efd1abd9d 100644 --- a/perl-install/timezone.pm +++ b/perl-install/timezone.pm @@ -1,4 +1,4 @@ -package timezone; # $Id: timezone.pm 269985 2010-06-09 22:02:57Z herton $ +package timezone; use diagnostics; use strict; diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm index e77c97a9f..b9b6ea699 100644 --- a/perl-install/unused/cdrom.pm +++ b/perl-install/unused/cdrom.pm @@ -1,4 +1,4 @@ -package cdrom; # $Id: cdrom.pm 193259 2000-09-14 12:58:40Z prigaux $ +package cdrom; use diagnostics; use strict; diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm index c8a805368..b1c9c4516 100644 --- a/perl-install/wizards.pm +++ b/perl-install/wizards.pm @@ -1,5 +1,4 @@ package wizards; -# $Id: wizards.pm 230802 2007-10-04 13:36:01Z tv $ use strict; use c; |