diff options
Diffstat (limited to 'perl-install/Xconfig.pm')
| -rw-r--r-- | perl-install/Xconfig.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index 836fa27c5..fac946783 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -207,9 +207,10 @@ sub getinfoFromDDC { } my ($h, $v, $size, @m) = @l; - $O->{hsyncrange} ||= chomp_($h); - $O->{vsyncrange} ||= chomp_($v); + $O->{hsyncrange} ||= $h =~ /^(\S*)/; + $O->{vsyncrange} ||= $v =~ /^(\S*)/; $O->{size} ||= to_float($size); + $O->{EISA_ID} = $1 if $size =~ /EISA ID: (\S*)/; $O->{modelines} ||= join '', @m; $o; } |