summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-06 17:26:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-06 17:26:11 +0000
commit313e33f333591b2502cba4ae770adb4488d3d78a (patch)
tree8677b185cdc782c4c7100d9879547052e6483d29
parent17a76a45dc3d6a28f55b73c273fd3ae49785bc62 (diff)
downloaddrakx-backup-do-not-use-313e33f333591b2502cba4ae770adb4488d3d78a.tar
drakx-backup-do-not-use-313e33f333591b2502cba4ae770adb4488d3d78a.tar.gz
drakx-backup-do-not-use-313e33f333591b2502cba4ae770adb4488d3d78a.tar.bz2
drakx-backup-do-not-use-313e33f333591b2502cba4ae770adb4488d3d78a.tar.xz
drakx-backup-do-not-use-313e33f333591b2502cba4ae770adb4488d3d78a.zip
"let please pixel" changes
-rw-r--r--perl-install/modules.pm4
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;