diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 17:34:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 17:34:45 +0000 |
| commit | e7efea7650c800f2e61a9de2bdd0dac5c8e2c217 (patch) | |
| tree | d74b600ad40d37e9c7f0de9a351c91aee97cbb97 /perl-install | |
| parent | fcbb83d441156725da382c030d75ab91b148ac87 (diff) | |
| download | drakx-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.pm | 4 |
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 |