From e7efea7650c800f2e61a9de2bdd0dac5c8e2c217 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 2 Dec 2002 17:34:45 +0000 Subject: don't use $_ --- perl-install/Xconfig/card.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig') 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 -- cgit v1.2.1