From 024946449fa61d844aee9f994b407190ce9e1dc9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Sep 2001 12:05:30 +0000 Subject: fix typos --- perl-install/Xconfig.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index 280b7f987..77b5b9c4b 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -207,10 +207,10 @@ sub getinfoFromDDC { } my ($h, $v, $size, @m) = @l; - $O->{hsyncrange} ||= $h =~ /^(\S*)/; - $O->{vsyncrange} ||= $v =~ /^(\S*)/; + $O->{hsyncrange} ||= first($h =~ /^(\S*)/); + $O->{vsyncrange} ||= first($v =~ /^(\S*)/); $O->{size} ||= to_float($size); - $O->{EISA_ID} = lc($1) if $size =~ /EISA ID: (\S*)/; + $O->{EISA_ID} = lc($1) if $size =~ /EISA ID=(\S*)/; $O->{modelines} ||= join '', @m; $o; } -- cgit v1.2.1