diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 17:26:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 17:26:11 +0000 |
| commit | 313e33f333591b2502cba4ae770adb4488d3d78a (patch) | |
| tree | 8677b185cdc782c4c7100d9879547052e6483d29 | |
| parent | 17a76a45dc3d6a28f55b73c273fd3ae49785bc62 (diff) | |
| download | drakx-313e33f333591b2502cba4ae770adb4488d3d78a.tar drakx-313e33f333591b2502cba4ae770adb4488d3d78a.tar.gz drakx-313e33f333591b2502cba4ae770adb4488d3d78a.tar.bz2 drakx-313e33f333591b2502cba4ae770adb4488d3d78a.tar.xz drakx-313e33f333591b2502cba4ae770adb4488d3d78a.zip | |
"let please pixel" changes
| -rw-r--r-- | perl-install/modules.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 21a54070a..0f800b793 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -178,7 +178,7 @@ sub remove_alias($) { sub remove_alias_regexp($) { my ($name) = @_; foreach (keys %conf) { - $conf{$_}{alias} && $_ =~ qr/$name/ or next; + $conf{$_}{alias} && $_ =~ /$name/ or next; delete $conf{$_}{alias}; return 1; } @@ -267,7 +267,7 @@ sub write_conf { my $v = join(' ', uniq(deref($conf{$alias}{$type}))); $_ = "$type $alias $v\n"; } elsif ($type eq 'alias' && !defined $conf{$alias}{alias}) { - undef $_; + $_ = ''; } } $file; |