summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-02 17:34:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-02 17:34:45 +0000
commite7efea7650c800f2e61a9de2bdd0dac5c8e2c217 (patch)
treed74b600ad40d37e9c7f0de9a351c91aee97cbb97 /perl-install
parentfcbb83d441156725da382c030d75ab91b148ac87 (diff)
downloaddrakx-e7efea7650c800f2e61a9de2bdd0dac5c8e2c217.tar
drakx-e7efea7650c800f2e61a9de2bdd0dac5c8e2c217.tar.gz
drakx-e7efea7650c800f2e61a9de2bdd0dac5c8e2c217.tar.bz2
drakx-e7efea7650c800f2e61a9de2bdd0dac5c8e2c217.tar.xz
drakx-e7efea7650c800f2e61a9de2bdd0dac5c8e2c217.zip
don't use $_
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/card.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm
index 9b5b4ded7..9c14c1831 100644
--- a/perl-install/Xconfig/card.pm
+++ b/perl-install/Xconfig/card.pm
@@ -148,8 +148,8 @@ sub probe() {
#- take a default on sparc if nothing has been found.
if (arch() =~ /^sparc/ && !@cards) {
log::l("Using probe with /proc/fb as nothing has been found!");
- local $_ = cat_("/proc/fb");
- @cards = { server => /Mach64/ ? "Mach64" : /Permedia2/ ? "3DLabs" : "Sun24" };
+ my $s = cat_("/proc/fb");
+ @cards = { server => $s =~ /Mach64/ ? "Mach64" : $s =~ /Permedia2/ ? "3DLabs" : "Sun24" };
}
#- disabling MULTI_HEAD when not available