diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-07 07:08:29 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-07 07:08:29 +0000 |
commit | dd69bb2017f7dad5911f7117b7863f20baae83b1 (patch) | |
tree | a91042503d5c8a0137b781869f41d5b6d96d58ea | |
parent | 79334f5fa3db59b56b08f0b27ac0df680981c469 (diff) | |
download | drakx-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar drakx-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.gz drakx-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.bz2 drakx-dd69bb2017f7dad5911f7117b7863f20baae83b1.tar.xz drakx-dd69bb2017f7dad5911f7117b7863f20baae83b1.zip |
remove non-useful prototypes ($)
-rw-r--r-- | perl-install/modules.pm | 8 |
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"); |