summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-07 07:08:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-07 07:08:29 +0000
commitdd69bb2017f7dad5911f7117b7863f20baae83b1 (patch)
treea91042503d5c8a0137b781869f41d5b6d96d58ea
parent79334f5fa3db59b56b08f0b27ac0df680981c469 (diff)
downloaddrakx-backup-do-not-use-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar
drakx-backup-do-not-use-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.gz
drakx-backup-do-not-use-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.bz2
drakx-backup-do-not-use-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.xz
drakx-backup-do-not-use-dd69bb2017f7dad5911f7117b7863f20baae83b1.zip
remove non-useful prototypes ($)
-rw-r--r--perl-install/modules.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 4a1675aef..d8180256f 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -197,13 +197,13 @@ sub remove_probeall {
log::l("setting probeall $alias to @$l");
}
-sub remove_alias($) {
+sub remove_alias {
my ($name) = @_;
log::l(qq(removing alias "$name"));
remove_alias_regexp("^$name\$");
}
-sub remove_alias_regexp($) {
+sub remove_alias_regexp {
my ($aliased) = @_;
log::l(qq(removing all aliases that match "$aliased"));
foreach (keys %conf) {
@@ -215,7 +215,7 @@ sub remove_alias_regexp($) {
}
}
-sub remove_alias_regexp_byname($) {
+sub remove_alias_regexp_byname {
my ($name) = @_;
log::l(qq(removing all aliases which names match "$name"));
foreach (keys %conf) {
@@ -223,7 +223,7 @@ sub remove_alias_regexp_byname($) {
}
}
-sub remove_module($) {
+sub remove_module {
my ($name) = @_;
remove_alias($name);
log::l("removing module $name");