diff options
| -rw-r--r-- | perl-install/Xconfig.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |