summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-01 03:34:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-01 03:34:14 +0000
commite02218b14f952753aa6ddc3b6cfb9a067732919e (patch)
treeea65bbda39d292c1949a90774ad66f9c8cbe821f /perl-install/install_interactive.pm
parent9db15981bfe68a98c6ea565d7318e1190ba4f0ec (diff)
downloaddrakx-e02218b14f952753aa6ddc3b6cfb9a067732919e.tar
drakx-e02218b14f952753aa6ddc3b6cfb9a067732919e.tar.gz
drakx-e02218b14f952753aa6ddc3b6cfb9a067732919e.tar.bz2
drakx-e02218b14f952753aa6ddc3b6cfb9a067732919e.tar.xz
drakx-e02218b14f952753aa6ddc3b6cfb9a067732919e.zip
no_comment
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 074f8aff5..d60e922cb 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -273,7 +273,7 @@ sub setup_thiskind {
}
@l = map { $_->{description} } @l;
while (1) {
- my ($msg_type) = $type =~ /(.*)|/;
+ (my $msg_type = $type) =~ s/\|.*//;
my $msg = @l ?
[ _("Found %s %s interfaces", join(", ", @l), $msg_type),
_("Do you have another one?") ] :